Refresh.htm
=========
<HTML>
<HEAD>
<title> Online 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> If close this window will lose the online QQ function! </font></marquee>
<!--Hey!! Here refers to the Zee conversion code, used to solve the Chinese characters can not be displayed, there was a paragraph but in my use, and found that a paragraph is not, so removed, interested friends can go to the elite area to find Zee article-->
<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>
<!--Chinese character conversion function end-->
<script language= "JavaScript" >
var lengt=0;
<!--eliminates the right key function-->
function No () {
Alert (the right key is not supported!) ");
Self.event.returnvalue=false;
}
<!--pop-up QQ dialog box, see Back-->
function sqq (uid,id) {
window.open ("sqq.asp?id=" +id+ "&uid=" +uid, "_blank", "width=400,height=180");
}
<!--key functions for displaying online member-->
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");<!--to prevent some users from not supporting XML, it uses an alternate ASP version of the-->
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= "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>
<!--This "resfresh4.asp" is used to eject the QQ dialog box when you have your own information-->
<iframe src= "refresh4.asp" width=0 height=2 marginwidth=0 marginheight=0 frameborder=0>
</iframe>
<input Type=button value= "online netizen:" class=ddyinput2>
<div id=disonline style= "Height:230;overflow:auto" ></div><br>
<!--here Scriptlet technology, you can try it, and include almost-->
<object data=i11.htm height=14 style= "HEIGHT:93PX; width:770px "
Type=text/x-scriptlet width=14 viewastext></object>
</BODY>
</HTML>
Well, the first part is here!!
