<td><%=rs("body")%></td>
</tr>
<tr>
<td> </td>
<td><div align="right"><%=rs("wm")%>发表于<%=rs("submit_date")%></div></td>
</tr>
</table>
<div align="center"> </div></td>
<%
rs.MoveNext
Loop
%>
</tr>
</table>
</body>
</html>
点击次数页的程序如下：
<%Response.buffer=true%>
<%
dim db
set db=server.CreateObject("adodb.connection")
db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath(".../data/yhzc.mdb")
%>
<%
Dim bbs_id
bbs_id=Request("bbs_id")
sql="Update bbs Set hits=hits+1 Where bbs_id=" & bbs_id
db.Execute(sql)
db.Close
Response.Redirect "brows.asp?bbs_id=" & bbs_id
%>
发表页的程序如下：
<%
dim db
set db=server.CreateObject("adodb.connection")
db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath(".../data/yhzc.mdb")
If Request("title")<>"" And Request("wm")<>"" Then
Dim title,body,layer,parent_id,child,hits,ip,user_name
title=Request.Form("title")
body=Request.Form("body")
wm=Request.Form("wm")
layer=1
parent_id=0
child=0
hits=0
ip=Request.ServerVariables("remote_addr")
Dim sql,svalues
sql="Insert Into
bbs(title,layer,parent_id,child,hits,ip,wm,submit_date"
