<%
Set rs2 = Server.Createobject("ADODB.RecordSet")
if sci="请输入电影名的部分关键词" then
Sql= "Select * from moves order by actime desc"
else
Sql= "Select * from moves where g1 like '%"&sci&"%' order by actime desc"
end if
rs2.open sql,conn,1,1
if rs2.recordcount>0 then
recordcount=rs2.recordcount
rs2.pagesize = 10
AllPage = rs2.PageCount
Page = Request("Page")
dqy = 1
If Page ="" Then
End IF
If Isnumeric(Page) = false Then
dqy =1
ElseIf Cint(page) < 1 tHen
dqy = 1
else
dqy = Cint(Page)
End IF
If dqy > allPage then dqy = allpage
rs2.Absolutepage = dqy
For i = 1 to rs2.pagesize
id=rs2("id")
imgfileSamll=rs2("imgfileSamll")
g1=rs2("g1")
g2=rs2("g2")
ip2=rs2("ip2")
g4=left(rs2("g4"),30)
actime=rs2("actime")
%>
|
<%
rs2.MoveNext
if rs2.Eof Then Exit For
Next
rs2.Close
end if
Set rs2 =nothing
%>
|
|
|
Email：webxw#126.com