📄 reword.asp
字号:
<body bgcolor="#CCCCCC">
<%
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
%>
<%conten=Request.form("conten")
if conten="" then
conten=" "
end if
%>
<%
sz = "'" & Request.Form("Num") &_
"', '"& Request.Form("name") &_
"', '"& Request.Form("mail") &_
"', '"& Request.Form("url") &_
"', '"& Request.Form("topic") &_
"', '"& conten & "'"
into_db = "INSERT INTO 发言表 ( Num, 用户名, 电子信箱, 网址, 发言标题, 发表的内容 ) VALUES(" &_
sz & ")"
conn.Execute(into_db)
sql="SELECT * FROM 发言表 WHERE Num='" & Request.Form("Num") & "' and 发言次序=1"
Set Rs=conn.Execute(sql)
newhits=Rs("回复数")+1
sql="UPDATE 发言表 SET 回复数=" & newhits & " WHERE Num='" & Request.Form("Num") & "' and 发言次序=1"
conn.Execute sql
conn.Close
%>您所输入的回复信息已成功发送出去！！！<br>
<a href="vew.asp?No=<%Response.Write Request("No")%>">返回论坛</a>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -