<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><%'读取传送信息的时间strHour=Hour(Time())if Len(strhour)=1 then strhour="0" &Strhourstrminute=minute(time())if len(strminute)=1 then strminute="0"&strminute strtime=""&strhour&"时"&strminute&"分"'读取信息内容mymsg=request("inputmsg")if mymsg<>"" thenreceiver=request("receiver")usermsg=receiver&"msg"application.lockapplication(usermsg)="”"&receiver&"”"&session("username")&"于" &strtime&"传送信息给你：<br>" &mymsg application.unlockresponse.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>
评论