?? 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 + -