📄 makespecialindex.asp
字号:
<!--#include file = "conn.asp"-->
<!--#include file = "Fsmanage/admin_checkmana.asp"-->
<!--#include file = "Fsmanage/inc/function.asp"-->
<!--#include file = "Fsmanage/inc/ReplaceMake.asp"-->
<!--#include file = "Fsmanage/inc/Child.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("makeindex")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
%>
<head>
<title>www.cooin.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=FsManage/css/css.css rel=stylesheet>
</head>
<%
'获取绝对路径开始
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
'获取绝对路径结束
set rs=server.CreateObject("adodb.recordset")
sql="Select * from News order by date desc"
rs.open sql,conn,1,1
set rsc=server.CreateObject("adodb.recordset")
sqlc="Select * from Newsclass order by id desc"
rsc.open sqlc,conn,1,1
set rss=server.CreateObject("adodb.recordset")
sqls="Select * from Speical order by id desc"
rss.open sqls,conn,1,1
set rs3=Server.CreateObject("adodb.recordset")
sql3="Select * from Templet Where TempletType='speciali'"
rs3.open sql3,conn,1,1
''########读取点击打top
Set rstop=Server.CreateObject("adodb.recordset")
sqltop="select * from News order by click desc"
rstop.open sqltop,conn,1,1
if rstop.eof then
blst="·还没有TOP新闻"
else
do while not rstop.eof
h=h+1
if rstop("BiaotiNews")=true then
blst=blst&"·<a href="&rstop("UBiaotiNews")&" target=_blank>"&CovtTitle(gotTopic(rstop("title"),22))&"</a><br>"
else
blst=blst&"·<a href=../"&rstop("lpath")&rstop("FileName")&".html target=_blank>"&CovtTitle(gotTopic(rstop("title"),22))&"</a><br>"
end if
if h>=10 then exit do
rstop.movenext
loop
h=0
end if
rstop.close
''########最新新闻
Set rsn=Server.CreateObject("adodb.recordset")
sqln="select top 10 * from News order by newsid desc"
rsn.open sqln,conn,1,1
if rsn.eof then
blsn="·还没有最新新闻"
else
do while not rsn.eof
h=h+1
if rsn("BiaotiNews")=true then
blsn=blsn&"·<a href=../"&rsn("UBiaotiNews")&" target=_blank>"&rsn("title")&"</a><br>"
else
blsn=blsn&"·<a href=../"&rsn("lpath")&rsn("FileName")&".html target=_blank>"&CovtTitle(gotTopic(rsn("title"),22))&"</a><br>"
end if
if h>=10 then exit do
rsn.movenext
loop
h=0
end if
rsn.close
'专题列表开始
set rssp = server.createobject("adodb.recordset")
sqlsp = "select * from Speical order by id desc "
rssp.open sqlsp,conn,1,1
if rssp.recordcount=0 then
sppp="<font color=red>还没有专题栏目</font>"
end if
sppp="<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height=6></td></tr></table>"
while not rssp.eof
sppp=sppp&"<font color=red><b>"&rssp("SpeicalCn")&"</b></font>"
sppp=sppp&"<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height=3></td></tr></table>"
set rsmall = server.createobject("adodb.recordset")
rsmall.source = "select * from news where speicalcn='"&rssp("speicalcn")&"'"
rsmall.open rsmall.source,conn,1,1
for i=1 to rssp("speicalNum")
if rsmall.eof then exit for
sppp=sppp&"<A href=../"&rsmall("Lpath")&rsmall("FileName")&".html target=_blank>"&CovtTitle(gotTopic(rsmall("title"),46))&"</A><br>"
rsmall.movenext
next
rssp.movenext
wend
rssp.close
sfso=rs3("TempletContent")
sfso=replace(sfso,"[Lastnews]",blsn)
sfso=replace(sfso,"[newssearch]","<script src=../JS/search.js></script>")
sfso=replace(sfso,"[special]",sppp)
sfso=replace(sfso,"[topnews]",blst)
sfso=replace(sfso,"[navigation]","<script src=../codejs/Navigation.js></script>")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath("Special")&"/Index.htm")
fout.Write sfso
fout.close
Response.write"<script>alert(""专题生成首页成功！\n\n文件名为：Special/Index.htm"");location.href=""javascript:history.back()"";</script>"
Response.end
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -