qqservices.asp
上传用户:btntkt
上传日期:2021-04-16
资源大小:5296k
文件大小:3k
源码类别:

WEB源码(ASP,PHP,...)

开发平台:

DOS

  1. <%
  2. if webbanner<>"" then
  3. QQ=split(webbanner,",")
  4. for N=0 to UBound(QQ)
  5. MyQQ=MyQQ+QQ(N)+":"
  6. next
  7. %>
  8. <html>
  9. <head>
  10. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  11. <link rel="stylesheet" href="images/qq.css" type="text/css">
  12. </head>
  13. <script>
  14. var online= new Array();
  15. if (!document.layers)
  16. document.write('<div id="divStayTopright" style="position:absolute">')
  17. </script>
  18. <layer id="divStayTopright">
  19. <table border="0" width="67" cellspacing="0" cellpadding="0">
  20.   <tr> 
  21.     <td width="67"><img border=0 src=images/mingle/sertop.gif></td>
  22.   </tr>
  23.   <script src="http://webpresence.qq.com/getonline?Type=1&<%=Myqq%>"></script>
  24.   <% for N=0 to UBound(QQ) %>
  25.   <tr> 
  26.     <td valign=middle  background=images/mingle/qqmiddle.gif> 
  27.       <script>
  28. if (online[<%=n%>]==0)
  29. document.write("&nbsp;&nbsp;<img src=images/mingle/qq3.gif border=0 align=middle><a class='qqb' target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Site=在线咨询&Menu=no' title='客服不在线,请留言'>客服</a>");
  30. else
  31. document.write("&nbsp;&nbsp;<img src=images/mingle/33.gif border=0 align=middle><a class='qqa' target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Site=在线咨询&Menu=no' title='在线即时交谈'>客服</a>");
  32. </script >
  33.     </td> 
  34.   </tr><tr><td height=3 background=images/mingle/qqmiddle.gif ></td></tr><%next%>
  35.   <tr> 
  36.     <td><img src="images/mingle/qqdown.gif"></td>
  37.   </tr>
  38.   <tr> 
  39.     <td background="images/mingle/serly.gif" ><a href=viewreturn.asp><img  src="images/mingle/serly.gif"border=0></a></td>
  40.   </tr>
  41.  
  42. </table>
  43. </layer>
  44. <script type="text/javascript">
  45. //Enter "frombottom" or "fromtop"
  46. var verticalpos="frombottom"
  47. if (!document.layers)
  48. document.write('</div>')
  49. function JSFX_FloatTopDiv()
  50. {
  51. <% if qqwz=1 then %>
  52. var startX =2,
  53. <% else %>
  54. var startX =940,
  55. <%end if %>
  56. startY = 460;
  57. var ns = (navigator.appName.indexOf("Netscape") != -1);
  58. var d = document;
  59. function ml(id)
  60. {
  61. var el=d.getElementById?d.getElementById(id):d.all?d.all[id]:d.layers[id];
  62. if(d.layers)el.style=el;
  63. el.sP=function(x,y){this.style.right=x;this.style.top=y;};
  64. el.x = startX;
  65. if (verticalpos=="fromtop")
  66. el.y = startY;
  67. else{
  68. el.y = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
  69. el.y -= startY;
  70. }
  71. return el;
  72. }
  73. window.stayTopright=function()
  74. {
  75. if (verticalpos=="fromtop"){
  76. var pY = ns ? pageYOffset : document.body.scrollTop;
  77. ftlObj.y += (pY + startY - ftlObj.y)/8;
  78. }
  79. else{
  80. var pY = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
  81. ftlObj.y += (pY - startY - ftlObj.y)/8;
  82. }
  83. ftlObj.sP(ftlObj.x, ftlObj.y);
  84. setTimeout("stayTopright()", 10);
  85. }
  86. ftlObj = ml("divStayTopright");
  87. stayTopright();
  88. }
  89. JSFX_FloatTopDiv();
  90. </script>
  91. <% end if %>
  92. </html>