<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from gcyj order by adddate desc",conn,1,1
if not rs.bof then
rs.PageSize =15'每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
response.Write rs("rname")&"
"
rs.movenext
next
if rs.pagecount>1 then call PageControl(iCount,maxpage,page,"border=0 align=left","")
end if
rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write(" " & vbCrLf )
Response.Write("" & vbCrLf )
Response.Write(" " & vbCrLf )
End Sub
%>
|
 |
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select *from video order by softid asc",conn,1,1
if not rs.bof then
do while not rs.eof%>
| " target="_blank"><%=rs("rname")%> |
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
|
