📄 ls.asp
字号:
<html><body background="zz.jpg">
<% dim conn, sql,DBPath
DBPath = Server.MapPath("db1.mdb")
Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open Connstr
sql="select * from xinxi order by bh ,name desc"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=3
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>
<body>
<div align="center">
<table border="1" cellpadding=0 cellspacing="0" bordercolor="#7777ff" width="75%" id="AutoNumber2">
<tr align="middle">
<td width="60%"><font size=4 color="#2211ff"> 数据库信息共有</font><%=Rs.pagecount%><font size=4 color="#2211ff">页 你正在浏览第</font><%=page%><font size=4 color="#2211ff">页 跳到第</font><%for go=1 to Rs.pagecount%> <a href=ls.asp?page=<%=go%>><%=go%></a> <%next%><font size=4 color="#2211ff">页</font><% if page<>1 then %> <a href=ls.asp?page=<%=page-1%>><font size=4 color="#2211ff">上一页</font></a><%end if%><% if Rs.pagecount-page <> 0 then %> <a href=ls.asp?page=<%=page+1%>><font size=4 color="#2211ff">下一页</font></a><%end if%></td>
</tr>
</table></div>
<% On Error Resume Next
' rs.movefirst
do while Not rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
%>
<div align="center">
<hr width="40%" align="center"color="red">
<table cellspacing=0 border="1" width="56%" cellpadding =3>
<tr>
<td width="40%"><font size=3 color="#ff9911"><b>编号：</b><%=rs.fields("bh")%></font></td>
<td width="40%"><font size=3 color="#ff9911"><b>姓名：</b><%=rs.fields("name")%></font></td>
</tr>
<tr >
<td width="40%"><font size=3 color="#ff9911"><b>性别：</b><%=rs.fields("sex")%></font></td>
<td width="40%"><font size=3 color="#ff9911"><b>单位：</b><%=rs.fields("danwei")%></font></td>
</tr>
<tr >
<td width="40%"><font size=3 color="#ff9911"><b>生日：</b><%=rs.fields("bir")%></font></td>
<td width="40%"><font size=3 color="#ff9911"><b>籍贯：</b><%=rs.fields("home")%></font></td>
</tr>
<tr >
<td width="40%"><font size=3 color="#ff9911"><b>email：</b><%=rs.fields("email")%></font></td>
<td width="40%"><font size=3 color="#ff9911"><b>备注：</b><%=rs.fields("beizhu")%></font></td>
</tr>
</table>
</div>
<%rs.MoveNext
loop
' reponse.end
' rs.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -