refresh.htm

 1<html>
 2<head>
 3<title>在线QQ</title>
 4<link href="forum.css" rel="stylesheet" type="text/css"/>
 5</head>
 6<body leftmargin="0" onload="online()" scroll="no" style="background-color: #8482C6; color:   
 7#FFFFFF; border: 2 solid #FFFFFF; padding: 0" topmargin="0">
 8<marquee><font color="black">如果关闭此窗口将失去在线QQ功能！</font></marquee>
 9<!--嘿嘿！！这里引用了ZEE的转换代码，用于解决无法显示汉字的，本来还有一段的不过在俺用的时候，发现加上那一段就不行了，所以去掉了，有兴趣的朋友可以到精华区去找一下zee的文章 -->
10<script language="vbscript">   
11Function bytes2BSTR(vIn)   
12strReturn=""   
13For i=1 To LenB(vIn)   
14ThisCharCode=AscB(MidB(vIn,i,1))   
15If ThisCharCode<&H80 Then   
16strReturn=strReturn&Chr(ThisCharCode)   
17Else   
18NextCharCode=AscB(MidB(vIn,i+1,1))   
19strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))   
20i=i+1   
21End If   
22Next   
23bytes2BSTR=strReturn   
24End Function   
25</script>
26<!--汉字转换函数结束 -->
27<script language="javascript">   
28var lengt=0;   
29<!--消除右键功能-->   
30function no(){   
31alert("不支持右键！");   
32self.event.returnValue=false;   
33}   
34<!--弹出QQ对话框，见后面-->   
35function sqq(uid,id){   
36window.open("sqq.asp?id="+id+"&uid="+uid,"_blank","width=400,height=180");   
37}   
38<!--关键的函数，用于显示在线的会员-->   
39function online(){   
40var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");   
41xmlhttp.open("post","online.asp",false);   
42xmlhttp.send();   
43var xmldom=new ActiveXObject("Microsoft.XMLDOM");   
44xmldom.async=false;   
45body=bytes2BSTR(xmlhttp.responseBody);   
46xmldom.loadXML(body);   
47if(xmldom.parseError.errorCode!=0){   
48window.open("refresh2.asp","_self");<!--为了防止有些用户不支持xml，所以用了一个备用的asp版的-->   
49return   
50}   
51else{   
52var uid=xmldom.documentElement.selectNodes("uid");   
53var id=xmldom.documentElement.selectNodes("id");   
54var sex=xmldom.documentElement.selectNodes("sex");   
55var xx="";   
56lengt=uid.length;   
57for(var i=0;i<lengt;i++){   
58var im="";   
59if(id(0).text!="k") im="<img src=../jy/face/1.gif width=12 height=12>";   
60xx=xx+im+"<font color=red onclick=sqq('"+uid(i).text+"','"+id(i).text+"') style='cursor:hand'   
61title='"+sex(i).text+"'>"+uid(i).text+"</font><br>";   
62}   
63disonline.innerHTML=xx;   
64window.setTimeout("online()",3000);   
65}   
66}   
67  
68</script>
69<!--这个"resfresh4.asp"是用于当有自己的信息时弹出QQ对话框用的-->
70<iframe frameborder="0" height="2" marginheight="0" marginwidth="0" src="refresh4.asp" width="0">
71</iframe>
72<input class="ddyinput2" type="button" value=" 在线网友："/>
73<div id="disonline" style="height:230;overflow: auto"></div><br/>
74<!--这里用到了scriptlet技术，你也可以试一下，和include差不多-->
75<object data="i11.htm" height="14" style="HEIGHT: 93px; WIDTH: 770px" type="text/x-scriptlet" viewastext="" width="14"></object>
76</body>
77</html>
好了，第一部分就到这里了！！
一个基于web的QQ程序 1（xml+asp）

refresh.htm
