一个简单的bbs(六)
日期：2013-06-01 浏览次数：20926 次
阅读和跟贴页面的台detail.asp:
<html>
<head><title>bbs.asp</title></head>
<body background="backgrnd.gif">
<% idnum=Request.QueryString("ID")
Set connbbs = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("bbs.mdb")
connbbs.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set RS=Connbbs.Execute("SELECT * FROM bbs WHERE cstr(ID)="&idnum&"")
connbbs.execute "update bbs set visitnum=visitnum+1 WHERE cstr(ID)="&idnum&"" %>
姓名：<% =RS("authorname") %><p>
主题：<% =RS("subject") %><p>
内容：<% =RS("content") %><p>
<% resub="Re:" & RS("subject")
mtopnum=RS("topnum")
RS.Close
Connbbs.Close %>
<FORM METHOD="POST" ACTION="bbs.asp?ID=<% =idnum %>&topnum=<% =mtopnum %>"><P>
姓名: <INPUT NAME="name" SIZE="28">
密码: <INPUT TYPE="password" NAME="code" SIZE="28"><P>
主题：<INPUT NAME="subject" SIZE="66" VALUE="<% =resub %>"><P>
内容：<P>
<TEXTAREA NAME="content" ROWS=20 COLS=72></TEXTAREA><P>
<CENTER><INPUT TYPE=SUBMIT VALUE="信息回复">
<INPUT TYPE=RESET VALUE="清除信息"></CENTER>
</FORM>
<a href="dispbbs.asp">返回论坛</a>
</body>
</html>
<html>
<head><title>bbs.asp</title></head>
<body background="backgrnd.gif">
<% idnum=Request.QueryString("ID")
Set connbbs = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("bbs.mdb")
connbbs.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set RS=Connbbs.Execute("SELECT * FROM bbs WHERE cstr(ID)="&idnum&"")
connbbs.execute "update bbs set visitnum=visitnum+1 WHERE cstr(ID)="&idnum&"" %>
姓名：<% =RS("authorname") %><p>
主题：<% =RS("subject") %><p>
内容：<% =RS("content") %><p>
<% resub="Re:" & RS("subject")
mtopnum=RS("topnum")
RS.Close
Connbbs.Close %>
<FORM METHOD="POST" ACTION="bbs.asp?ID=<% =idnum %>&topnum=<% =mtopnum %>"><P>
姓名: <INPUT NAME="name" SIZE="28">
密码: <INPUT TYPE="password" NAME="code" SIZE="28"><P>
主题：<INPUT NAME="subject" SIZE="66" VALUE="<% =resub %>"><P>
内容：<P>
<TEXTAREA NAME="content" ROWS=20 COLS=72></TEXTAREA><P>
<CENTER><INPUT TYPE=SUBMIT VALUE="信息回复">
<INPUT TYPE=RESET VALUE="清除信息"></CENTER>
</FORM>
<a href="dispbbs.asp">返回论坛</a>
</body>
</html>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
