| Search : |
|
| Select Province: |
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/database/bkkvideo.mdb")
sqlprovince = "select * from province order by pengname"
Set rsprovince = Server.CreateObject("ADODB.Recordset")
rsprovince.Open sqlprovince, Conn, 1, 3
%>
|
<% If session("UserID") <> "" then%>
Add Data
<%end if%>
|
|
Name |
Length |
Size |
<%
page=request.querystring("page")
gsql=request.form("sql")
gsubm=request.form("subm")
if page="" then page=1
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/database/bkkvideo.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
'if request.Form("province") = "" Then
sql = "Select * From province,bkkvideo where bkkvideo.idprovince = province.province Order By bkkvideo.name "
'else
'sql = "Select bkkvideo.id, bkkvideo.name, bkkvideo.link, bkkvideo.time, bkkvideo.kb, bkkvideo.idprovince, province.province, province.pengname From bkkvideo,province where bkkvideo.idprovince = province.province "&newkeyword&" Order By ID "
'end if
'elseif request.Form("province") <> "" Then
'sql = "Select * From bkkvideo where province = "&request.form("province")&" "
'end if
rs.Open sql, conn, 1, 3
On Error Resume Next
gtotal=rs.RecordCount
RS.pagesize=100
ttpage=rs.pagecount
rs.absolutepage=page
%>
<%count=1
Do while Not RS.EOF and count <= RS.pagesize
if bg="beige" then bg="ivory" else bg="beige" %>
|
|
" target="_blank"><%=rs("name")%>, <%=rs("pengname")%>
<% If session("UserID") <> "" then%>
">Edit ">Delete
<%End if%>
|
<%=rs("time")%> |
<%=rs("kb")%> |
<%
rs.MoveNext
count=count+1
loop
rs.Close
conn.close
%>
<%
response.write "
" & page & "/" & ttpage & " "
if page=1 then
response.write "[Prev] "
else
response.write "[Prev] "
end if
response.write ""
for i = 1 to cint(ttpage)
if i = cint(page) then
response.write " "&page&" "
else
response.write "" & i & " "
end if
next
if cint(page)=cint(ttpage) then
response.write "[Next] "
else
response.write "[Next]"
end if
%>
|
