reword.asp

来自「论坛系统.有注册,修改,留言,删除等功能,简便容易实现.」· ASP 代码 · 共 33 行

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

reword.asp - 源码说明

本页面展示了「论坛系统.有注册,修改,留言,删除等功能,简便容易实现.」中的 reword.asp 源码文件，采用 ASP 编程语言编写，共 33 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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