other.asp

商务世纪新闻asp源代码

<!--#include file="set.asp" -->
<!--#include file="function.asp" -->
<!--#include file="sub.asp" -->
<%
theType=Trim(Request.QueryString("theType"))

call GetOtherNews(theType)

sub GetOtherNews(theType)
	Dim fso, f
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.GetFile(Server.MapPath("Template/other.htm"))
	DateLastModified = cdate(f.DateLastModified)
	Set f = nothing
	Set fso= nothing
	If DateDiff("s",DateLastModified,Now())>120 then
		pstr=GetPage("http://news.sina.com.cn/news1000/index.shtml")
		wstr = GetContent(pstr,"<!--新闻开始-->","<!--新闻结束-->",0)
		wstr = Replace(wstr,"<ul>","")
		wstr = VirtualURL(wstr,"show.asp?url=")
		wstr=Replace(wstr,"""","")
		wstr=Replace(wstr,"'","’")
		Set fs = CreateObject("Scripting.FileSystemObject") 
		Set f = fs.CreateTextFile(Server.MapPath("Template/other.htm"))		
		f.WriteLine wstr
		f.close 
		set f = nothing 
		set fs = nothing 
	Else
		wstr = ReadLineTextFile("Template/other.htm")
	End if
	str=split(wstr,"<li>")
		for i=1 to Ubound(str)
		If n<10 then
			If Instr( theType,Mid(str(i),2,2))>0 then
				News=News&"<tr><td style=""line-height:20px"" class=a06  >"&GetContent(LeftNews(str(i),30,false),"]","",2)&"</td></tr>"
				n=n+1
			End if
		End if
		Next
	Erase str
	News=Replace(News,chr(10),"")
	News=Replace(News,chr(13),"")
	News=Replace(News,chr(10)&chr(13),"")
	Response.Write "othernews.innerHTML=""<table border=0 cellspacing=0 cellpadding=0 >"&News&"</table>"""
End sub
%>