<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%
'读取传送信息的时间
strHour=Hour(Time())
if Len(strhour)=1 then strhour="0" &Strhour
strminute=minute(time())
if len(strminute)=1 then strminute="0"&strminute
strtime=""&strhour&"时"&strminute&"分"
'读取信息内容
mymsg=request("inputmsg")
if mymsg<>"" then
receiver=request("receiver")
usermsg=receiver&"msg"
application.lock
application(usermsg)="”"&receiver&"”"&session("username")&
"于" &strtime&"传送信息给你：<br>" &mymsg
application.unlock
response.redirect"send.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线情况</title>
</head>
<body>
<form action="calling.asp">
请选择收讯者：
<select name="receiver">
<%for i=0 to (application("totalusers")-1%)
<option value="<%=application("onlineuser")(i)%">
<%=application("onlineuser")(i)%>
<%next%>
</select><br>
请输入信息：<input type="text"name="inputmsg" size="40"><br>
<input type="submit" value="传送信息">
<input type="reset" value="重新输入">
</form>
</body>
</html>
评论