admin_jstopsave.asp

新闻发布系统

<!--#include file = include.asp-->
<!--#include file = admin_Checkmana.asp-->
<LINK href=css/css.css rel=stylesheet>
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:[e-mail],[e-mail]
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================
%>
<%
   Copyright="\n\n Copyrights Foosun Computer System studios"
   Domain=Request.ServerVariables("SERVER_NAME")
   soFilePath=Request.ServerVariables("PATH_INFO")
   soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
   totoln=len(soFilePath)
   soFilePath=lcase(left(soFilePath,totoln-1))
   soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
   sowinpath=Domain&soFilePath 
  
  indexcount=trim(request.form("indexcount"))
  TitleNum=request.form("TitleNum")
  JSdaxiao=request.form("JSdaxiao")
  JStitlepic=request.form("JStitlepic")
  
  '*输入判断开始******************
 if request.form("JSNameCN")="" or request.form("JSNameEN")="" then 
    Response.write"<script>alert(""中文名称和英文名称不能为空 "&Copyright&""");location.href=""javascript:history.back()"";</script>"
    Response.end
	end if
    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 
    Response.write"<script>alert(""TOPjs已经存在，请重新输入"&Copyright&""");location.href=""javascript:history.back()"";</script>"
    Response.end
      end if
	 '*输入判断结束******************
	  rs.addnew
      rs("JSNameCN")=replace(request.form("JSNameCN"),"'","''")
      rs("JSNameEN")=replace(request.form("JSNameEN"),"'","''")	
	  rs("JStitlepic")=request.form("JStitlepic")  
      rs("IndexCount")=request.form("IndexCount")
	  rs("TitleNum")=request.form("TitleNum")
	  rs("Type")=request.form("Type")
	  rs("JSdate")=request.form("JSdate")
      rs("JSdaxiao")=request.form("JSdaxiao")
      rs.update
      rs.close
      set rs=nothing
	  '--------------
    set rs=Server.CreateObject("adodb.recordset")
    sql="Select * from News order by Click Desc"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select * from js"
    rs3.open sql3,conn,1,1
	title3=rs3("TitleNum")
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrLNJS=MyFile.CreateTextFile(Server.Mappath("..")&"\codejs\"&replace(request.form("JSNameEN"),"'","''")&".js")
	for i=1 to indexcount
      if rs.eof then exit for
	  '*是否显示日期开始******************
  
	  if request.form("JSdate")="" then
        Content=""&JStitlepic&"<a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&rs("Title")&"</a><br>"
      else
        Content=""&JStitlepic&"<a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&rs("Title")&"</a><font size="&JSdaxiao&" color=#8B8B8B>"&rs("Date")&"</font><br>"
      end if
	 '*是否显示日期结束******************
	  
      CrLNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    rs.close
    set rs=nothing
    rs3.close
    set rs3=nothing
    CrLNJS.close
	set MyFile=nothing

	  'JS生成结束--------------
     Response.write"<script>alert(""成功生成TopJS "&Copyright&""");location.href=""javascript:history.back()"";</script>"
     Response.end

%>