jssave.asp

来自「很好的企业网站管理系统!可以适应各种不同的小型企业!」· ASP 代码 · 共 102 行

<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
  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
%>