UC知道ASP的一段的代码
来源：百度知道 编辑：UC知道 时间：2024/05/28 13:14:29
<%
dim rs,sql
Set rs= Server.CreateObject ("ADODB.RecordSet")
sql = "select * from news order by n_time desc"
rs.open sql, conn,1,3
if rs.bof then
response.write " <br><br><br><br>"
response.write "<p align='center'> 没有新闻 !</p>"
response.end
end if
%>
哪位ASP高手 为我翻译一下啊.小弟我谢谢了!
<%
dim currentpage,rowcount,i
if request.QueryString("currentpage")="" then
currentpage=1
else
currentpage=cint(request.QueryString("currentpage"))
end if
rs.pagesize=10
rs.absolutepage=cint(currentpage)
rowcount=0
%>
还有这一段.
dim rs,sql
Set rs= Server.CreateObject ("ADODB.RecordSet")
sql = "select * from news order by n_time desc"
rs.open sql, conn,1,3
if rs.bof then
response.write " <br><br><br><br>"
response.write "<p align='center'> 没有新闻 !</p>"
response.end
end if
%>
哪位ASP高手 为我翻译一下啊.小弟我谢谢了!
<%
dim currentpage,rowcount,i
if request.QueryString("currentpage")="" then
currentpage=1
else
currentpage=cint(request.QueryString("currentpage"))
end if
rs.pagesize=10
rs.absolutepage=cint(currentpage)
rowcount=0
%>
还有这一段.
<%
dim rs,sql
Set rs= Server.CreateObject ("ADODB.RecordSet")
sql = "select * from news order by n_time desc" 查找数据库
rs.open sql, conn,1,3
if rs.bof then 如果没有记录就显示下面
response.write " <br><br><br><br>"
response.write "<p align='center'> 没有新闻 !</p>"
response.end
end if
%>
问题补充：<%
dim currentpage,rowcount,i
if request.QueryString("currentpage")="" then 、如果变量currentpage为空
currentpage=1 、那么它的值 就为1
else 否则
currentpage=cint(request.QueryString("currentpage")) 、currentpage的值 就为传来的值
end if
rs.pagesize=10 每页显示十积极行动
rs.absolutepage=cint(currentpage)
rowcount=0
以上是分页代码
%>
这些都是ASP 的一些最基本的东西，好好看看书吧。