dispgg.asp

来自「快狗即时通讯软件源码V2007 纪念版」· ASP 代码 · 共 40 行

<%Response.Expires=0%>
<!--#include file="function.asp"-->
<%
response.expiresabsolute=dateadd("s",1,now())
application.lock
onlinesite=application("onlinesite")
sitesums=ubound(onlinesite)
linkstr="欢迎光临&nbsp;&nbsp;"
if not isempty(application("adinfo")) then
	linkstr=application("adinfo")&linkstr
end if
if sitesums<=8 then
	for i=0 to sitesums
		if onlinesite(i)<>"" then
			msg=split(onlinesite(i),"$",-1)
			if YesSite(msg(2))=0 then
				linkstr=linkstr&"<a href="&msg(1)&" target=_blank><font color=#000000>"&server.htmlencode(msg(2))&"</font></a>&nbsp;&nbsp;"
			end if
		end if
	next
else
  	randomize
  	for i=0 to 8
		if onlinesite(i)<>"" then
			siteinfo=onlinesite(Int((sitesums - 0 ) * Rnd + 0))
		    msg=split(siteinfo,"$",-1)
			if YesSite(msg(2))=0 then
				linkstr=linkstr&"<a href="&msg(1)&" target=_blank><font color=#000000>"&msg(2)&"</font></a>&nbsp;&nbsp;"
			else
				i=i-1
			end if
		end if
	next
end if
application.unlock
%>
document.write ("<marquee scrolldelay='150' align=middle id=listgg onmouseover=listgg.stop() onmouseout=listgg.start()>");
document.write("<%=linkstr%>网站！");
document.write("</marquee>");