replydo.asp

来自「很好的企业网站管理系统!可以适应各种不同的小型企业!」· ASP 代码 · 共 57 行

ASP
57 行
字号 
<head>
<title>评论添加</title>
<style>
td{font-size:9pt;line-height:140%} 
body{font-size:9pt;line-height:140%} 
a:link       { color: #0033CC; text-decoration: none }
a:visited    { color: #0033CC; text-decoration: none }
a:active     { color: #FF0000; text-decoration: none }
a:hover      { color: #000000; text-decoration: underline}
</style>
</head>


<!--#include file="conn2.asp"-->
<!--#include file="admin/config.asp"-->

<% 
   content=request.form("content")
   infoid=request.form("infoid")
   user=request.form("username")
   password=request.form("password")
   if user="" or content="" then 
   response.write("<script>alert('请填写评论内容，不能留空！');location.href='javascript:history.go(-1)'</script>")
   else
   date=Now()+webtime/24
   if check="1" then
   set rs=server.createobject("adodb.recordset")
   sql="select*from Reply"
   rs.open sql,conn,3,2
   rs.addnew
   rs("username")=user
   rs("infoid")=infoid
   rs("content")=content
   rs("date")=date
   rs("check")=check
   rs.update
   rs.close
   response.write("<script>alert('成功:添加评论完成，即将刷新新闻html页!');location.href='admin/replyhtml.asp?type=page&id="&infoid&"'</script>") 
   response.end
   else
   set rs=server.createobject("adodb.recordset")
   sql="select*from Reply"
   rs.open sql,conn,3,2
   rs.addnew
   rs("username")=user
   rs("infoid")=infoid
   rs("content")=content
   rs("date")=date
   rs("check")=check
   rs.update
   rs.close
   response.write("<script>alert('成功:添加评论完成，正在等待管理员的审核!');location.href='javascript:history.go(-1)'</script>")
   response.end 
   end if
end if 

%>

replydo.asp - 源码说明

本页面展示了「很好的企业网站管理系统!可以适应各种不同的小型企业!」中的 replydo.asp 源码文件，采用 ASP 编程语言编写，共 57 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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