主页面index.asp:
<％@LANGUAGE="VBSCRIPT" CODEPAGE="936"％>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="conn.asp"-->
<!--#include file="chklogin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
<title>聊天室</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<script language="javascript">
var t_room,t_log,t_user;
var phone,srcphone,province,content;
var room,log,user,myroomid=0,pid;
log = Array();
user = Array();
<％
set rs=conn.execute("select top 1 chat_id as id from chat_log where chat_id in (select top 50 chat_id from chat_log order by chat_id desc) order by chat_id")
response.Write("pid="&rs("id")&";")
％>
</script>
<script language="javascript" src="function.js"></script>
<form name="form1" method="post" action="" onSubmit="return false;">
<table width="100％" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="11％" valign="top"><div align="center">
<select id="chat_room" onChange="Change_room();"></select><br>
<select id="chat_user" name="select" size="30" onChange="srcphone = this.value;"></select><br>
<span onClick="Load_room();" style="cursor:hand;">刷新房间列表</span><br>
<span onClick="Load_user();" style="cursor:hand;">刷新用户列表</span></div></td>
<td width="89％" valign="top"><textarea name="log" rows="35" wrap="VIRTUAL" id="log"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input name="content" type="text" id="content" size="100" maxlength="140" onKeyDown="if (event.keyCode==13) {Send();}">
<input name="SendToServer" type="button" id="SendToServer" onClick="Send();" value="发送">
<input type="button" name="Submit" value="退出" onClick="window.location.href='logout.asp';"></td>
</tr>
</table>
</form>
</body>
</html>
非常关键的函数function.js:
// JavaScript Document
window.onload=function init()
{
Load_log();
Load_user();
Load_room();
}
function GetPage(url)
{
var xml = new ActiveXObject("Microsoft.XMLHTTP");
xml.open("GET",url,false);
xml.send();
return unescape(xml.ResponseText);
}
function PostData(url,Body)
{
var xml = new ActiveXObject("Microsoft.XMLHTTP");
xml.open("POST",url,false);
xml.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
xml.setRequestHeader("Content-Length",escape(Body).length)
xml.send(Body);
}
function Load_room()
{
var value = GetPage("chat_room.asp");
var str = value.split("#");
var id,roomname,temp;
room = new ActiveXObject("Scripting.Dictionary");
var i=str.length-1;
while(i-- >0)
{
temp = str[i].split("*");
id = temp[0];
roomname = temp[1];
room.Add(id,roomname);
}
Show_room();
//t_room = setTimeout("Load_room();",60000);
}
