<html>
<head>
<title>基于web的QQ程序</title>
<meta httpequiv=refresh content=>//每五秒取得一次信息（前面已经完成了有关登录之类的工作）
<meta httpequiv=ContentType content=text/html; charset=gb>
</head>
<body bgcolor=#FFFFFF text=#>
//假设同时通信量为
<%
responsewrite(现在在线&<br>
for i= to
if application(user&i)=session(user) then
responsewrite(<font color=#FFFF>)
responsewrite(session(user)&</font>)
else
responsewrite(application(user&i)&<br>)
end if
if application(towho&i)=session(user) then%>
<script language=javascript>
windowopen(informaspwidth=height=)
</script>
<%end if
next%>
</body>
</html>
接收信息页面informasp基于web的QQ程序
<%for i= to
if application(towho&i)=session(user)
responsewtite(来自&application(from&i)&<br>&内容&application(text&i))
end if%>//有关回信息只要加键接到sendasp(自己补充)
发送信息页面sendasp基于web的QQ程序
发送信息页面sendasp基于web的QQ程序
March
<html>
<head>
<title>发送信息页面</title>
<meta httpequiv=ContentType content=text/html; charset=gb>
</head>
<%if request(text)= then%>
<body bgcolor=#FFFFFF text=#>
发送给<select size= name=name>
＜%for i= to
if application(towho&i)=session(user) then
a=application(from&i)%＞
<option checked><%=a%></option>
<%else if application(user&i)<>a then%>
<option><%=application(user&i)%></option>
<%end if
end if
next%>
</select>
<br>
内容<textarea rows= name=text cols=></textarea>
</body><%else
for i= to
if application(towho&i)= then
application(towho&I)=request(name)
application(from&i)=session(user)
application(text&i)=request(text)
end if
if application(towho&i)=session(user) then
application(towho&i)=
application(text&i)=
application(from&i)=
end if
next
end if%>
</html>
