restore.asp

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

<!--#include file=include.asp-->
<!--#include file=char.asp-->
<%
'==========================================
'=                                        =
'=                  =
'=                                        =
'=           =
'=                                        =
'==========================================
'=            =
'=    子程序作用：恢复被删除的商务信息        =
'=    程序创建时间：2002-10-20      =
'=    程序完成时间：2002-10-20      =
'=    最后修改时间：2002-10-25      =
'==========================================
  if request.querystring("NewsID")="" then response.redirect"Recycle.asp"
  set rs=Server.CreateObject("adodb.recordset")
  sql="select * from Recycle where NewsID="&request.querystring("NewsID")
  rs.open sql,conn,1,1

      set rs2=server.createobject("adodb.recordset")
      sql2="select * from News"
      rs2.open sql2,conn,3,3
      rs2.addnew
      rs2("Title")=rs("Title")
      rs2("Content")=rs("Content")
      rs2("Keyword")=rs("Keyword")
      rs2("Date")=rs("Date")
      rs2("Source")=rs("Source")
      rs2("Templet")=rs("Templet")
      rs2("Author")=rs("Author")
      rs2("Editer")=rs("Editer")
      rs2("click")=rs("click")
      rs2("FileName")=rs("FileName")
      rs2("Recommend")=rs("Recommend")
      rs2("BigClassCN")=rs("BigClassCN")
	  rs2("BigClassEN")=rs("BigClassEN")
      rs2("SmallClassCN")=rs("SmallClassCN")
	  rs2("SmallClassEN")=rs("SmallClassEN")
	  rs2.update


  set rs1=Server.CreateObject("adodb.recordset")
  sql1="select * from SmallClass where SmallClassCN='"&rs("SmallClassCN")&"' and BigClassCN='"&rs("BigClassCN")&"'"
  rs1.open sql1,conn,1,1
  Set rs3=Server.CreateObject("adodb.recordset")
  sql3="Select * from Templet Where TempletName='"&rs("Templet")&"'"
  rs3.open sql3,conn,1,1

  Domain=Request.ServerVariables("SERVER_NAME")
  gFilePath=Request.ServerVariables("PATH_INFO")
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  CountN=len(gFilePath)
  gFilePath=lcase(left(gFilePath,CountN-1))
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  AllPath=Domain&gfilepath

  function CrHt(content)
  CrHt=content
  if content <> "" then
    set rsCfg=Server.CreateObject("adodb.recordset")
    sqlCfg="Select * from Config"
    rsCfg.open sqlCfg,conn,1,1
    CrHt=replace(CrHt,"[url]",""&rsCfg("Domain")&"")
    rsCfg.close
    set rsCfg=nothing
    if Session("Html")="false" then
      CrHt=replace(CrHt,"[content]",""&ubb(unHtml(rs("content")))&"")
    else
      CrHt=replace(CrHt,"[content]",""&Cen(rs("content"))&"")
    end if
    CrHt=replace(CrHt,"[title]",""&rs("title")&"")
    CrHt=replace(CrHt,"[filetitle]","<title>"&rs("title")&"</title>")
    CrHt=replace(CrHt,"[source]",""&rs("source")&"")
    CrHt=replace(CrHt,"[editer]",""&rs("editer")&"")
    CrHt=replace(CrHt,"[author]",""&rs("author")&"")
    CrHt=replace(CrHt,"[date]",""&rs("date")&"")
    CrHt=replace(CrHt,"[click]","<script src=http://"&AllPath&"ClickCount.asp?filename="&rs("filename")&"></script>")
    CrHt=replace(CrHt,"[hotnews]","<script src=http://"&AllPath&"hotnews.js></script>")
    CrHt=replace(CrHt,"[recommendnews]","<script src=http://"&AllPath&"/RecommendNews.js></script>")
    CrHt=replace(CrHt,"[newssearch]","<script src=http://"&AllPath&"newssearch.js></script>")
  end if
  end function

    Templet=CrHt(rs3("TempletContent"))
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    Set CrFi=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rs("BigClassEN")&"\"&rs("SmallClassEN")&"\"&rs("FileName")&".htm")
    Set CrReFi=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rs("BigClassEN")&"\"&rs("SmallClassEN")&"\"&rs("FileName")&".html")
    CrReFi.writeLine("<title>"&rs("title")&"</title><div align=center><font size=4>关于<b><<a href="&rs("FileName")&".htm target=_blank>"&rs("title")&"</a>></b>的评论<br><br><br><br>暂时没有评论</font></div>")
    set rsKey=Server.CreateObject("adodb.recordset")
    sqlKey="Select * from News Where Keyword like '%"&rs("Keyword")&"%' order by Date Desc"
    rsKey.open sqlKey,conn,1,1
    for i=1 to rs1("MNCount")
      if rsKey.eof then exit for
      correlation=correlation+""&rs1("MNTitle")&"<a href= http://"&AllPath&""&rsKey("BigClassEN")&"/"&rsKey("SmallClassEN")&"/"&rsKey("FileName")&".htm target=_blank>"&rsKey("title")&"</a><br>"
      rsKey.MoveNext
    next
    session("FilePath")="<font color=red>商务信息文件名：</font><a href= http://"&AllPath&""&rs("BigClassEN")&"/"&rs("SmallClassEN")&"/"&rs("FileName")&".htm target=_blank>"&rs("FileName")&".htm</a><br>"
    Templet=replace(Templet,"[correlation]",""&correlation&"")
    Templet=replace(Templet,"[review]","<form method=post action=../../add_review.asp><input type=hidden Name=FileName value="&rs("FileName")&"><input type=hidden Name=Title value="&rs("title")&"><input type=hidden name=BigClassCN value="&rs("BigClassCN")&"><input type=hidden name=BigClass value="&rs("BigClassEN")&"><input type=hidden name=SmallClass value="&rs("SmallClassEN")&">"&replace(rs1("ReviewCSS"),"[morereview]","<a href="&rs("Filename")&".html target=_blank>查看评论</a>")&"</form>")
    CrFi.Writeline(""&Templet&"")
    rs1.close
    set rs2=nothing
    rs.close
    set rs=nothing
    CrFi.close
	conn.execute("delete from Recycle where NewsID="&request.querystring("NewsID"))
%>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<body background="images/BLogo.gif">
<form method=post action=recycle.asp>
 <table  width="349" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
  <tr bgcolor="#AED2E6" >
      <td height="20"><b>
        恢复文件成功
	  </b></td>
  </tr>
  <tr align="center"> 
    <td height="115" bgcolor="#FFFFFF" background="images/BLogo.gif">
        <font color=red><%=session("errormsg")%></font>
      <% if session("errorMsg")<>"" then %>
	     <br><br><br>
		 <input type="button" value=" 返 回 " onclick="javascript:history.back()">
      <% else  %>
             <br>按确定键返回"回收站"<br><br><%=session("FilePath")%><br><br>
             <input type="submit" value=" 确 定 ">
      <% end if %>
    </td>
  </tr>
</table>
</form>
</body>