ASP数据库的问题

来源:百度知道 编辑:UC知道 时间:2024/05/17 01:17:58
帮我解释下代码吧!
回答后追加20分

<%
set conn=server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};"
DSNtemp=dsntemp&"DBQ="&server.mappath("test.mdb")
conn.Open DSNtemp
sqlstmt="SELECT * from test ORDER BY id ASC"

Set rs=Server.CreateObject("ADODB.Recordset")

rs.open sqlstmt,conn,1,1
numPagesize=2
rs.Pagesize=numPagesize
if cstr(request("pageon"))="" then
whichpage="1"
else
whichpage=request("pageon")
end if
rs.absolutepage=whichpage
For i=1 to rs.PageCount
response.write "<a href='test.asp?pageon="&i&"'>"&i&"</a>"
response.write " "
next
response.write "<br>"

<%
set conn=server.createobject("adodb.connection") '创建连接对象
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};" '数据提供者
DSNtemp=dsntemp&"DBQ="&server.mappath("test.mdb") '数据库路径及数据库名
conn.Open DSNtemp '打开数据连接即连接数据库
sqlstmt="SELECT * from test ORDER BY id ASC" 'SQL语句字符串

Set rs=Server.CreateObject("ADODB.Recordset") '创建记录集对象rs

rs.open sqlstmt,conn,1,1 '打开数据库并执行SQL语句sqlstmt
numPagesize=2 '每页显示的行数
rs.Pagesize=numPagesize '
if cstr(request("pageon"))="" then '接收传递参数即当前页码
whichpage="1" '如果接收为空则默认为第1页
else
whichpage=request("pageon") '不为空则为接收的页码
end if
rs.absolutepage=whichpage '当前页数
For i=1 to rs.PageCount '统计总页数
response.write "<a href='test.asp?pageon="&i&"'>"&i&"</a>" '显示分页信息