📄 view.asp

📁 该资料包含大量网络开发的案例和源代码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
   Dim objconn, sqlstr, rst
   PgSz=10 '设定开关，指定每一页所显示数目，默认为20
   Set objconn = Server.CreateObject("ADODB.Connection")
   constr="Provider=microsoft.jet.oledb.4.0;Data source=" & Server.mappath("mydb.mdb")
   objconn.Open constr
   Set rs = Server.CreateObject("ADODB.Recordset")
   sqlstr = "select * from link "
   rs.Open sqlstr,objconn,1,1
If rs.RecordCount=0 then
   response.write "<P><center>对不起，数据库中没有相关信息！</center></P>"
else
   rs.PageSize = Cint(PgSz) '设定PageSize属性的值
   'Total=INT(rs.recordcount/ PgSz) '计算可显示页面的总数
   Total=rs.pagecount
   PageNo=Request("pageno")   '设定页
   if PageNo="" Then
   PageNo = 1
  end if
  ScrollAction = Request("ScrollAction")     '提交页
select case ScrollAction
case  "首页"
PageNo=1
case  "上一页"
PageNo=PageNo-1
case "下一页" 
PageNo=PageNo+1
case "尾页" 
PageNo=total
end select
if PageNo <1 Then 
PageNo = 1
end if
rs.AbsolutePage = PageNo
position=rs.PageSize*PageNo
pagebegin=position-rs.PageSize+1
if position <rs.RecordCount then
pagend=position
else 
pagend= rs.RecordCount
end if 

Response.Write "<CENTER><P><font color='Navy'><B>数据库查询结果:</B>"
Response.Write "(共有"& rs.RecordCount &"条符合条件的信息,显示"& pagebegin &"-"&pagend&")</font></p>"
response.write "<FORM METHOD=GET ACTION=‘view.asp'>"
response.write "<INPUT TYPE='HIDDEN' NAME='pageno' VALUE='"& PageNo & "'>"
response.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE='首页'>"
if PageNo > 1 Then 
response.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE='上一页'>"
end if 
if RowCount = 0 and PageNo <>Total then 
response.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE='下一页'>"
end if 
response.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE='尾页'></FORM>"
end if

Response.Write "<TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF>"
Response.Write "<TR BGCOLOR=#5FB5E2><FONT SIZE=2><TD><B>主题</B></TD><TD><B>用户</B></TD><TD><B>Email</B></TD><TD><B>发布日期</B></TD></FONT><TR BGCOLOR=#FFFFFF>"
n=0
Do While Not rs.EOF and n<rs.PageSize 
If (n mod 2) =1 then
Response.Write "<TR BGCOLOR=#FFFFFF>"
ELSE
Response.Write "<TR BGCOLOR=#EEEEEE>"
End If
Response.Write "<TD>" & rs("name") & "</td>" 
Response.Write "<TD>" & rs("no") & "</td>" 
Response.Write "<TD>" & rs("zy") & "</td></TR>" 
n=n+1
rs.MoveNext
Loop
Response.Write "</TABLE>" 
'set rs = rs.NextRecordSet
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -