?? 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"-->
<%
'=========================================================
'產(chǎn)品目錄：風(fēng)訊產(chǎn)品N系列
'軟件名稱：風(fēng)訊站點(diǎn)管理系統(tǒng)
'當(dāng)前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'網(wǎng)站: http://www.cooin.com Foosun.net
'程序制作：輕風(fēng)云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'論壇支持：風(fēng)訊在線論壇(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
if EnoughPopedom("makeindex")=1 then
Response.write"<script>alert(""[操作失敗]\n\n你的權(quán)限不足！\n\n請與系統(tǒng)管理員聯(lián)系獲得足夠的權(quá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
'獲取絕對路徑結(jié)束
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
''########讀取點(diǎn)擊打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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -