顯示頁面show.asp--基於web的QQ程序

　　<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>

From:http://tw.wingwit.com/Article/program/net/201311/13816.html