📄 index.asp
字号:
<html>
<head>
<link href="css.css" ref="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>产品列表</title>
</head>
<body>
<p align=center>产品列表</p>
<table width=80% align=center>
<tr><td> </td><td>产品名称</td><td>单价</td><td>放入购物车</td></tr>
<%
'连接数据库
set conn=server.createObject("adodb.connection")
conn.open Application("conString")
set rs=server.createObject("ADODB.Recordset")
rs.CursorType=3
rs.open "select *from product",conn
'设置没页显示3条记录
rs.PageSize=3
'返回当前所在的页数
Page=CLng(Request("Page"))
if page<1 then page=1
if page>rs.pageCount then Page=rs.PageCount
rs.absolutepage=page
'显示当先页的纪录
for iPage=1 to rs.PageSize
RecNo=(Page-1)*rs.PageSize+iPage
%>
<form method=post action=index.asp target="_blank">
<input type="hidden" value="<%=rs("productid")%>" name="productid">
<input type="hidden" value="<%=rs("productname")%>"name="productname">
<input type="hidden" value="<%=rs("price")%>" name="productprice">
<tr><td><%=RecNo%></td><td><%=rs("productname")%></td><td><%=rs("price")%>元</td>
<td><input type="submit" name="sub" value="放入购物车"></td>
</tr>
</form>
<%
rs.movenext
'如果已经到了纪录的末尾，则应该提前跳处循环
if rs.eof then exit for
next%>
</table>
<p align="center">
<%
'显示第一页，上一页，下一页，最后一页的信息及创建有效地连接
if Page<>1 then
Response.Write "<A href=index.asp?page=1>第一页</a> "
Response.Write "<A href=index.asp?page=" & (Page-1) & ">上一页</a> "
end if
if Page<>rs.PageCount then
Response.Write "<A href=index.asp?page=" & (Page+1) & ">下一页</a> "
Response.Write "<A href=index.asp?page=" & rs.PageCount & ">最后一页</a> "
end if
%>
</p><p align=center>页数：<%=Page%>/<%=rs.PageCount%></p>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -