vew2.asp

论坛系统.有注册,修改,留言,删除等功能,简便容易实现.

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbspp1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%>

<%sql="SELECT * FROM 发言表 WHERE Num='" & Request("Num") & "'"
Set Rs=conn.Execute(sql)
set name4=rs("发言次序")
set name3=rs("用户名")
set name1=rs("发言标题")
set name2=rs("发表的内容")
set name5=rs("电子信箱")
set Num=rs("Num")%>

<%Do Until rs.EOF%>

<%if name4="1" then
ren="发言"
else
ren="回复"
end if%>

<a href="mailto:<%Response.Write name5%>"><%Response.Write Name3%></a><font size="4" color="#FF0000"><strong><%Response.Write ren%>:<%Response.Write Name1%></strong></font><br>
<table border="1" bgcolor="#FFFFFF" cellpadding="10" cellspacing="0"  height="5"
bordercolor="#FE7E5F">
  <tr><td width="555" height="27">
<%Response.Write Name2%></td></tr></table>
<br><br>
<%rs.MoveNext
Loop%>

<%rs.close%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbspp1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%>
<%sql="SELECT * FROM 用户表 WHERE 临时身份<>' ' and 临时身份='" & Request("No") & "'"
Set Rs=conn.Execute(sql)
If Rs.Bof OR Rs.Eof Then
Response.Write "临时身份出错,你无权发言,请从新登陆。"
else
set name=rs("用户名")
set mail=rs("电子信箱")
set url=rs("网址")%>

<%mail=mail
url=url
name=name%>

<%rs.close%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbspp1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%>


<%sql="SELECT * FROM 发言表 WHERE Num='" & Request("Num") & "'"
Set Rs=conn.Execute(sql)
set name1=rs("发言标题")
set name2=rs("发表的内容")
set Num=rs("Num")%>

<form method="POST" action="reword.asp">
<p>您的姓名：<%=name%></p>
<p>回    复：<input type="text" name="topic" value="<%=Rs("发言标题")%>"><p>
<input type="hidden" name="Num" value="<%=Rs("Num")%>">
<input type="hidden" name="mail" value="<%=mail%>">
<input type="hidden" name="url" value="<%=url%>">
<input type="hidden" name="name" value="<%=name%>">
<input type="hidden" name="No" value="<%Response.Write Request("No")%>">
  <p><textarea rows="9" name="conten" cols="57"></textarea></p>
  <p>　　<input type="submit" value="提交" name="B1">　　<input type="reset"
  value="复原" name="B2"></p>
</form>
<%end If%>