📄 wordadd2.asp
字号:
<body bgcolor="#C4FFE0">
<%
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 临时身份='" & Request("No") & "'"
Set Rs=conn.Execute(sql)
If Rs.Bof OR Rs.Eof Then
Response.Write "临时身份出错,你无权发言,请从新登陆。"
else%>
<%
sz = "'" & Request.Form("Num") &_
"', '"& Request.Form("rewordnum") &_
"', '"& Request.Form("Num1") &_
"', '"& Request.Form("name") &_
"', '"& Request.Form("mail") &_
"', '"& Request.Form("url") &_
"', '"& Request.Form("topic") &_
"', '"& Request.form("conten") & "'"
into_db = "INSERT INTO 发言表 ( Num, 回复数, 发言次序, 用户名, 电子信箱, 网址, 发言标题, 发表的内容 ) VALUES(" &_
sz & ")"
conn.Execute(into_db)
conn.Close
%><br><br><br><br><br><br>
<p> 您的数据已经写入数据库！！！<p><br>
<p><a href="vew.asp?No=<%Response.Write Request("No")%>"> 刷新论坛</a><p>
<%end If%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -