add_review.asp

来自「新闻发布系统」· ASP 代码 · 共 90 行

ASP

90 行

<!--#include file = Fsmanage/char.asp-->
<!--#include file = conn.asp-->

<head>
<title>添加新闻评论</title>
<LINK href=Fsmanage/css/css.css rel=stylesheet>
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================
  FileName=request.form("FileName")
  if request.form("Content")="" or request.form("Name")="" then
%>
    <script luanage=javascript>
      history.back()
      alert("名字和评论内容不能为空")
    </script>
<%
  response.end
  end if
 If len(request.Form("content"))>400 then
  %>
 <script luanage=javascript>
      history.back()
      alert("评论内容不能超过400个字符!")
 </script>
<%
response.end
end if
  %>
<%
  Set rso=Server.createobject("adodb.recordset")
  sqlo="Select * from News Where Filename='"&Filename&"'"
  rso.open sqlo,conn,1,1
  Set rs=Server.createobject("adodb.recordset")
  sql="select * from Review"
  rs.open sql,conn,3,3
  rs.AddNew
  rs("Name")=left(unHtml(request.form("Name")),10)
  rs("ClassEN")=rso("ClassEN")
  rs("ClassCN")=rso("ClassCN")
  rs("Content")=unHtml(replace(request.form("Content"),"'","''"))
  rs("IP")=request.ServerVariables("remote_addr")
  rs("FileName")=FileName
  rs("date")=Now()
  rs("Title")=rso("Title")
  rs.update
  rs.close
  set rs=nothing
  Set rsConf=Server.createobject("adodb.recordset")
  sqlConf="Select * from Config"
  rsConf.open sqlConf,conn,1,1
  Set rso2=Server.createobject("adodb.recordset")
  sql2="select * from Review Where Filename='"&Filename&"' order by Date Desc"
  rso2.open sql2,conn,1,1
  Set fso=Server.CreateObject("scripting.FileSystemObject")
  set CrRe=fso.CreateTextFile(Server.mappath(""&rso("lpath")&rso("FileName")&".asp"))
  AllCount=rso2.recordcount
  while not rso2.eof
    review=review+"评论("&AllCount&")网友<b>"&rso2("name")&"</b>于"&rso2("date")&"发表评论：<blockquote>"&rso2("content")&"</blockquote><hr size=1 color=#c0c0c0>"
    AllCount=AllCount-1
    rso2.movenext
  wend
  ReviewTitle="<div align=center>关于<a href="&FileName&".html>"&rso("title")&"</a>的评论</div>"
  ReviewTitle=ReviewTitle&"<form method=post action=../../add_review.asp> 会员名：<input type=text name=Name><input type=hidden Name=FileName value="&request.form("FileName")&"><input type=submit name=Submit value=发表评论><br><textarea name=Content cols=60 rows=2 title=不支持HTML，支持UBB代码></textarea></form></body>"
  ReviewTemplet=replace(rsConf("ReviewTemplet"),"[ReviewContent]",review)
  ReviewTemplet=replace(ReviewTemplet,"[AboutReview]",ReviewTitle)
  CrRe.WriteLine(ReviewTemplet)
  response.redirect(""&rso("lpath")&rso("FileName")&".asp")
  rso.close
  set rso=nothing
  rso2.close
  set rso2=nothing
  rsConf.close
  set rsConf=nothing
  CrRe.close
  set CrRe=nothing
%>
</head>

add_review.asp - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?