📄 gbook.asp
字号:
<!--#include virtual="/kjasp/func/DB.fun" -->
<html>
<head>
<title>阿毛的访客留言板</title>
</head>
<body TEXT="#000000" BGCOLOR="#FFFFFF" BACKGROUND="../b01.jpg">
<h2 ALIGN="CENTER">阿 毛 的 访 客 留 言 板</h2>
<hr WIDTH="100%">
<%
SQL = "Select * From GuestBook Order By 时间 DESC"
Set rs = GetMdbStaticRecordset( "Gbook.mdb", SQL )
Page = CLng(Request("Page")) ' CLng 不可省略
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
ShowOnePage rs, Page
%>
<div align=right><p>
<form Action="gbook.asp" Method="GET" align="right">
<a HREF="gform.htm"><p>返回留言窗体</a> <%
If Page <> 1 Then
Response.Write "<A HREF=gbook.asp?Page=1>第一页</A> "
Response.Write "<A HREF=gbook.asp?Page=" & (Page-1) & ">上一页</A> "
End If
If Page <> rs.PageCount Then
Response.Write "<A HREF=gbook.asp?Page=" & (Page+1) & ">下一页</A> "
Response.Write "<A HREF=gbook.asp?Page=" & rs.PageCount & ">最后一页</A> "
End If
%> 页次:<font COLOR="Red"><%=Page%>/<%=rs.PageCount%></font> </p>
</form>
</body>
</html>
<!-- 以下为 ShowOnePage 及 RsToGbook 副程序 -->
<%
Sub ShowOnePage( rs, Page )
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
RsToGbook rs
rs.MoveNext
If rs.EOF Then Exit For
Next
End Sub
Sub RsToGbook( rs )
memo=Replace(rs("留言"), vbCrLf, "<BR>" )
If Len(rs("图标")) <> 0 Then
PicHTML = "<IMG SRC=" & rs("图标") & ">"
Else
PicHTML = ""
End If
%>
<table BOBDER="0" WIDTH="100%">
<tr>
<td WIDTH="110"><%=PicHTML%>
</td>
<td><table BORDER="0">
<tr>
<td>作 者:<%=rs("姓名")%></td>
<td>Email:<a HREF="mailto:<%=rs("Email")%>"> <%=rs("Email")%></a></td>
</tr>
<tr>
<td COLSPAN="2">主 题:<%=rs("主题")%></td>
</tr>
<tr>
<td COLSPAN="2" BGCOLOR="#00FFFF"><%=memo%>
</td>
</tr>
<tr>
<td COLSPAN="2">时 间:<%=rs("时间")%></td>
</tr>
</table>
</td>
</tr>
</table>
<hr>
<%
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -