发送信息页面send.asp--基于web的QQ程序3
程序员文章站
2022-05-24 15:36:50
发送信息页面send.--基于web的qq程序3(only asp)发送信息页面
发送信息页面send.--基于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>
<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>
上一篇： AI简单制作漂亮的黄金效果字教程