topximg-sport.asp

完美新闻小偷

<!--#include file="set.asp" -->
<!--#include file="function.asp" -->
<%
Dim rs
If Trim(Request.QueryString("ImgNewsType"))<>"" then
	rs = cint( Trim(Request.QueryString("ImgNewsType")) )
Else
	Randomize
	rs = Int((6 * Rnd) + 1)
End if
select case rs
case 1
ImgNewsChina   = ReadAllTextFile("Template/ImgNewsChina.htm")
sImgNews = split(ImgNewsChina,"</a>")
case 2
ImgNewsWorld   = ReadAllTextFile("Template/ImgNewsWorld.htm")
sImgNews = split(ImgNewsWorld,"</a>")
case 3
ImgNewsSports  = ReadAllTextFile("Template/ImgNewsSports.htm")
sImgNews = split(ImgNewsSports,"</a>")
case 4
ImgNewsEnt     = ReadAllTextFile("Template/ImgNewsEnt.htm")
sImgNews = split(ImgNewsEnt,"</a>")
case 5
ImgNewsSociety = ReadAllTextFile("Template/ImgNewsSociety.htm")
sImgNews = split(ImgNewsSociety,"</a>")
case 6
ImgNewsEladies = ReadAllTextFile("Template/ImgNewsEladies.htm")
sImgNews = split(ImgNewsEladies,"</a>")
end select
Randomize
i = Int((((ubound(sImgNews))/2) * Rnd) + 0)
i = i*2
'Response.Write "joynewsimg3.innerHTML="""&Replace( Replace(sImgNews(i),"border=1","border=0"),"href=show.asp","href="&HomePage&"show.asp")&"</a>"&""""
Response.Write "joynewsimg3.innerHTML="""&Replace( Replace(sImgNews(i),"border=1","border=0"),"href=show.asp","href="&HomePage&"show.asp")&"</a>"&"<br>"&Replace( Replace(sImgNews(i+1),"border=1","border=0"),"href=show.asp","href="&HomePage&"show.asp")&"</a>"&""""%>