www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/JSSave.asp

    <!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'==========================================
'
'  晓宇听幽新闻文章管理系统 2004
'
'  主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
  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&".html") then
        fso.DeleteFile(Server.Mappath("..")&"\JS\"&FileName&".html")
     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")
        rs("sort")=request.form("sort1")
      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")
      rs("sort")=request.form("sort")
      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("sort")=request.form("sort1")
        rs("IndexCount")=request.form("IndexCount1")
		rs("NewsTP")=request.form("NewsTP1")
      else
        rs("IndexCount")=request.form("IndexCount")
        rs("sort")=request.form("sort")
        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
%>