<tr>
<td width="12%"><div align="right">主题:</div></td>
<td width="88%"><%=rs("title")%></td>
</tr>
<tr>
<td><div align="right">内容:</div></td>
<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"
首页 上一页 6 7 8 9 10 11 12 下一页 尾页 9/14/14
ASP同学录设计asp+sql(九)由毕业论文网（www.huoyuandh.com）会员上传。
