📄 refurbishnewssave.asp
字号:
for i=1 to rs3("HotNews")
if rs.eof then exit for
Content=""&rs3("HNTitle")&"<a href=http://"&AllPath&""&rs("BigClassEN")&"/"&rs("SmallClassEN")&"/"&rs("FileName")&".htm target=_blank>"&ClearTitle(rs("Title"))&"</a><br>"
CrHNJS.WriteLine("document.write("""&Content&""")")
rs.movenext
next
rs.close
set rs=nothing
rs3.close
set rs3=nothing
CrHNJS.Close
set MyFile=nothing
End Sub
Sub RecommendNews()
set rs=Server.CreateObject("adodb.recordset")
sql="Select title,BigClassEN,SmallClassEN,FileName from News where Recommend=true order by Date Desc"
rs.open sql,conn,1,1
set rs3=Server.CreateObject("adodb.recordset")
sql3="Select RNTitle,RecommendNews from Config"
rs3.open sql3,conn,1,1
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\RecommendNews.js")
for i=1 to rs3("RecommendNews")
if rs.eof then exit for
Content=""&rs3("RNTitle")&"<a href=http://"&AllPath&""&rs("BigClassEN")&"/"&rs("SmallClassEN")&"/"&rs("FileName")&".htm target=_blank>"&ClearTitle(rs("Title"))&"</a><br>"
CrHNJS.WriteLine("document.write("""&Content&""")")
rs.movenext
next
rs.close
set rs=nothing
rs3.close
set rs3=nothing
CrHNJS.Close
set MyFile=nothing
End Sub
Sub LastNews()
set rs=Server.CreateObject("adodb.recordset")
sql="Select title,BigClassEN,SmallClassEN,FileName from News order by Date Desc"
rs.open sql,conn,1,1
set rs3=Server.CreateObject("adodb.recordset")
sql3="Select LastNews,LNTitle from Config"
rs3.open sql3,conn,1,1
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
set CrLNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\LastNews.js")
for i=1 to rs3("LastNews")
if rs.eof then exit for
Content=""&rs3("LNTitle")&"<a href=http://"&AllPath&""&rs("BigClassEN")&"/"&rs("SmallClassEN")&"/"&rs("FileName")&".htm target=_blank>"&ClearTitle(rs("Title"))&"</a><br>"
CrLNJS.WriteLine("document.write("""&Content&""")")
rs.movenext
next
rs.close
set rs=nothing
rs3.close
set rs3=nothing
CrLNJS.close
set MyFile=nothing
End Sub
Sub CrIndexJs(NewsID)
set rsNews=Server.CreateObject("adodb.recordset")
sqlNews="Select BigClassCN,BigClassEN,SmallClassCN,SmallClassEN from News where NewsID="&NewsID
rsNews.open sqlNews,conn,1,1
set rs1=Server.CreateObject("adodb.recordset")
sql1="Select DateColor,DateSize,TitlePic,TitleDate,OrderRule,TitleNumber,IndexJSCount,MorePic from SmallClass Where BigClassCN='"&rsNews("BigClassCN")&"' And SmallClassCN='"&rsNews("SmallClassCN")&"'"
rs1.open sql1,conn,1,1
set rs=Server.CreateObject("ADODB.RECORDSET")
sql="Select FileName,date,title,content from News Where BigClassCN='"&rsNews("BigClassCN")&"' and SmallClassCN='"&rsNews("SmallClassCN")&"' order by "&rs1("OrderRule")&" Desc"
rs.open sql,conn,1,1
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
Set CrJS=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rsNews("BigClassEN")&"\"&rsNews("SmallClassEN")&"\index.js")
Set CrHtm=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rsNews("BigClassEN")&"\"&rsNews("SmallClassEN")&"\index.htm")
set rsCfg=Server.CreateObject("adodb.recordset")
sqlCfg="Select ShowPic from Config"
rsCfg.open sqlCfg,conn,1,1
ShowPic1=rsCfg("ShowPic")
rsCfg.close
set rsCfg=nothing
for i=1 to rs1("IndexJSCount")
if rs.eof then exit for
if len(rs("title"))>rs1("TitleNumber") then
title=left(rs("title"),rs1("TitleNumber"))&"..."
else
title=rs("title")
end if
ShowPic=""
if instr(1,rs("content"),"<img",1)<>0 then ShowPic=ShowPic1
if rs1("TitleDate") then
Content=""&rs1("TitlePic")&"<a href=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rs("FileName")&".htm target=_blank>"&CovtTitle(title)&"</a>"&ShowPic&"<font color="&rs1("DateColor")&" size="&rs1("DateSize")&">"&rs("date")&"</font><br>"
else
Content=""&rs1("TitlePic")&"<a href=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rs("FileName")&".htm target=_blank>"&CovtTitle(title)&"</a>"&ShowPic&"<br>"
end if
CrJS.WriteLine("document.write("""&Content&""")")
rs.movenext
next
if rs.recordcount>rs1("IndexJSCount") then
Content="<div align=right><a href=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rsNews("SmallClassEN")&"1.htm target=_blank>"&rs1("MorePic")&"</a></div>"
CrJS.WriteLine("document.write("""&Content&""")")
end if
Content1="<script src=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/index.js></script>"
CrHtm.WriteLine Content1
rs.close
set rs=nothing
rs1.close
set rs1=nothing
CrJs.close
CrHtm.close
set MyFile=nothing
rsNews.close
set rsNews=nothing
End Sub
Sub CrMoreJS(NewsID)
set rsNews=Server.CreateObject("adodb.recordset")
sqlNews="Select BigClassCN,BigClassEN,SmallClassCN,SmallClassEN from News where NewsID="&NewsID
rsNews.open sqlNews,conn,1,1
set rs1=Server.CreateObject("adodb.recordset")
sql1="Select DirPic,DateColor,DateSize,TitleDate,ClassTemplet,HtmlJSCount,OrderRule from SmallClass Where BigClassCN='"&rsNews("BigClassCN")&"' And SmallClassCN='"&rsNews("SmallClassCN")&"'"
rs1.open sql1,conn,1,1
set rs4=Server.CreateObject("ADODB.RECORDSET")
sql="Select FileName,content,title,Date from News Where BigClassCN='"&rsNews("BigClassCN")&"' and SmallClassCN='"&rsNews("SmallClassCN")&"' order by "&rs1("OrderRule")&" Desc"
rs4.open sql,conn,1,1
set rs3=Server.CreateObject("adodb.recordset")
if rs1("ClassTemplet")="未绑定" then
sql3="Select TempletContent from Templet Where TempletType='Class'"
session("depict")=""
session("depict")="<font color=red>当前栏目没有绑定模板、请到“模板管理”中进行绑定操作</font><br>"
else
session("depict")=""
sql3="Select TempletContent from Templet Where TempletName='"&rs1("ClassTemplet")&"' and TempletType='Class'"
end if
rs3.open sql3,conn,1,1
AllPage=rs4.recordcount/rs1("HtmlJSCount")
AllPage1=int(rs4.recordcount/rs1("HtmlJSCount"))
if AllPage1<Allpage then AllPage=AllPage1+1
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
for i=1 to AllPage
Content=""
Set CrJS=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rsNews("BigClassEN")&"\"&rsNews("SmallClassEN")&"\"&rsNews("SmallClassEN")&""&i&".js")
set rsCfg=Server.CreateObject("adodb.recordset")
sqlCfg="Select ShowPic from Config"
rsCfg.open sqlCfg,conn,1,1
ShowPic1=rsCfg("ShowPic")
rsCfg.close
set rsCfg=nothing
for x=1 to rs1("HtmlJSCount")
if rs4.eof then exit for
ShowPic=""
if instr(1,rs4("content"),"<img",1)<>0 then ShowPic=ShowPic1
if rs1("TitleDate") then
Content=""&rs1("DirPic")&"<a href=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rs4("FileName")&".htm target=_blank>"&CovtTitle(rs4("title"))&"</a>"&ShowPic&"<font color="&rs1("DateColor")&" size="&rs1("DateSize")&">"&rs4("date")&"</font><br>"
else
Content=""&rs1("DirPic")&"<a href=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rs4("FileName")&".htm target=_blank>"&CovtTitle(rs4("title"))&"</a>"&ShowPic&"<br>"
end if
CrJS.WriteLine("document.write("""&Content&""")")
rs4.movenext
next
Content="<div align=center>共<font color=red><b>"&rs4.recordcount&"</b></font>条商务信息 <a href=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rsNews("SmallClassEN")&"1.htm>首页</a> "
if i<>AllPage then
Content=Content+"<a href=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rsNews("SmallClassEN")&""&i+1&".htm>下一页</a> "
else
Content=Content+"下一页 "
end if
if i<>1 then
Content=Content+"<a href=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rsNews("SmallClassEN")&""&i-1&".htm>上一页</a> "
else
Content=Content+"上一页 "
end if
Content=Content+"<a href=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rsNews("SmallClassEN")&""&AllPage&".htm>尾页</a> 页次：<font color=red><b>"&i&"</b></font>/<b>"&AllPage&"</b> <font color=red><b>"&rs1("HtmlJSCount")&"</b></font>条商务信息/页 转到："
Content=Content+"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
CrJS.WriteLine("document.write("""&Content&""")")
for x=1 to AllPage
if x=i then
Content="<option value=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rsNews("SmallClassEN")&""&x&".htm selected>第"&x&"页</option>"
CrJS.WriteLine("document.write("""&Content&""")")
else
Content="<option value=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rsNews("SmallClassEN")&""&x&".htm>第"&x&"页</option>"
CrJS.WriteLine("document.write("""&Content&""")")
end if
next
Content="</select></div>"
CrJS.WriteLine("document.write("""&Content&""")")
Set CrHtm=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rsNews("BigClassEN")&"\"&rsNews("SmallClassEN")&"\"&rsNews("SmallClassEN")&""&i&".htm")
if rs3.eof and rs3.bof then
Content="<script src=http://"&AllPath&""&rsNews("BigClassEN")&"/"&rsNews("SmallClassEN")&"/"&rsNews("SmallClassEN")&""&i&".js></script>"
session("depict")=""
session("depict")="当前没有添加栏目模板、请尽快添加栏目模板!!!"
else
Content=CrHtCLass(replace(rs3("TempletContent"),"[!--模板开始，此句话不需手动删除，系统会自动处理--]",""),i,NewsID)
end if
CrHtm.WriteLine Content
CrHtm.close
CrJS.close
next
'rs4.close
set rs4=nothing
rs1.close
set rs1=nothing
rs3.close
set rs3=nothing
set MyFile=nothing
rsNews.close
set rsNews=nothing
End Sub
Sub CrBigClassJS(NewsID)
set rsNews=Server.CreateObject("adodb.recordset")
sqlNews="Select BigClassCN,BigClassEN,SmallClassCN,SmallClassEN from News where NewsID="&NewsID
rsNews.open sqlNews,conn,1,1
Set rs=Server.CreateObject("adodb.recordset")
sql="Select iNews,BigClassEN,NewsTitle from BigClass where BigClassCN='"&rsNews("BigClassCN")&"'"
rs.open sql,conn,1,1
set rs1=Server.CreateObject("adodb.recordset")
sql1="Select SmallClassEN,SmallClassCN,FileName,title from News Where BigClassCN='"&rsNews("BigClassCN")&"' order by Date Desc"
rs1.open sql1,conn,1,1
set MyFile=Server.CreateObject("Scripting.FileSystemObject")
Set CrBCJS=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rs("BigClassEN")&"\index.js")
for i=1 to rs("iNews")
if rs1.eof then exit for
Content="[<a href=http://"&AllPath&""&rs("BigClassEN")&"/"&rs1("SmallClassEN")&"/"&rs1("SmallClassEN")&"1.htm target=_blank>"&rs1("SmallClassCN")&"</a>]"&rs("NewsTitle")&"<a href=http://"&AllPath&""&rs("BigClassEN")&"/"&rs1("SmallClassEN")&"/"&rs1("FileName")&".htm target=_blank>"&rs1("Title")&"</a><br>"
CrBCJS.WriteLine("document.write("""&Content&""")")
rs1.movenext
next
rs.close
rs1.close
set rs=nothing
set rs1=nothing
set MyFile=nothing
CrBCJS.close
rsNews.close
set rsNews=nothing
End Sub
Sub Warn()
%>
<p> </p>
<p> </p>
<p> </p>
<body background="images/BLogo.gif">
<form method=post action=Refurbishnews.asp>
<table width="349" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
<tr bgcolor="#AED2E6" >
<td height="20"><b>
<%=result%>
</b></td>
</tr>
<tr align="center">
<td height="115" bgcolor="#FFFFFF" background="images/BLogo.gif">
<br><%=depict%><br><br>
</td>
</tr>
</table>
</form>
</body>
<% end Sub %>
<%
result=request.querystring("result")
if request.form("BigClassEN")="" then
BigClassEN=request.querystring("BigClassEN")
else
BigClassEN=request.form("BigClassEN")
end if
set rsAB=Server.CreateObject("Adodb.recordset")
sql="select NewsID From News where BigClassEN='"&BigClassEN&"'"
rsAB.open sql,conn,1,1
rsAB.pagesize=1
dim page
page=request.querystring("page")
if page="" or page<=1 then page=1
for i=1 to rsAB.pagesize*(Page-1)
if rsAB.eof then exit for
rsAB.movenext
next
if not rsAB.eof then
Call Pagination("ModifyHtml",rsAB("NewsID"))
Call CrIndexJs(rsAB("NewsID"))
Call CrMoreJS(rsAB("NewsID"))
Call CrBigClassJS(rsAB("NewsID"))
page=page+1
response.write("<meta http-equiv=""refresh"" content=""0;url=RefurbishNewsSave.asp?Page="&page&"&BigClassEN="&BigClassEN&""">")
depict="共有<font color=red><b>"&rsAB.recordcount&"</b></font>条商务信息需要刷新<br><br>正在第<font color=red><b>"&page-1&"</b></font>条商务信息"
result="正在刷新新闻......"
else
result="刷新新闻成功"
depict="按确定键返回！<br><br><input type=""submit"" value="" 确 定 "">"
end if
Call HotNews
Call RecommendNews
Call LastNews
Call Warn
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -