發(fā)送信息頁面send.asp--基于web的QQ程序3(only asp) <html> <head> <title>發(fā)送信息頁面</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <%if request("text")="" then%> <body bgcolor="#FFFFFF" text="#000000"> 發(fā)送給：<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> 內(nèi)容：<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
