📄 sword.asp
字号:
<html>
<head>
<title></title>
</head>
<body bgcolor="#C4FFE0">
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.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=replace(Request.form("conten"),"'","''")
conten=replace(conten,vbcrlf,"<br>")
if conten="" then
conten=" "
end if
%>
<%
sz = "'" & Request.Form("Num") &_
"', '"& Request.Form("name") &_
"', '"& Request.Form("mail") &_
"', '"& Request.Form("url") &_
"', '"& Request.Form("topic") &_
"', '"& replace(replace(conten,"'","''"),vbcrlf,"<br>") & "'"
into_db = "INSERT INTO info ( Num, username, email, web, subject, neirong ) VALUES(" &_
sz & ")"
conn.Execute(into_db)
sql="SELECT * FROM info WHERE Num='" & Request.Form("Num") & "' and forder=1"
Set Rs=conn.Execute(sql)
newhits=Rs("recallnm")+1
sql="UPDATE info SET recallnm=" & newhits & " WHERE Num='" & Request.Form("Num") & "' and forder=1"
conn.Execute sql
conn.Close
%>
<script language=javascript>
<!--
alert("您所输入的回复信息已成功发送出去！");
window.location.href="look.asp?No=<%Response.Write Request("No")%>";
//-->
</script>
<%
response.end
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -