📄 fy.asp.bak

📁 asp 网站开发技术介绍

💻 BAK

字号:

<%
Dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data\tushu.mdb")
Set conn=Server.CreateObject("ADODB.Connection") 
conn.open connstr
%>
<%
exec="select * from tushumingxi"
Set rs=Server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
%>

<%
rs.pagesize=3			'指示recordset中一页所包含的记录数
zy=rs.pagecount	'使用pagecount属性可确定recordset 对象中数据的页数
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.absolutepage=page     '指定当前记录所在的页
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
</HEAD>

<BODY>
<%
If rs.EOF And rs.BOF Then
response.write("暂时还没有书目内容")
else
For i=1 To rs.pagesize
Response.write("编号："&rs("bh"))
Response.write("<br>名称："&rs("mc"))
Response.write("<br>价格："&rs("jg"))
Response.write("<br>作者："&rs("zz"))
Response.write("<hr>")
rs.movenext
next
End if
%>

<p align="center">
<% if page=1 and not page=zy then%>
第一页｜上一页
<a href ="fy.asp?page=<%=page+1%>">下一页</a>
<a href ="fy.asp?page=<%=zy%>">最后页</a>
<% elseif page<>1 and not page=zy then%>
<a href ="fy.asp?page=1">第一页</a>
<a href ="fy.asp?page=<%=page-1%>">上一页</a>
<a href ="fy.asp?page=<%=page+1%>">下一页</a>
<a href ="fy.asp?page=<%=zy%>">最后页</a>
<% elseif page=zy then%>
<a href ="fy.asp?page=1">第一页</a>
<a href ="fy.asp?page=<%=page-1%>">上一页</a>
下一页｜最后页
<%end if%>

<%rs.close
Set conn=Nothing
%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -