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

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





<%if request("text")="" then%>

发送给：
＜%for i=1 to 30
if application("towho"&i)=session("user") then
a=application("from"&i)%＞
    <%=a%>
<%else if application("user"&i)<>a then%>
<%=application("user"&i)%>
<%end if
end if
next%>



内容：
<%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%>