📄 admin_jsspecial.asp

📁 新闻发布系统
💻 ASP
字号:
<body bgcolor="#FFFFFF">
<!--#include file = include.asp-->
<!--#include file = admin_CheckMana.asp-->
<!--#include file = char.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)
'=========================================================
%>
<%
   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 
    
	spcount=request.Form("spcount")
	spcolor=request.Form("spcolor")
	spbg=request.Form("spbg")
	spbgc=request.Form("spbgc")
    set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    Set CrmapS=MyFile.CreateTextFile(Server.MapPath("..")&"\Special\Special.js")
	'--------------------------
	set rs = server.createobject("adodb.recordset")
    rs.source = "select * from Speical order by id desc "
    rs.open rs.source,conn,1,1
    if rs.recordcount=0 then
    contentm1="没有专题<br>"
	CrmapS.WriteLine("document.write("""&Contentm1&""")")
    end if
	'=================生成专题JS开始=============
	while not rs.eof
    SpeicalCn=rs("SpeicalCn")
	if spbg="" then
	contentm="<table width=98% height=22 border=0 cellpadding=0 cellspacing=0 bgcolor="&spbgc&">  <tr> <td>&nbsp;&nbsp;&nbsp;&nbsp;<b><font color="&spcolor&">"&rs("SpeicalCn")&"</font></b></td>  </tr></table><table width=98% height=4 border=0 cellpadding=0 cellspacing=0>  <tr> <td height=6></td>  </tr></table>"
	CrmapS.WriteLine("document.write("""&Contentm&""")")
	else
	contentm="<table width=98% height=22 border=0 cellpadding=0 cellspacing=0 background="&spbg&" bgcolor="&spbgc&">  <tr> <td>&nbsp;&nbsp;&nbsp;&nbsp;<b><font color="&spcolor&">"&rs("SpeicalCn")&"</font></b></td>  </tr></table><table width=98% height=4 border=0 cellpadding=0 cellspacing=0>  <tr> <td height=6></td>  </tr></table>"
	CrmapS.WriteLine("document.write("""&Contentm&""")")
	end if
	 set rssp = server.createobject("adodb.recordset")
        rssp.source = "select * from news where SpeicalCn='"&SpeicalCn&"' order by newsid desc"
        rssp.open rssp.source,conn,1,3
	'----专题调用数开始-----------------------------------
	  for i=1 to spcount
      if rssp.eof then exit for
        Content="·<a href=http://"&sowinpath&rssp("lpath")&rssp("FileName")&".html target=_blank>"&rssp("Title")&"</a><font size=1 color=red>("&rssp("Date")&")</font><br>"
        CrmapS.WriteLine("document.write("""&Content&""")")
	'----专题调用数结束-----------------------------------
    rssp.movenext
    next
		Content1="<table width=98% border=0 cellpadding=0 cellspacing=0>  <tr> <td><div align=right><a href=http://"&sowinpath&"htm/special/s"&rs("id")&"_1.html target=_blank>更多专题...</a></div></td>  </tr></table>"
		CrmapS.WriteLine("document.write("""&Content1&""")")
	rs.movenext
    wend
	rssp.close
	'====================生成专题JS结束=====================
	rs.close
	set rs=nothing
	set rssp=nothing
	set MyFile=nothing
	CrmapS.close
	Response.write"专题生成成功!请代码调用中调取......"
    Response.end
%>
⌨️ 快捷键说明

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