<%@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,sitemyt,sitemsn,sitetel1,sitetel2,sitefax,siteemail,sitepost,siteaddress,siteskype
Sitename=objRootsite.childNodes.item(0).childNodes.item(0).text
Siteskin=objRootsite.childNodes.item(0).childNodes.item(1).text
sitemyt=objRootsite.childNodes.item(0).childNodes.item(4).text
sitemsn=objRootsite.childNodes.item(0).childNodes.item(5).text
siteskype=objRootsite.childNodes.item(0).childNodes.item(6).text
siteww=objRootsite.childNodes.item(0).childNodes.item(7).text
sitetel1=objRootsite.childNodes.item(0).childNodes.item(8).text
sitetel2=objRootsite.childNodes.item(0).childNodes.item(9).text
sitefax=objRootsite.childNodes.item(0).childNodes.item(10).text
siteemail=objRootsite.childNodes.item(0).childNodes.item(11).text
sitepost=objRootsite.childNodes.item(0).childNodes.item(12).text
siteaddress=objRootsite.childNodes.item(0).childNodes.item(13).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="100" border="0" id="qqtab">');
document.write('    <tr>');
document.write('      <td width="100" ><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="75" cellSpacing="0" cellPadding="0">');
document.write('  <tr>');
document.write('    <td width="75" height="5" border="0" colspan="2"></td>');
document.write('  </tr>');
<%
For iCount=0 to AllNodesNum
%>
document.write('  <tr>');
document.write('    <td width="22" height="22" valign="middle" align="center">');
document.write('   <img border="0" src=http://wpa.qq.com/pa?p=4:<%=objRootsite.childNodes.item(iCount).childNodes.item(0).text%>:4 alt="<%=objRootsite.childNodes.item(iCount).childNodes.item(1).text%>" />');
document.write('    </td>');
document.write('    <td width="78" height="22" valign="middle" align="left">');
document.write("<a target=blank href=tencent://message/?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
%>
 <%
if  siteww <> "" then
%>
document.write('    <tr>');
document.write('      <td width="100" align="center" colspan="2"><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=1" alt="点击这里给我发消息" /></a></td>');
document.write('    </tr>');
 <%end if%>
 <%
if  sitemyt <> "" then
%>
document.write('    <tr>');
document.write('      <td width="100" align="center" colspan="2"><a target="_blank" href="http://amos1.sh1.china.alibaba.com/msg.atc?v=1&amp;uid=<%=sitemyt%>" ><img border="0" src="http://amos1.sh1.china.alibaba.com/online.atc?v=1&amp;uid=<%=sitemyt%>&amp;s=101" alt="点击这里给我发消息" />马上洽谈</a></td>');
document.write('    </tr>');
<%end if%>
<%
if  sitemsn <> "" then
%>
document.write('    <tr>');
document.write('      <td width="100" align="center" colspan="2"><a target="_blank" href="msnim:chat?contact=<%=sitemsn%>" ><img border="0" src="jqqonline/images/msn.gif" width="21" height="22" />&nbsp;msn&nbsp;&nbsp;&nbsp;</a></td>');
document.write('    </tr>');
<%end if%>
<%
if  siteskype <> "" then
%>
document.write('    <tr>');
document.write('      <td width="100" align="center" colspan="2"><a target="_blank" href="skype:<%=siteskype%>?call" ><img border="0" src="jqqonline/images/skype.gif" width="70" height="20" /></a></td>');
document.write('    </tr>');
<%end if%>
document.write('</table>');     
document.write('</td>');
document.write('    </tr>');
document.write('    <tr>');
document.write('      <td width="100" 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>');