admin_reviewsave.asp

新闻发布系统

<!--#include file = include.asp-->
<!--#include file=char.asp-->
<!--#include file = admin_CheckMana.asp-->
<%
'=========================================================
'产品目录：风讯产品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:[e-mail],[e-mail]
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================
  FileName=request.form("FileName")
  Num=request.form("DelID").count
  for i=1 to Num
    conn.execute("Delete From Review Where ID="&request.form("DelID")(i))
  next
  Set rs1=Server.createobject("adodb.recordset")
  sql1="Select * from News Where Filename='"&Filename&"'"
  rs1.open sql1,conn,1,1
  Set rsConfig=Server.createobject("adodb.recordset")
  sqlConfig="Select ReviewTemplet from Config"
  rsConfig.open sqlConfig,conn,1,1
  Set rs2=Server.createobject("adodb.recordset")
  sql2="select * from Review Where Filename='"&Filename&"' order by Date Desc"
  rs2.open sql2,conn,1,1
  Set fso=Server.CreateObject("scripting.FileSystemObject")
  set CrRe=fso.CreateTextFile(Server.mappath("../"&rs1("Lpath")&rs1("FileName")&".asp"))
  AllCount=rs2.recordcount
  while not rs2.eof
    review=review+"评论("&AllCount&")网友<b>"&rs2("name")&"</b>于"&rs2("date")&"发表评论：<blockquote>"&rs2("content")&"</blockquote><hr size=1 color=#c0c0c0>"
    AllCount=AllCount-1
    rs2.movenext
  wend
  ReviewTitle="<div align=center>关于<a href="&FileName&".html>"&rs1("title")&"</a>的评论</div>"
  ReviewTemplet=replace(rsConfig("ReviewTemplet"),"[ReviewContent]",review)
  ReviewTemplet=replace(ReviewTemplet,"[AboutReview]",ReviewTitle)
  CrRe.WriteLine(ReviewTemplet)
  rs1.close
  set rs1=nothing
  rs2.close
  set rs2=nothing
  rsConfig.close
  set rsConfig=nothing
  CrRe.close
  set CrRe=nothing
  response.redirect"admin_ReviewManage.asp?FileName="&request.form("FileName")&""
%>