reviewsave.asp

天创商务网客户资源管理系统 v1,asp+Access,iis5

<!--#include file = include.asp-->
<!--#include file=char.asp-->
<%
'==========================================
'=                                        =
'=                  =
'=                                        =
'=           =
'=                                        =
'==========================================
'=            =
'=    子程序作用：删除评论内容文件        =
'=    程序创建时间：2002-10-27      =
'=    程序完成时间：2002-10-27      =
'=    最后修改时间：2002-10-27      =
'==========================================
  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("BigClassEN")&"\"&rs1("SmallClassEN")&"\"&rs1("FileName")&".html"))
  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&".htm>"&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"ReviewManage.asp?FileName="&request.form("FileName")&""
%>