📄 ch6-24-bbsgroup.asp
字号:
<!--#INCLUDE file="ch6-24-ADOFunctions.asp"-->
<%
'显示留言子程序，将在以后的程序中调用
Sub ShowPage(RS,PageNo)
Response.Write "<TABLE ALIGN ='center' width='90%'>"
RS.AbsolutePage=PageNo
For i=1 To RS.PageSize
Response.Write"<TR BGCOLOR='LIGHTBLUE'>"
Response.Write"<TD WIDTH='15%'><IMG SRC='img1.gif'></TD>"
Response.Write"<TD WIDTH='85%'>作者："&RS("writer")&"<BR>主题："&_
RS("title")&"<BR>时间："&RS("date")&"<BR>"&_
"<A HERF='ch6-24-ShowNews.asp? Title="&RS("title")&"'>_
阅读留言或加入讨论</A></TD></TR>"
RS.MoveNext
If RS.EOF Then Exit For
Next
Response.Write"</TABLE>"
End Sub
%>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'读取数据库中留言记录，并按时间降序排列
StrSQL="SELECT * FROM bbstable ORDER BY date DESC"
Set RS=GetSQLRecordset(StrSQL)
'设置分页大小
RS.PageSize=10
PageNo=Request("PageNo") '取浏览者单击的页号
'以下显示所有可链接页号
Response.Write "["
For i=1 To RS.PageCount
Response.Write"<A HERF='ch6-24-BbsGroup.asp ? PageNo="&i&"'>"&i&"</A>" "
Next
Response.Write "]<HR>"
'根据浏览者单击的页号显示该页留言记录
If PageNo<>"" Then
Call ShowPage (RS,PageNo)
Else
Call ShowPage (RS,1) '若PageNo为空则显示第一页
End If
RS.Close
Set RS=Nothing
'Conn.Close
'Set Conn=Nothing
%>
<HR>
<!--在网页上显示留言输入框，以供留言-->
<FORM METHOD="POST" ACTION="POST.ASP">
<TABLE BORDER="0" WIDTH=90%" ALIGN="CENTER" CELLSPACING="0">
<TR HEIGHT="40" BGCOLOR="#FFFFFF" ALIGN="CENTER" VALIGN="MIDDLE">
<TD>请在此留言</TD></TR>
<TR HEIGHT="40" BGCOLOR="D9F2FF" ALIGN="CENTER" VALIGN="MIDDLE">
<TD WIDTH="15%">作者</TD>
<TD WIDTH="85%"><INPUT TYPE="TEXT" NAME="UserName" SIZE="50">
</TD></TR>
<TR HEIGHT="40" BGCOLOR="D9F2FF" ALIGN="CENTER" VALIGN="MIDDLE">
<TD WIDTH="15%">主题</TD>
<TD WIDTH="85%"><INPUT TYPE="TEXT" NAME="Title" SIZE="50">
</TD></TR>
<TR HEIGHT="40" BGCOLOR="D9F2FF" ALIGN="CENTER" VALIGN="MIDDLE">
<TD WIDTH="15%">内容</TD>
<TD WIDTH="85%"><TEXTAREA NAME="Content" COLS="50" ROWS="10">
</TD></TR>
<TR>
<TD COLSPAN="2" HEIGHT="40" BGCOLOR="#FFFFFF" ALIGN="CENTER">
<INPUT TYPE="SUBMIT" VALUE="提交留言">
<INPUT TYPE="RESET" VALUE="重新输入" >
</TD></TR>
</TABLE>
</FORM>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -