发送信息页面send.asp--基于web的QQ程序3

发送信息页面send.asp--基于web的QQ程序3(only asp)

1<html>
2<head>
3<title>发送信息页面</title>
4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
5</head>

if request("text")="" then

1<body bgcolor="#FFFFFF" text="#000000">   
2发送给：<select name="name" size="1">   
3＜%for i=1 to 30   
4if application("towho"&amp;i)=session("user") then   
5a=application("from"&amp;i)%＞   
6<option checked="">```
7=a
8```</option>

else if application("user"&i)<>a then

1<option>```
2=application("user"&amp;amp;i)
3```</option>

end if
end if
next

 1</select>
 2<br/>   
 3内容：<textarea cols="20" name="text" rows="2"></textarea>
 4</body>```
 5else   
 6for i=1 to 30   
 7if application("towho"&amp;amp;i)="" then   
 8application("towho"&amp;amp;I)=request("name")   
 9application("from"&amp;amp;i)=session("user")   
10application("text"&amp;amp;i)=request("text")   
11end if   
12if application("towho"&amp;amp;i)=session("user") then   
13application("towho"&amp;amp;i)=""   
14application("text"&amp;amp;i)=""   
15application("from"&amp;amp;i)=""   
16end if   
17next   
18  
19end if

```