📄 admin_refreshspecial.asp
字号:
<!--#include file = "include.asp"-->
<!--#include file = "admin_checkmana.asp"-->
<!--#include file = "inc/function.asp"-->
<!--#include file = "inc/ReplaceMake.asp"-->
<!--#include file = "inc/Child.asp"-->
<head>
<title>www.cooin.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=css/css.css rel=stylesheet>
</head>
<%
'=========================================================
'产品目录：风讯产品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("makeclass")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
action=request.querystring("action")
if request("action")="make" then
Call spmake
Response.write"<script>alert(""生成专题成功！"");location.href=""Admin_Refreshspecial.asp"";</script>"
Response.end
end if
Sub spmake()
spcn=request.Form("speicalcn")
if request("speicalcn")="" then
Response.write"<script>alert(""错误\n\n请选择专题栏目！或者添加专题栏目"");location.href=""Admin_Refreshspecial.asp"";</script>"
Response.end
end if
set rsc=Server.CreateObject("adodb.recordset")
sqlc="Select spcount from config"
rsc.open sqlc,conn,1,1
set rs=Server.CreateObject("ADODB.RECORDSET")
sql="Select * from News Where speicalcn='"&spcn&"' order by newsid Desc"
rs.open sql,conn,1,1
set rss=Server.CreateObject("ADODB.RECORDSET")
sqls="Select * from speical Where SpeicalCn='"&spcn&"'"
rss.open sqls,conn,1,1
set rs3=Server.CreateObject("adodb.recordset")
if rss("Templet")="×" then
sql3="Select * from Templet Where TempletType='special'"
else
sql3="Select * from Templet Where TempletName='"&rss("Templet")&"' and TempletType='special'"
end if
rs3.open sql3,conn,1,1
'------------------------------
while not rss.eof
for x=1 to rss("SpeicalNum")
if rs.eof then exit for
if rs("BiaotiNews")=true then
spb=spb&"·<a href="&rs("UBiaotiNews")&" target=_blank>"&CovtTitle(rs("title"))&"</a><br>"
else
spb=spb&"·<a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(rs("title"))&"</a><br>"
end if
rs.movenext
next
spb=spb&"<div align=right><a href="&rss("SpeicalEn")&"_1.html>更多</a>....</div>"
set rsp = server.createobject("adodb.recordset")
sqlp = "select top "&rss("sphp")&" * from news where speicalcn='"&spcn&"' and PicNews=true order by newsid desc "
rsp.open sqlp,conn,1,1
if not rsp.eof then
spbp=spbp&"<table width=100% border=0 cellspacing=0 cellpadding=0><tr>"
i_temp=0
while not rsp.eof
spbp=spbp&"<td valign=top><div align=center><a href="&rsp("lpath")&rsp("Filename")&".html target=_blank><img src="&rsp("PicNewsa")&" width="&rss("sphpw")&" height="&rss("sphph")&" border=0></a><br>·<A href=http://"&sowinpath&rsp("lpath")&rsp("Filename")&".html target=_blank>"&rsp("title")&"</A></td>"
rsp.movenext
i_temp=i_temp+1
if i_temp mod rss("sphp") = 0 then
spbp=spbp&"</tr>"
end if
wend
spbp=spbp&"</table>"
else
spbp=spbp&"尚无图片新闻"
end if
rsp.close
sfso=rs3("TempletContent")
sfso=replace(sfso,"[hotnews]","<script src=http://"&sowinpath&"CodeJS/Hots_News.js></script>")
sfso=replace(sfso,"[recommendnews]","<script src=http://"&sowinpath&"CodeJS/Tj_News.js></script>")
sfso=replace(sfso,"[newssearch]","<script src=http://"&sowinpath&"JS/search.js></script>")
sfso=replace(sfso,"[special]",spb)
sfso=replace(sfso,"[DHangPic]",spbp)
sfso=replace(sfso,"[stitle]",""&rss("Speicalcn")&"")
sfso=replace(sfso,"[Navigation]","<a href=/>首页</a>>>"&spcn&">>专题列表")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath("..")&"\Special\"&rss("SpeicalEn")&".html")
fout.Write sfso
fout.close
rss.movenext
wend
rs.close
set rs=nothing
rs3.close
set rs3=nothing
rsc.close
set rsc=nothing
rss.close
set rss=nothing
end sub
'---------------大类新闻生成模板JS结束
%>
<body bgcolor=#F9FBFD background="" leftmargin=0 topmargin="0">
<form name="form1" method="post" action="?action=make">
<TABLE width="525" height="27"
border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="149" > <TABLE cellSpacing=0
cellPadding=0 width="525" border=0>
<TBODY>
<TR>
<TD height="16"> </TD>
</TR>
<TR>
<TD width="560" height="18"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td bgcolor="#F7FFF4"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><strong><font color="#990000">请选择要刷新的专题</font></strong><font color="#990000"><strong> </strong></font></b></div></td>
</tr>
</table>
<div align="center"><br>
请选择刷新专题
<select name="SpeicalCn">
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from Speical order by id desc "
rs.open rs.source,conn,1,1
while not rs.eof
%>
<option value="<%=rs("SpeicalCn")%>"><%=rs("SpeicalCn")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
<input type="submit" name="Submit" value="生成专题" class=Anbutc>
<br>
<font color="#FF0000"> </font> <br>
<input name="action" type="hidden" id="action3" value="make">
<!--#include file = name.asp-->
</div>
</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</table>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -