📄 newssave.asp
字号:
rs.close
set rs=nothing
rs3.close
set rs3=nothing
CrHNJS.Close
set MyFile=nothing
End Sub
Sub CategoryRecommendNews()
Bigclass=request("Bigclass")
set rs=Server.CreateObject("adodb.recordset")
sql="Select title,Bigclass,Smallclass,FileName,Click from News where Auditing=1 and Bigclass='"&Bigclass&"' and Recommend=true order by Click Desc"
rs.open sql,conn,1,1
set rs3=conn.execute("select RecommendNews,RecommendNewsTC,RecommendNewsTP from BigClass where Bigclass='"&Bigclass&"'")
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\"&Bigclass&"\RecommendNews.js")
for i=1 to rs3(0)
if rs.eof then exit for
Title=CovtTitle(rs("Title"))
if len(Title)>rs3(1) then Title=left(Title,rs3(1))&".."
Content=""&rs3(2)&"<a href=http://"&AllPath&""&rs("Bigclass")&"/"&rs("Smallclass")&"/"&rs("FileName")&".htm target=_blank>"&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,Bigclass,Smallclass,FileName from News where Auditing=1 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("Bigclass")&"/"&rs("Smallclass")&"/"&rs("FileName")&".htm target=_blank>"&CovtTitle(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 CategoryLastNews()
Bigclass=request("Bigclass")
set rs=Server.CreateObject("adodb.recordset")
sql="Select title,Bigclass,Smallclass,FileName,Date from News where Auditing=1 and Bigclass='"&Bigclass&"' order by Date Desc"
rs.open sql,conn,1,1
set rs3=conn.execute("select LastNews,LastNewsTC,LastNewsTP,ShowDate from BigClass where Bigclass='"&Bigclass&"'")
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\"&Bigclass&"\LastNews.js")
for i=1 to rs3(0)
if rs.eof then exit for
Title=CovtTitle(rs("Title"))
if rs3(3)=true then ShowDate=Day(rs("Date"))&"/"&month(rs("Date"))
if len(Title)>rs3(1) then Title=left(Title,rs3(1))&".."
Content=""&rs3(2)&"<a href=http://"&AllPath&""&rs("Bigclass")&"/"&rs("Smallclass")&"/"&rs("FileName")&".htm target=_blank>"&Title&"</a> ("&ShowDate&") <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 CrIndexJs()
set rs1=Server.CreateObject("adodb.recordset")
sql1="Select DateColor,DateSize,TitlePic,TitleDate,OrderRule,TitleNumber,IndexJSCount,MorePic from SmallClass Where Bigclass='"&request.form("Bigclass")&"' And Smallclass='"&request.form("Smallclass")&"'"
rs1.open sql1,conn,1,1
set rs=Server.CreateObject("ADODB.RECORDSET")
sql="Select FileName,date,title,content from News Where Auditing=1 and Bigclass='"&request.form("Bigclass")&"' and Smallclass='"&request.form("Smallclass")&"' order by "&rs1("OrderRule")&" Desc"
rs.open sql,conn,1,1
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
Set CrJS=MyFile.CreateTextFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\index.js")
Set CrHtm=MyFile.CreateTextFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\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&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&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&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&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&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("Smallclass")&"1.htm target=_blank>"&rs1("MorePic")&"</a></div>"
CrJS.WriteLine("document.write("""&Content&""")")
end if
Content1="<script src=http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/index.js></script>"
CrHtm.WriteLine Content1
rs.close
set rs=nothing
rs1.close
set rs1=nothing
CrJs.close
CrHtm.close
set MyFile=nothing
End Sub
Sub CrMoreJS()
set rs1=Server.CreateObject("adodb.recordset")
sql1="Select DirPic,DateColor,DateSize,TitleDate,ClassTemplet,HtmlJSCount,OrderRule from SmallClass Where Bigclass='"&request.form("Bigclass")&"' And Smallclass='"&request.form("Smallclass")&"'"
rs1.open sql1,conn,1,1
set rs=Server.CreateObject("ADODB.RECORDSET")
sql="Select FileName,content,title,Date from News where Auditing=1 and Bigclass='"&request.form("Bigclass")&"' and Smallclass='"&request.form("Smallclass")&"' order by "&rs1("OrderRule")&" Desc"
rs.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=rs.recordcount/rs1("HtmlJSCount")
AllPage1=int(rs.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("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("Smallclass")&""&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 rs.eof then exit for
ShowPic=""
if instr(1,rs("content"),"<img",1)<>0 then ShowPic=ShowPic1
if rs1("TitleDate") then
Content=""&rs1("DirPic")&"<a href=http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&rs("FileName")&".htm target=_blank>"&CovtTitle(rs("title"))&"</a>"&ShowPic&"<font color="&rs1("DateColor")&" size="&rs1("DateSize")&">"&rs("date")&"</font><br>"
else
Content=""&rs1("DirPic")&"<a href=http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&rs("FileName")&".htm target=_blank>"&CovtTitle(rs("title"))&"</a>"&ShowPic&"<br>"
end if
CrJS.WriteLine("document.write("""&Content&""")")
rs.movenext
next
Content="<div align=center>共<font color=red><b>"&rs.recordcount&"</b></font>条 <a href=http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("Smallclass")&"1.htm>首页</a> "
if i<>1 then
Content=Content+"<a href=http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("Smallclass")&""&i-1&".htm>上一页</a> "
else
Content=Content+"上一页 "
end if
if i<>AllPage then
Content=Content+"<a href=http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("Smallclass")&""&i+1&".htm>下一页</a> "
else
Content=Content+"下一页 "
end if
Content=Content+"<a href=http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("Smallclass")&""&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&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("Smallclass")&""&x&".htm selected>第"&x&"页</option>"
CrJS.WriteLine("document.write("""&Content&""")")
else
Content="<option value=http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("Smallclass")&""&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("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("Smallclass")&""&i&".htm")
if rs3.eof and rs3.bof then
Content="<script src=http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("Smallclass")&""&i&".js></script>"
session("depict")=""
session("depict")="当前没有添加栏目模板、请尽快添加栏目模板!!!"
else
Content=CrHtCLass(replace(rs3("TempletContent"),"[!--模板开始，此句话不需手动删除，系统会自动处理--]",""),i)
end if
CrHtm.WriteLine Content
CrHtm.close
CrJS.close
next
rs.close
set rs=nothing
rs1.close
set rs1=nothing
rs3.close
set rs3=nothing
set MyFile=nothing
End Sub
Sub CrBigClassJS()
Set rs=Server.CreateObject("adodb.recordset")
sql="Select iNews,Bigclass,NewsTitle,NewsTC from BigClass where Bigclass='"&request.form("Bigclass")&"'"
rs.open sql,conn,1,1
set rs1=Server.CreateObject("adodb.recordset")
sql1="Select Smallclass,Smallclass,FileName,title from News where Auditing=1 and Bigclass='"&request.form("Bigclass")&"' order by Date Desc"
rs1.open sql1,conn,1,1
set MyFile=Server.CreateObject("Scripting.FileSystemObject")
Set CrBCJS=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rs("Bigclass")&"\index.js")
for i=1 to rs("iNews")
if rs1.eof then exit for
Title=rs1("Title")
if len(Title)>rs("NewsTC") then Title=left(Title,rs("NewsTC"))&".."
Content="[<a href=http://"&AllPath&""&rs("Bigclass")&"/"&rs1("Smallclass")&"/"&rs1("Smallclass")&"1.htm target=_blank>"&rs1("Smallclass")&"</a>]"&rs("NewsTitle")&"<a href=http://"&AllPath&""&rs("Bigclass")&"/"&rs1("Smallclass")&"/"&rs1("FileName")&".htm target=_blank>"&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
End Sub
Sub MoveNews()
session("FilePath")=""
set myfile=Server.CreateObject("Scripting.FileSystemObject")
set rs=Server.CreateObject("adodb.recordset")
sql="Select Bigclass,Bigclass,Smallclass,Smallclass from SmallClass Where Smallclass='"&request.form("ObjSmallclass")&"'"
rs.open sql,conn,1,1
ObjBigclass=rs("Bigclass")
ObjBigclass=rs("Bigclass")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -