newsjs.asp

新闻发布系统

<%
'-------------------------生成热点新闻开始
  Sub HotNews()
    set rs=Server.CreateObject("adodb.recordset")
    sql="Select * from News order by Click Desc"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select * from Config"
    rs3.open sql3,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set hnjsc=MyFile.CreateTextFile(Server.MapPath("..")&"\CodeJS\Hots_News.js")
    str="document.write('" 
	for i=1 to rs3("HotNews")
      if rs.eof then exit for
	  	 if len(rs("title"))>rs3("iHotNews") then
	      title=gotTopic(rs("title"),rs3("iHotNews"))&".."
	     else
	      title=rs("title")
	     end if
	  if rs("BiaotiNews")=true then
	  str = str & "<img src=http://"&sowinpath&rs3("HNTitle")&" border=0></img><a href="&rs("UBiaotiNews")&" target=_blank>"&CovtTitle(title)&"</a><br>"
	  else
      str = str & "<img src=http://"&sowinpath&rs3("HNTitle")&" border=0></img><a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(title)&"</a><br>"
	  end if
      rs.movenext
    next
	str=str & "')"
    rs.close
    set rs=nothing
    rs3.close
    set rs3=nothing
	hnjsc.write str
	hnjsc.Close
	set MyFile=nothing
  End Sub
'---------------------生成热点新闻结束
'---------------------生成推荐新闻开始
  Sub RecommendNews()
    set rs=Server.CreateObject("adodb.recordset")
    sql="Select * from News where Recommend=true order by Newsid Desc"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select * from Config"
    rs3.open sql3,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set hnjsc=MyFile.CreateTextFile(Server.MapPath("..")&"\CodeJS\Tj_News.js")
	strr="document.write('" 
    for i=1 to rs3("RecommendNews")
      if rs.eof then exit for
	     if len(rs("title"))>rs3("iRecommend") then
	      title=gotTopic(rs("title"),rs3("iRecommend"))
	     else
	      title=rs("title")
	     end if
	  if rs("BiaotiNews")=true then
	  strr = strr & "<img src=http://"&sowinpath&rs3("RNTitle")&" border=0></img><a href="&rs("UBiaotiNews")&" target=_blank>"&CovtTitle(title)&"</a><br>"
	  else
      strr = strr & "<img src=http://"&sowinpath&rs3("RNTitle")&" border=0></img><a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(title)&"</a><br>"
      end if
	  rs.movenext
    next
	strr=strr & "')"
	rs.close
    set rs=nothing
    rs3.close
    set rs3=nothing
	hnjsc.write strr
	hnjsc.Close
    set MyFile=nothing
  End Sub
'---------------------生成推荐新闻结束
'---------------------生成最新新闻开始
  Sub LastNews()
    set rs=Server.CreateObject("adodb.recordset")
    sql="Select * from News order by Newsid Desc"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select * from Config"
    rs3.open sql3,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrLNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\CodeJS\new_news.js")
	str="document.write('" 
	for i=1 to rs3("LastNews")
	   if rs.eof then exit for
	     if len(rs("title"))>rs3("iLastNews") then
	       title=gotTopic(rs("title"),rs3("iLastNews"))&"."
	     else
	      title=rs("title")
	     end if
	 if rs("BiaotiNews")=true then
	 str = str & "<img src=http://"&sowinpath&rs3("LNTitle")&" border=0></img><a href="&rs("UBiaotiNews")&" target=_blank>"&CovtTitle(title)&"</a><br>"
	 else
     str = str & "<img src=http://"&sowinpath&rs3("LNTitle")&" border=0></img><a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(title)&"</a><br>"
     end if
	 rs.movenext
    next
	str=str & "')"
    rs.close
    set rs=nothing
    rs3.close
    set rs3=nothing
	CrLNJS.write str
    CrLNJS.close
	set MyFile=nothing
  End Sub
 '---------------------生成最新新闻结束
 '-------------------topjs新闻排行榜开始-------------------------------------
  Sub Topjs()
 	'*输入判断开始******************
	set rs1=Server.CreateObject("adodb.recordset")
    sql1="select * from  config"
    rs1.open sql1,conn,3,3
	 '*输入判断结束******************
	  rs1("topjs")=replace(request.form("topjs"),"'","''")
      rs1.update
      rs1.close
      set rs1=nothing
	  	
    set rs=Server.CreateObject("adodb.recordset")
    sql="Select * from News order by Click Desc"
    rs.open sql,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrLNJS=MyFile.CreateTextFile(Server.Mappath("..")&"\CodeJS\TopNewsjs.js")
	str="document.write('" 
	for i=1 to request.form("topjs")
    if rs.eof then exit for
	if rs("BiaotiNews")=true then
	str = str & "·<a href="&rs("UBiaotiNews")&" target=_blank>"&CovtTitle(rs("Title"))&"</a><br>"
	else
    str = str & "·<a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(rs("Title"))&"</a><br>"
    end if
	rs.movenext
    next
	str=str & "')"
    rs.close
    set rs=nothing
	CrLNJS.write str
    CrLNJS.close
	set MyFile=nothing

  End Sub
'-------------------topjs新闻排行榜结束
'-------------------生成字幕新闻开始
  Sub marquee()
    set rs=Server.CreateObject("adodb.recordset")
    sql="select * from news where zimu=true order by Date desc"
    rs.open sql,conn,3,3
	set rsm=Server.CreateObject("adodb.recordset")
    sqlm="select * from config"
    rsm.open sqlm,conn,3,3
	marqueesp=rsm("marqueesp")
	Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrMar=MyFile.CreateTextFile(Server.Mappath("..")&"\otherjs\marquee.js")
	str="document.write('" 
	str = str & "<marquee   onmouseout=start() onmouseover=stop()  scrolldelay=80 scrollamount="&marqueesp&">"
	CrMar.WriteLine("document.write("""&Content&""")")
	for i=1 to rsm("imarquee")
	if rs.eof then exit for
	if rs("BiaotiNews")=true then
	str = str & "<font color=red>"&month(rs("date"))&"."&day(rs("date"))&":</font><a href="&rs("UBiaotiNews")&" target=_blank>"&CovtTitle(rs("Title"))&"</a>&nbsp;&nbsp;&nbsp;"
	else
	str = str & "<font color=red>"&month(rs("date"))&"."&day(rs("date"))&":</font><a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(rs("Title"))&"</a>&nbsp;&nbsp;&nbsp;"
	end if
	rs.movenext
    next
	str = str &"</marquee>"
	str=str & "')"
	CrMar.Write str
	rs.close
	set rs=nothing
  End Sub
'-------------------生成字幕新闻结束
%>