newssave.asp

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

	  ObjSmallclass=rs("Smallclass")
	  ObjSmallclass=rs("Smallclass")
	  for i=1 to request.form("DelID").count
	    set rs1=conn.execute("select FileName from News where NewsID="&request.form("DelID")(i))
	    FileName=rs1("FileName")
        for u=1 to 30		   
		  if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&"-"&u&".htm") then 
            MyFile.MoveFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&"-"&u&".htm"),(Server.MapPath("..")&"\"&ObjBigclass&"\"&ObjSmallclass&"\"&FileName&"-"&u&".htm")
		  end if
		next
		if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&".htm") then 
          MyFile.MoveFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&".htm"),(Server.MapPath("..")&"\"&ObjBigclass&"\"&ObjSmallclass&"\"&FileName&".htm")
		end if
        if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&".html") then 
	      MyFile.MoveFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&".html"),(Server.MapPath("..")&"\"&ObjBigclass&"\"&ObjSmallclass&"\"&FileName&".html")
	    end if
		conn.execute("Update News set Bigclass='"&ObjBigclass&"' Where NewsID="&request.form("DelID")(i))
		conn.execute("Update News set Bigclass='"&ObjBigclass&"' Where NewsID="&request.form("DelID")(i))
		conn.execute("Update News set Smallclass='"&ObjSmallclass&"' Where NewsID="&request.form("DelID")(i))
		conn.execute("Update News set Smallclass='"&ObjSmallclass&"' Where NewsID="&request.form("DelID")(i))
		conn.execute("Update Review set Bigclass='"&ObjBigclass&"' Where FileName='"&FileName&"'")
		conn.execute("Update Review set Bigclass='"&ObjBigclass&"' Where FileName='"&FileName&"'")
		conn.execute("Update Review set Smallclass='"&ObjSmallclass&"' Where FileName='"&FileName&"'")
		conn.execute("Update Review set Smallclass='"&ObjSmallclass&"' Where FileName='"&FileName&"'")
		conn.execute("Update JSFile set Smallclass='"&ObjSmallclass&"' Where FileName='"&FileName&"'")
		conn.execute("Update JSFile set Bigclass='"&ObjBigclass&"' Where FileName='"&FileName&"'")    
	  next
  End Sub
  
  Sub Del()
    session("FilePath")=""
    Num=request.form("DelID").count
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    for i=1 to Num
      set rs=Server.CreateObject("adodb.Recordset")
      sql="Select comname,bigclass,smallclass,lianxi,owner,tel,fax,webhost,address,date,connet,level,resources,finder from News where NewsID="&request.form("DelID")(i)
      rs.open sql,conn,1,1
      set rs1=server.createobject("adodb.recordset")
      sql1="select comname,bigclass,smallclass,lianxi,owner,tel,fax,webhost,address,date,connet,level,resources,finder from Recycle"
      rs1.open sql1,conn,3,3
      rs1.addnew
      rs1("comname")=rs("comname")
      rs1("bigclass")=rs("bigclass")
      rs1("smallclass")=rs("smallclass")
      rs1("lianxi")=rs("lianxi")
      rs1("owner")=rs("owner")
      rs1("tel")=rs("tel")
      rs1("fax")=rs("fax")
      rs1("webhost")=rs("webhost")
      rs1("address")=rs("address")
      rs1("date")=rs("date")
      rs1("connet")=rs("connet")
      rs1("level")=rs("level")
      rs1("resources")=rs("resources")
      rs1("finder")=rs("finder")
      rs1.update
      rs1.close
      set rs1=nothing
      rs.close
      set rs=nothing
      conn.execute("Delete From News Where NewsID="&request.form("DelID")(i))
      conn.execute("Delete From Review Where FileName='"&FileName&"'")
      if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&".htm") then
        MyFile.DeleteFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&"*.htm")
      end if
      if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&".html") then
        MyFile.DeleteFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&".html")
      end if
    next
    if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\index.js") then
      MyFile.DeleteFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\*.js")
    end if
    if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("Smallclass")&"*.js") then
      MyFile.DeleteFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("Smallclass")&"*.js")
    end if
    if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("Smallclass")&"*.htm") then
      MyFile.DeleteFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("Smallclass")&"*.htm")
    end if
    if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\index.htm") then
      if MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("Smallclass")&"*.htm") then
	    MyFile.DeleteFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("Smallclass")&"*.htm")
      end if
	  MyFile.DeleteFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\index.htm")
    end if
	set MyFile=nothing
  End Sub

  Sub AuditingNews()
    Call CheckAuditing
    session("FilePath")=""
    Num=request.form("DelID").count
	for i=1 to num
	  conn.execute("update News set Auditing=1 where NewsID="&request("DelID")(i))
	next
  End Sub

  Sub DEAuditingNews()
    Call CheckAuditing
    session("FilePath")=""
    Num=request.form("DelID").count
	for i=1 to num
	  conn.execute("update News set Auditing=0 where NewsID="&request("DelID")(i))
	next
  End Sub

  Sub Warn()
