【 tulaoshi.com - ASP 】
发送信息页面send.asp--基于web的QQ程序3(only asp)
<html
<head
<title发送信息页面</title
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
</head
<%if request("text")="" then%
<body bgcolor="#FFFFFF" text="#000000"
发送给：<select size="1" name="name"
＜%for i=1 to 30
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="2" name="text" cols="20"</textarea
</body<%else
for i=1 to 30
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
