IDC资讯中心
阅读和跟贴页面的台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>
