jsdelsave.asp

很好的企业网站管理系统!可以适应各种不同的小型企业!

<!--#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/)告诉我们。 
'#################################################################
  Domain=Request.ServerVariables("SERVER_NAME")
  gFilePath=Request.ServerVariables("PATH_INFO")
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  CountN=len(gFilePath)
  gFilePath=lcase(left(gFilePath,CountN-1))
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  AllPath="http://"+Domain&gfilepath

  Sub WordNews()    
    set rs=Server.CreateObject("adodb.recordset")
    sql="select * from JSFile where JSType='文字新闻' and JSName='"&request.form("JSName")&"'"
    FileName=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select IndexCount,JSNameEN,NewsTP from JS where Type='文字新闻' and JSNameCN='"&request.form("JSName")&"'"
    rs3.open sql3,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\JS\"&rs3("JSNameEN")&".js")
    for i=1 to rs3("IndexCount")
      if rs.eof then exit for
      Content=""&rs3("NewsTP")&"<a href="&AllPath&"html/"&FileName&"-1.html target=_blank>"&rs("Title")&"</a><br>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    rs.close
    set rs=nothing
  End Sub

  Sub CSS1()
    set rs=Server.CreateObject("adodb.recordset")
    sql="select * from JSFile where JSType='图片新闻' and JSName='"&request.form("JSName")&"' order by ID desc"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select IndexCount,JSNameEN,PicWi,PicHi,NewsTP from JS where Type='图片新闻' and JSNameCN='"&request.form("JSName")&"'"
    rs3.open sql3,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\JS\"&rs3("JSNameEN")&".js")
    Table="<table whidth=100% ><tr>"
    CrHNJS.WriteLine("document.write("""&Table&""")")
    for i=1 to rs3("IndexCount")
      if rs.eof then exit for
      FileName=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
      Content="<td align=center nowrap width=129><a href="&AllPath&"html/"&FileName&"-1.html target=_blank><img src="&rs("PhotoPath")&" border=1 style='border-color:#000000' width="&rs3("PicWi")&" height="&rs3("PicHi")&"></a></td>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    Table="</tr><tr>"
    CrHNJS.WriteLine("document.write("""&Table&""")")
    rs.movefirst
    for i=1 to rs3("IndexCount")
      if rs.eof then exit for
      FileName=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
      Content="<td>"&rs3("NewsTP")&"<a href="&AllPath&"html/"&FileName&"-1.html target=_blank>"&rs("Title")&"</a><br></td>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    Table="</tr></table>"
    CrHNJS.WriteLine("document.write("""&Table&""")")
    rs.close
    set rs=nothing
  End Sub

  Sub CSS2()
    set rs=Server.CreateObject("adodb.recordset")
    sql="select * from JSFile where JSType='图片新闻' and JSName='"&request.form("JSName")&"' order by ID desc"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select Depict,IndexCount,JSNameEN,PicWi,PicHi,NewsTP from JS where Type='图片新闻' and JSNameCN='"&request.form("JSName")&"'"
    rs3.open sql3,conn,1,1

    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\JS\"&rs3("JSNameEN")&".js")
    set CrHNHt=MyFile.CreateTextFile(Server.MapPath("..")&"\JS\"&rs3("JSNameEN")&".html")
    CrHNHt.WriteLine("<script src="&rs3("JSNameEN")&".js></script>")
    Table="<table whidth=100% >"
    CrHNJS.WriteLine("document.write("""&Table&""")")
    for i=1 to rs3("IndexCount")
      if rs.eof then exit for
      filenamey=rs("FileName")
      FileName=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
      set rs4=Server.CreateObject("adodb.recordset")
      rs4.open"select * from info Where id="&filenamey,conn,1,1
      depict=left(replace(rs4("info"),"'","''"),rs3("Depict"))
      if instr(depict,chr(13))>0 then depict=replace(depict,chr(13),"")'去回车
      if instr(depict,chr(10))>0 then depict=replace(depict,chr(10),"")'去满行
      depict=replace(depict,chr(34),"″")
      Content="<tr><td><a href="&AllPath&"html/"&FileName&"-1.html target=_blank><img src="&rs("PhotoPath")&" border=1 style='border-color:#000000' width="&rs3("PicWi")&" height="&rs3("PicHi")&"></a></td><td width=90% >"&rs3("NewsTP")&"<a href="&AllPath&"html/"&FileName&".html target=_blank>"&rs("title")&"</a><br>&nbsp;&nbsp;"&depict&"....<a href="&AllPath&"html/"&FileName&".html target=_blank>阅读全文</a></td></tr><tr><td colspan=2><hr noshade size=1></td></tr>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    Table="</table>"
    CrHNJS.WriteLine("document.write("""&Table&""")")
    rs.close
    set rs=nothing
  End Sub

  Sub CSS3()
    set rs=Server.CreateObject("adodb.recordset")
    sql="select * from JSFile where JSType='图片新闻' and JSName='"&request.form("JSName")&"' order by ID desc"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select IndexCount,JSNameEN,PicWi,PicHi,NewsTP from JS where Type='图片新闻' and JSNameCN='"&request.form("JSName")&"'"
    rs3.open sql3,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\JS\"&rs3("JSNameEN")&".js")
    for i=1 to rs3("IndexCount")
      if rs.eof then exit for
      FileName=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
      Content="<a href="&AllPath&"html/"&FileName&"-1.html target=_blank><img src="&rs("PhotoPath")&" border=1 style='border-color:#000000' width="&rs3("PicWi")&" height="&rs3("PicHi")&"><br></a>"&rs3("NewsTP")&"<a href="&AllPath&"html/"&FileName&".html target=_blank>"&rs("title")&"</a><br><br>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    rs.close
    set rs=nothing
  End Sub
  Sub result()
%>
<html>
<head>
<title>管理中心 - 晓宇听幽 网站内容管理系统</title>
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body background="images/BLogo.gif">
<form method=post action=html_listLB.asp>
<table width="384" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
  <tr>
      <th height="20" class=forumrow><b>
      <% if session("errorMsg")<>"" then %>
      <img border="0" src="images/NEWWIN.GIF">
      操作错误
      <% else %>
        添加到JS列表成功
      <% end if%>
	  </b></th>
  </tr>
  <tr align="center"> 
    <td height="115" background="images/BLogo.gif" class=forumrow>
        <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><br><br>
             <input type="submit" value=" 确 定 ">
      <% end if %>
    </td>
  </tr>
</table>
</form>
</body>
</html>
<% end Sub%>