📄 admin_jsdel1.asp

📁 新闻发布系统
💻 ASP
字号:
<!--#include file = "include.asp"-->
<!--#include file = "admin_CheckMana.asp"-->
<%
'=========================================================
'产品目录：风讯产品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:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================
if EnoughPopedom("jsm")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if

   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="Http://"&Domain&soFilePath
	
  function CovtTitle(content)
  if content<>"" then
        CovtTitle=content
	CovtTitle=replace(CovtTitle,"[粗]","<b>")
	if instr(1,CovtTitle,"<b>",1)<>0 then CovtTitle=CovtTitle+"</b>"
	CovtTitle=replace(CovtTitle,"[红]","<font color=ff0000>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[蓝]","<font color=blue>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[绿]","<font color=green>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[紫]","<font color=990099>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[酱]","<font color=790000>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[橙]","<font color=FF6600>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[建议]","<font color=red>[建议]</font>")
	CovtTitle=replace(CovtTitle,"[注意]","<font color=red>[注意]</font>")
	CovtTitle=replace(CovtTitle,"[下载]","<font color=red>[下载]</font>")
	CovtTitle=replace(CovtTitle,"[公告]","<font color=red>[公告]</font>")
	CovtTitle=replace(CovtTitle,"[转载]","<font color=red>[转载]</font>")
	CovtTitle=replace(CovtTitle,"[焦点]","<font color=red>[焦点]</font>")
	CovtTitle=replace(CovtTitle,"[社会]","<font color=red>[社会]</font>")
	CovtTitle=replace(CovtTitle,"[推荐]","<font color=red>[推荐]</font>")
	CovtTitle=replace(CovtTitle,"[原创]","<font color=red>[原创]</font>")
  end if
  End function
  function BTitle(content)
  if content<>"" then
    BTitle=content
    BTitle=replace(BTitle,"[粗]","")
    BTitle=replace(BTitle,"[红]","")
    BTitle=replace(BTitle,"[蓝]","")
    BTitle=replace(BTitle,"[绿]","")
    BTitle=replace(BTitle,"[紫]","")
    BTitle=replace(BTitle,"[酱]","")
    BTitle=replace(BTitle,"[橙]","")
  end if
  End function

  Sub WordNews()    
    set rs=Server.CreateObject("adodb.recordset")
    sql="select * from JSFile where JSType='文字新闻' and JSName='"&request.form("JSName")&"'"
    rs.open sql,conn,1,1
    set rso1=Server.CreateObject("adodb.recordset")
    sqlo1="Select IndexCount,JSNameEN from JS where Type='文字新闻' and JSNameCN='"&request.form("JSName")&"'"
    rso1.open sqlo1,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\otherjs\"&rso1("JSNameEN")&".js")
    for i=1 to rso1("IndexCount")
      if rs.eof then exit for
      Content="<a href="&sowinpath&rs("lpath")&rs("FileName")&".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 rso1=Server.CreateObject("adodb.recordset")
    sqlo1="Select IndexCount,JSNameEN,PicWi,PicHi from JS where Type='图片新闻' and JSNameCN='"&request.form("JSName")&"'"
    rso1.open sqlo1,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\otherjs\"&rso1("JSNameEN")&".js")
    Table="<table whidth=100% ><tr>"
    CrHNJS.WriteLine("document.write("""&Table&""")")
    for i=1 to rso1("IndexCount")
      if rs.eof then exit for
      Content="<td><a href="&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank><img src="&rs("PhotoPath")&" border=0 width="&rso1("PicWi")&" height="&rso1("PicHi")&"></a></td>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    Table="</tr><tr>"
    CrHNJS.WriteLine("document.write("""&Table&""")")
    
    for i=1 to rso1("IndexCount")
      if rs.eof then exit for
	  if len(rs("title"))>12 then
	  title=left(rs("title"),12)
	  else
	  title=rs("title")
	  end if
      Content="<td><a href="&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(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 rso1=Server.CreateObject("adodb.recordset")
    sqlo1="Select Depict,IndexCount,JSNameEN,PicWi,PicHi from JS where Type='图片新闻' and JSNameCN='"&request.form("JSName")&"'"
    rso1.open sqlo1,conn,1,1

    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\otherjs\"&rso1("JSNameEN")&".js")
    set CrHNHt=MyFile.CreateTextFile(Server.MapPath("..")&"\otherjs\"&rso1("JSNameEN")&".html")
    CrHNHt.WriteLine("<script src="&rso1("JSNameEN")&".js></script>")
    Table="<table whidth=100% >"
    CrHNJS.WriteLine("document.write("""&Table&""")")
    for i=1 to rso1("IndexCount")
      if rs.eof then exit for
      set rso2=Server.CreateObject("adodb.recordset")
      sql4="Select Content from News Where FileName='"&rs("FileName")&"'"
      rso2.open sql4,conn,1,1
      depict=left(replace(rso2("Content"),"'","''"),rso1("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="&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank><img src="&rs("PhotoPath")&" border=0 width="&rso1("PicWi")&" height="&rso1("PicHi")&"></a></td><td width=90% >·<a href="&sowinpath&rs("lpath")&"/"&rs("FileName")&".html target=_blank>"&CovtTitle(rs("Title"))&"</a><br>&nbsp;&nbsp;"&depict&"....<a href="&sowinpath&rs("lpath")&"/"&rs("FileName")&".html target=_blank>阅读全文</a></td></tr><tr><td colspan=2</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 rso1=Server.CreateObject("adodb.recordset")
    sqlo1="Select IndexCount,JSNameEN,PicWi,PicHi from JS where Type='图片新闻' and JSNameCN='"&request.form("JSName")&"'"
    rso1.open sqlo1,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\otherjs\"&rso1("JSNameEN")&".js")
    for i=1 to rso1("IndexCount")
      if rs.eof then exit for
      Content="<a href="&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank><img src="&rs("PhotoPath")&" border=0 width="&rso1("PicWi")&" height="&rso1("PicHi")&"><br>"&CovtTitle(rs("Title"))&"</a><br><br>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    rs.close
    set rs=nothing
  End Sub
  
  Sub CSS4()
    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 rso1=Server.CreateObject("adodb.recordset")
    sqlo1="Select IndexCount,JSNameEN,PicWi,PicHi from JS where Type='图片新闻' and JSNameCN='"&request.form("JSName")&"'"
    rso1.open sqlo1,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\otherjs\"&rso1("JSNameEN")&".js")
    for i=1 to rso1("IndexCount")
      if rs.eof then exit for
      Content="<a href="&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank><img src="&rs("PhotoPath")&" border=0 width="&rso1("PicWi")&" height="&rso1("PicHi")&"></a>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    rs.close
    set rs=nothing
  End Sub
  
  Sub result()
%>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<body>
<form method=post action=admin_NewsManage.asp?SmallClassCN=<%=SmallClassCN%>&BigClassCN=<%=BigClassCN%>><TABLE class=body cellSpacing=0 cellPadding=0 width=400 align=center background=pic/err_bg1.gif border=0>
    <TBODY>
      <TR> 
        <TD width=10 height=23><IMG height=23 src="pic/err1.gif" width=24 border=0></TD>
        <TD width=348 height=23>&nbsp;<b> 
          <% if session("errorMsg")<>"" then %>
          操作错误 
          <% else %>
          添加到JS列表成功 
          <% end if%>
          </b></TD>
        <TD vAlign=baseline width=37 height=23 align=right><A onmouseover="MM_swapImage('close','','pic/err_close2.gif',1)" onmouseout=MM_swapImgRestore() href="javascript:window.close()"><IMG height=18 src="pic/err_close2.gif" width=15 border=0 name=close></A></TD>
        <TD width=5 height=23><IMG height=23 src="pic/err2.gif" width=5 border=0 name=errr1_c4></TD>
      </TR>
    </TBODY>
  </TABLE>
  <TABLE class=body cellSpacing=0 cellPadding=0 width=400 align=center border=0>
    <TBODY>
      <TR vAlign=bottom> 
        <TD background=pic/err_bg.gif height=120> <BLOCKQUOTE> 
            <DIV id=base> <br>
              <font color=red><%=session("errormsg")%></font> 
              <% if session("errorMsg")<>"" then %>
              <br>
              <br>
              <br>
              <input name="button" type="button" onClick="javascript:history.back()" value=" 返 回 ">
              <% else  %>
              <br>
              按确定键返回"新闻管理"<br>
              <br>
              <br>
              <br>
              <input name="submit" type="submit" value=" 确 定 ">
              <% end if %>
            </DIV>
          </BLOCKQUOTE>
          <P align=center><A onmouseover="MM_swapImage('back','','pic/err_but2.gif',1)" onmouseout=MM_swapImgRestore() href="javascript:history.go(-1)"> 
            </A> </TD>
      </TR>
      <TR> 
        <TD height=2><IMG height=5 src="pic/err_bot.gif" width=400></TD>
      </TR>
    </TBODY>
  </TABLE>
 </form>
<% end Sub%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -