📄 item2.asp
字号:
<html>
<head>
<title></title>
</head>
<body bgcolor="#CCFFFF">
<%
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
%> <%sql="SELECT * FROM user WHERE pois='" & Request("No") & "'"
Set Rs=conn.Execute(sql)
If Rs.Bof OR Rs.Eof Then
%>
<script language=javascript>
<!--
alert("身份出错,你无权发言,请从新登陆。");
window.history.go(-1);
//-->
</script>
<%
else%> <%
sz = "'" & Request.Form("Num") &_
"', '"& Request.Form("rewordnum") &_
"', '"& Request.Form("Num1") &_
"', '"& Request.Form("name") &_
"', '"& Request.Form("mail") &_
"', '"& Request.Form("url") &_
"', '"& Request.Form("topic") &_
"', '"& replace(replace(Request.form("conten"),vbcrlf,"<br>"),"'","''") & "'"
into_db = "INSERT INTO info ( Num, recallnm, forder, username, email, web, subject, neirong ) VALUES(" &sz&")"
conn.Execute(into_db)
conn.Close
%>
<script language=javascript>
<!--
alert("提交成功！！！");
window.location.href="look.asp?No=<%Response.Write Request("No")%>";
//window.open("look.asp?No=<%Response.Write Request("No")%>");
//-->
</script>
<%end If%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -