jssave.asp

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

<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<%
  Set fso=Server.CreateObject("scripting.FileSystemObject")
  Sub DelJS(FileName)
     if fso.FileExists(Server.Mappath("..")&"\JS\"&FileName&".js") then
        fso.DeleteFile(Server.Mappath("..")&"\JS\"&FileName&".js")
     end if
     if fso.FileExists(Server.Mappath("..")&"\JS\"&FileName&".htm") then
        fso.DeleteFile(Server.Mappath("..")&"\JS\"&FileName&".htm")
     end if
  End SUb

  Sub CrJS()
    if request.form("JSNameCN")="" or request.form("JSNameEN")="" then Call Wran("JS中文名称或者英文名称不能为空")
    set rs=Server.CreateObject("adodb.recordset")
    sql="select * from JS where JSNameCN='"&replace(request.form("JSNameCN"),"'","''")&"' or JSNameCN='"&replace(request.form("JSNameEN"),"'","''")&"'"
    rs.open sql,conn,3,3
    if not rs.eof then Call Wran("JS中文名称或者英文名称与现存的JS重名")
    rs.addnew
      rs("JSNameCN")=replace(request.form("JSNameCN"),"'","''")
      rs("JSNameEN")=replace(request.form("JSNameEN"),"'","''")	  
      rs("Type")=request.form("Type")
      if request.form("Type")="文字商务信息" then
        rs("IndexCount")=request.form("IndexCount1")
		rs("NewsTP")=request.form("NewsTP1")
      else
        rs("IndexCount")=request.form("IndexCount")
        rs("PhotoCSS")=request.form("PhotoCSS")
		if request.form("PhotoCSS")="CSS2" then rs("Depict")=request.form("Depict")
        rs("PicWi")=request.form("PicWi")
        rs("PicHi")=request.form("PicHi")
		rs("NewsTP")=request.form("NewsTP")
      end if
    rs.update
    rs.close
    set rs=nothing
	fso.CreateTextFile(Server.Mappath("..")&"\JS\"&replace(request.form("JSNameEN"),"'","''")&".js")
	response.redirect"JSManage.asp"
  End Sub

  Sub MoJS()
    set rs=Server.CreateObject("adodb.recordset")
    sql="select * from JS where ID="&request.form("ID")
    rs.open sql,conn,3,3
      if request.form("Type")="文字商务信息" then
        rs("IndexCount")=request.form("IndexCount1")
		rs("NewsTP")=request.form("NewsTP1")
      else
        rs("IndexCount")=request.form("IndexCount")
        rs("PicWi")=request.form("PicWi")
        rs("PicHi")=request.form("PicHi")
		rs("Depict")=request.form("Depict")
		rs("NewsTP")=request.form("NewsTP")
      end if
    rs.update
    rs.close
    set rs=nothing
    response.redirect"JSManage.asp"
  End Sub


  Sub Wran(content)
%>
  <script>
    history.back()
    alert("<%=content%>")
  </script>
<%
  response.end
  End Sub
%>