%>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<body background="images/BLogo.gif">
<form method=post action=NewsManage.asp?Smallclass=<%=request.form("Smallclass")%>&Bigclass=<%=request.form("Bigclass")%>>
 <table  width="349" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
  <tr bgcolor="#AED2E6" >
      <td height="20"><b>
      <td height="20"><b>
       <%
       if session("errormsg")<>"" then
	     response.write("操作错误")
	   else
	     response.write result
	   end if
	  %>
	  </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><%=session("depict")%><br>
             <input  value=" 确 定 " type="button" onclick="javascript:history.back()">
      <% end if %>
    </td>
  </tr>
</table>
</form>
</body>
<% end Sub %>

     <%
    result=request.querystring("result")
    select case result
    case "ADD"
      Call CheckText      
      Call Add
	  Call Pagination("CreateHtml")
      Call CrIndexJs
      Call CrMoreJS
      Call HotNews
      Call RecommendNews
      Call CrBigClassJS
	  Call LastNews
	  Call CategoryHotNews
	  Call CategoryRecommendNews
	  Call CategoryLastNews
      result="添加商务信息成功"
      Call Warn
    case "Modify"
      Call CheckText      
      Call Modify
	  Call Pagination("ModifyHtml")
      Call CrIndexJs
      Call CrMoreJS
      Call HotNews
      Call RecommendNews
      Call CrBigClassJS
	  Call LastNews
	  Call CategoryHotNews
	  Call CategoryRecommendNews
	  Call CategoryLastNews
      result="修改商务信息成功"
      Call Warn
    case "exe"
	  if request.form("exe")="del" then
        Call Del
        Call CrIndexJs()
        Call CrMoreJS
        Call HotNews
        Call RecommendNews
        Call CrBigClassJS
	    Call LastNews
	    Call CategoryHotNews
	    Call CategoryRecommendNews
	    Call CategoryLastNews
		result="删除商务信息成功"
        Call Warn
	  elseif request.form("exe")="move" then
	    Call CheckMove
	    Call MoveNews
	    Call RecommendNews
	    Call HotNews
	    Call LastNews
        Call CrIndexJs
        Call CrMoreJS
	    Call CrBigClassJS
	    Call CategoryHotNews
	    Call CategoryRecommendNews
	    Call CategoryLastNews
	    result="转移商务信息成功"
	    Call Warn
	  elseif request.form("exe")="auditing" then
	    Call AuditingNews
	    Call RecommendNews
	    Call HotNews
	    Call LastNews
        Call CrIndexJs
        Call CrMoreJS
	    Call CrBigClassJS
	    Call CategoryHotNews
	    Call CategoryRecommendNews
	    Call CategoryLastNews
	    result="审核商务信息成功"
	    Call Warn
	  elseif request.form("exe")="deauditing" then
	    Call DEAuditingNews
	    Call RecommendNews
	    Call HotNews
	    Call LastNews
        Call CrIndexJs
        Call CrMoreJS
	    Call CrBigClassJS
	    Call CategoryHotNews
	    Call CategoryRecommendNews
	    Call CategoryLastNews
	    result="取消审核商务信息成功"
	    Call Warn
	  elseif request.form("exe")="res" then
	    for i=1 to request.form("DelID").count
	      conn.execute("update News set resources=1 where NewsID="&request.form("DelID")(i))
		next
		session("errormsg")=""
        result="设置共享信息成功"
		Call Warn
	  elseif request.form("exe")="unres" then
	    for i=1 to request.form("DelID").count
	      conn.execute("update News set resources=0 where NewsID="&request.form("DelID")(i))
		next
		session("errormsg")=""
        result="设置不共享信息成功"
		Call Warn
	  else
	    session("errormsg")="请选择您要的操作"
	    Call Warn
	  end if
	end select
%>