📄 admin_jscrs.asp
字号:
<!--#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)
'=========================================================
if EnoughPopedom("jsmake")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
if request.Form("action")="make" then
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> <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> <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"<script>alert(""成功生成自定义专题成功！"");location.href=""admin_Jscrs.asp"";</script>"
Response.end
End if
%>
<LINK href=css/css.css rel=stylesheet>
<body bgcolor="#FFFFFF" topmargin="25">
<form name="form1" method="post" action="?Action=make">
<table width="435" height="134" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td height="30" bgcolor="#F7FFF4">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="0"><strong><font color="#FF0000">生成专题文件</font></strong></font></b></div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#F7FFF4">
<div align="left">
<p align="left"><font color="#FF0000"><font color="#000000">专题调用数目：</font>
<font color="#000000">
<input name="spcount" type="text" id="spcount" value="10" size="10">
默认为20<br>
专题标题颜色：
<input name="spcolor" type="text" id="spcolor" value="#FF0000" size="10">
请使用#FFFFFF格式</font><strong><font color="#FF0000"><br>
</font></strong><font color="#000000">专题标题栏背景底纹：</font><strong><font color="#FF0000">
<input name="spbg" type="text" id="spbg" value="pic/news_bg_3.gif" size="30">
<br>
<font color="#0000FF"> </font> </font><font color="#0000FF">或背景颜色：</font><font color="#FF0000"><font color="#000000">
<input name="spbgc" type="text" id="spcount4" value="#EBEBEB" size="10">
</font></font><font color="#0000FF"><br>
</font></strong> </font><font color="#0000FF"><strong>
<input type="submit" name="Submit" value="[生成]" class=Anbutc>
<input name="action" type="hidden" id="action" value="make">
<br>
<br>
</strong></font></p>
</div></td>
</tr>
</table>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -