开发学院 WEB开发 ASP 一个基于web的QQ程序 1（xml+asp）阅读

一个基于web的QQ程序 1（xml+asp）

　2001-09-11 11:05:13　来源：WEB开发网　　　

核心提示：refresh.htm=<HTML><HEAD><title>在线QQ</title><link rel="stylesheet" type="text/CSS" href="forum.css">&

refresh.htm
=========
<HTML>
<HEAD>
<title>在线QQ</title>
<link rel="stylesheet" type="text/CSS" href="forum.css">
</HEAD>
<BODY onload=online() scroll=no topmargin="0" leftmargin="0" style="background-color: #8482C6; color:
#FFFFFF; border: 2 solid #FFFFFF; padding: 0">
<marquee><font color=black>如果关闭此窗口将失去在线QQ功能！</font></marquee>

<script language="vbscript">
Function bytes2BSTR(vIn)
　　strReturn=""
　　For i=1 To LenB(vIn)
　　　　ThisCharCode=AscB(MidB(vIn,i,1))
　　　　If ThisCharCode<&H80 Then
　　　　　　strReturn=strReturn&Chr(ThisCharCode)
　　　　Else
　　　　　　NextCharCode=AscB(MidB(vIn,i+1,1))
　　　　　　strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
　　　　　　i=i+1
　　　　End If
　　Next
　　bytes2BSTR=strReturn
End Function
</script>

<script language="javascript">
var lengt=0;

function no(){
　　alert("不支持右键！");
　　self.event.returnValue=false;
}

function sqq(uid,id){
　　window.open("sqq.asp?id="+id+"&uid="+uid,"_blank","width=400,height=180");
　　}

function online(){
　　　　var xmlhttp = new ActiveXObject("Microsoft.xmlhttp");
　　　　xmlhttp.open("post","online.asp",false);
　　　　xmlhttp.send();
　　　var xmldom=new ActiveXObject("Microsoft.XMLDOM");
　　　　xmldom.async=false;
　　　　body=bytes2BSTR(xmlhttp.responseBody);
　　　　xmldom.loadXML(body);
　　　　if(xmldom.parseError.errorCode!=0){
　　　　　　window.open("refresh2.asp","_self");
　　　　　　return
　　　　　　}
　　　　else{
　　　　var uid=xmldom.documentElement.selectNodes("uid");
　　　　var id=xmldom.documentElement.selectNodes("id");
　　　　var sex=xmldom.documentElement.selectNodes("sex");
　　　　var xx="";
　　　　lengt=uid.length;
　　　　for(var i=0;i<lengt;i++){
　　　　　　var im="";
　　　　　　if(id(0).text!="k") im="<img src=http://www.cncms.com/jy/face/1.gif width=12 height=12>";
　　　　　　xx=xx+im+"<font color=red onclick=sqq('"+uid(i).text+"','"+id(i).text+"') style='cursor:hand'
title='"+sex(i).text+"'>"+uid(i).text+"</font><br>";
　　　　　　}
　　　　disonline.innerHTML=xx;
　　　　window.setTimeout("online()",3000);
　　}
　　}

</script>

<iframe src="refresh4.asp" width=0 height=2 marginwidth=0 marginheight=0 frameborder=0>　
</iframe>

<input type=button value=" 在线网友：" class=ddyinput2>
<div id=disonline style="height:230;overflow: auto"></div><br>

<OBJECT data=i11.htm height=14 style="HEIGHT: 93px; WIDTH: 770px"
　　　type=text/x-scriptlet width=14 VIEWASTEXT></OBJECT>

</BODY>
</HTML>
好了，第一部分就到这里了！！