UC知道注释一段ASP代码
来源：百度知道 编辑：UC知道 时间：2024/09/21 01:46:08
<%
id2=request("id1")
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
set rs=server.createobject("adodb.recordset")
sql="select * from news where cstr(sort)='"+id2+"' order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write "暂且没有该类新闻"
response.end
else
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
i=0
dim id(),title(),filename()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve id(i),title(i),filename(i)
id(i)=rs("id")
title(i)=rs("title")
filename(i)=rs("filename&q
id2=request("id1")
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
set rs=server.createobject("adodb.recordset")
sql="select * from news where cstr(sort)='"+id2+"' order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write "暂且没有该类新闻"
response.end
else
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
i=0
dim id(),title(),filename()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve id(i),title(i),filename(i)
id(i)=rs("id")
title(i)=rs("title")
filename(i)=rs("filename&q
<%
'接受请求的参数id1
id2=request("id1")
'接收参数page，用于记录当前页数
page=request.querystring("page")
'如果首次打开页面，设置当前页为第1页
if page="" then page=1
'检验参数，如果不是数字就取1
if not(isnumeric(page)) then page=1
'如果当前页小于1，则当前页为1。
if page<1 then page=1
'page强转为整数
page=int(page)
'声明数据库对象集
set rs=server.createobject("adodb.recordset")
'执行sql查询
sql="select * from news where cstr(sort)='"+id2+"' order by id desc"
rs.open sql,conn,3,3
'如果没有找到新闻，显示没有找到结束输出。
if rs.eof then
response.write "暂且没有该类新闻"
response.end
else
'有结果，设置每页显示20条记录
rs.pagesize=20
'获取总记录数
totalrec=rs.recordcount
'获取总页数
totalpage=rs.pagecount
'如果当前页超过最大页，则当前页位最大页
if page>totalpage then page=totalpage
'把记录集