item2.asp

来自「大家好」· ASP 代码 · 共 50 行

ASP
50 行
字号 
<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>

item2.asp - 源码说明

本页面展示了「大家好」中的 item2.asp 源码文件，采用 ASP 编程语言编写，共 50 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与家相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?