<%@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,siteww,siteww1
Sitename=objRootsite.childNodes.item(0).childNodes.item(0).text
Siteskin=objRootsite.childNodes.item(0).childNodes.item(1).text
siteww=objRootsite.childNodes.item(0).childNodes.item(4).text
siteww1=objRootsite.childNodes.item(0).childNodes.item(5).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" width="40" border="0" id="qqtab">');
document.write('    <tr>');
document.write('      <td width="40" valign="middle" align="center"><img src="<%=Jurl%>/images/qq/skin/<%=Siteskin%>/top.gif" border="0"></td>');
document.write('    </tr>');

document.write('    <tr id="qqstab">');
document.write('      <td valign="middle" align="center" background="<%=Jurl%>/images/qq/skin/<%=Siteskin%>/middle.gif">');    
document.write('<table border="0" width="40" cellSpacing="0" cellPadding="0">');
document.write('  <tr>');
document.write('    <td width="40" height="5" border="0" ></td>');
document.write('  </tr>');
<%
For iCount=0 to AllNodesNum
%>
document.write('  <tr>');
if (online[<%=iCount%>]==0)
{
document.write('    <td width="40" height="22" valign="middle" align="center">');
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><img src=<%=Jurl%>/images/qqface/<%=objRootsite.childNodes.item(iCount).childNodes.item(2).text%>_f.gif   border=0 alt='点击这里给〖<%=objRootsite.childNodes.item(iCount).childNodes.item(1).text%>〗QQ<%=objRootsite.childNodes.item(iCount).childNodes.item(0).text%>留言'></a>");
document.write('    </td>');

}
else
{
document.write('    <td width="40" height="22" valign="middle" align="center">');
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><img src=<%=Jurl%>/images/qqface/<%=objRootsite.childNodes.item(iCount).childNodes.item(2).text%>_m.gif border=0 alt='点击这里给〖<%=objRootsite.childNodes.item(iCount).childNodes.item(1).text%>〗QQ <%=objRootsite.childNodes.item(iCount).childNodes.item(0).text%>发消息'></a>");
document.write('    </td>'); 
}
document.write('  </tr>');
<%
Next
Set objRootsite=nothing
Set objXML=nothing
%>
if (<%=siteww%>==1)
else
document.write('    <tr>');
document.write('      <td width="40" align="center" ><a target="_blank" href="http://amos1.taobao.com/msg.ww?v=2&uid=<%=siteww%>&s=1" ><img border="0" src="http://amos1.taobao.com/online.ww?v=2&uid=<%=siteww%>&s=2" alt="点击这里给我旺旺发消息" /></a></td>');
document.write('    </tr>');

end if
if (<%=siteww1%>==1)
else
document.write('    <tr>');
document.write('      <td width="40" align="center" ><a target="_blank" href="http://amos1.taobao.com/msg.ww?v=2&uid=<%=siteww1%>&s=1" ><img border="0" src="http://amos1.taobao.com/online.ww?v=2&uid=<%=siteww1%>&s=2" alt="点击这里给我旺旺发消息" /></a></td>');
document.write('    </tr>');

end if
document.write('    <tr>');
document.write('      <td width="40" onclick="if(document.all.qqstab.style.display==\'none\'){document.all.qqstab.style.display=\'\'} else {document.all.qqstab.style.display=\'none\'}"><img src="<%=Jurl%>/images/qq/skin/<%=Siteskin%>/bottom.gif" border="0"></td>');
document.write('    </tr>');

document.write('</table>');