info.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)
Dim strSourceFile,objXML,objRootsite,AllNodesNum
strSourceFile=Server.MapPath("xml/info.xml")
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootsite=objXML.documentElement.selectSingleNode("qqinfo")
Dim Sitename,Siteskin
Sitename=objRootsite.childNodes.item(0).childNodes.item(0).text
Siteskin=objRootsite.childNodes.item(0).childNodes.item(1).text
Set objRootsite=nothing
Set objXML=nothing
strSourceFile=Server.MapPath("xml/qq.xml")
Set objXML=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite=objXML.documentElement.selectSingleNode("qqlist")
AllNodesNum=objRootsite.childNodes.length-1
Dim iCount
%> 
document.write('<table cellSpacing="0" cellPadding="0" border="0" id="qqtab">');
document.write('    <tr>');
document.write('      <td onclick="if(document.all.qqtab.style.display==\'none\'){document.all.qqtab.style.display=\'\'} else {document.all.qqtab.style.display=\'none\'}"></td>');
document.write('    </tr>');
document.write('    <tr id="qqstab">');
document.write('      <td valign="middle" align="center">');    
document.write('<table border="0" cellSpacing="0" cellPadding="0">');
document.write('  <tr>');
document.write('    <td height="5" border="0" colspan="0"></td>');
document.write('  </tr>');
<%
For iCount=0 to AllNodesNum
%>
document.write('  <tr>');
if (online[<%=iCount%>]==0)
{
document.write('    <td height="22" valign="middle" align="center">');
document.write("<img src=<%=Jurl%>/images/qqface/<%=objRootsite.childNodes.item(iCount).childNodes.item(2).text%>_f.gif border=0>");
document.write('    </td>');
document.write('    <td height="22" valign="middle" align="left">');
document.write("<a target=blank href=http://wpa.qq.com/msgrd?V=1&amp;Uin=<%=objRootsite.childNodes.item(iCount).childNodes.item(0).text%>&amp;Site=<%=Sitename%>&amp;Menu=yes><font style=font-size:12px;TEXT-DECORATION:none;color:<%=objRootsite.childNodes.item(iCount).childNodes.item(3).text%>;><%=objRootsite.childNodes.item(iCount).childNodes.item(1).text%></font></a><br>");
document.write('    </td>');
}
else
{
document.write('    <td height="22" valign="middle" align="center">');
document.write("<img src=<%=Jurl%>/images/qqface/<%=objRootsite.childNodes.item(iCount).childNodes.item(2).text%>_m.gif border=0>");
document.write('    </td>');
document.write('    <td height="22" valign="middle" align="left">');
document.write("<a target=blank href=http://wpa.qq.com/msgrd?V=1&amp;Uin=<%=objRootsite.childNodes.item(iCount).childNodes.item(0).text%>&amp;Site=<%=Sitename%>&amp;Menu=yes><font style=font-size:12px;TEXT-DECORATION:none;color:<%=objRootsite.childNodes.item(iCount).childNodes.item(3).text%>;><%=objRootsite.childNodes.item(iCount).childNodes.item(1).text%></font></a><br>");
document.write('    </td>');
}

document.write('  </tr>');
<%
Next
Set objRootsite=nothing
Set objXML=nothing
%>
document.write('</table>');     
document.write('</td>');
document.write('    </tr>');
document.write('    <tr>');
document.write('      <td onclick="if(document.all.qqstab.style.display==\'none\'){document.all.qqstab.style.display=\'\'} else {document.all.qqstab.style.display=\'none\'}"></td>');
document.write('    </tr>');
document.write('</table>');