qq.asp

小型网上购物网站

<%@LANGUAGE="VBSCRIPT" CodePage="936"%>
<%
'jetiben.com
'Option Explicit
Response.Buffer = True
Server.scriptTimeout="20"
on error resume next
Dim Jurl:Jurl=Left(Request.ServerVariables("URL"),InstrRev(Request.ServerVariables("URL"),"/")-1)
%>document.write('<script language="javascript" type="text/javascript" src="<%=Jurl%>/js/a.js"></script>')
<%
Dim strSourceFile,objXML,objRootsite,AllNodesNum
strSourceFile=Server.MapPath("xml/qq.xml")
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootsite=objXML.documentElement.selectSingleNode("qqlist")
AllNodesNum=objRootsite.childNodes.length-1
Dim iCount,Qqnum
For iCount=0 to AllNodesNum
Qqnum=Qqnum&objRootsite.childNodes.item(iCount).childNodes.item(0).text&":"
Next
%>document.write('<script src="http://webpresence.qq.com/getonline?Type=1&<%=Qqnum%>"></script>')
<%
Set objRootsite=nothing
Set objXML=nothing
%>document.write('<script language="javascript" type="text/javascript" src="<%=Jurl%>/info.asp"></script>')
document.write('<script language="javascript" type="text/javascript" src="<%=Jurl%>/script.asp"></script>')