繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 发送信息页面send.asp--基于web的QQ程序3
- ASP
- ASP实例代码：搞个长文章分页代码
- 说说对象的复制
- 多个函数验证同一表单
- 查询某个字段没有值的所有记录的SQL语句怎么写？
- ASP实例：一个简单的ASP无组件上传类
- ASP实例讲解：用分页符实现长文章分页显示
- ASP实例：动态网页中常用的6个ASP程序
- ASP实例：词语搭配游戏的制作
- ASP实例学习：随机生成文件名的函数
- asp实例：测试WEB服务器
- ASP实例：计数器程序详解
- 预防ASP网站被黑 彻底了解ASP木马
- 分享：XML HTTP Request的属性和方法简介
- ASP架设：给每个IIS站点建立一个用户
- ASP技巧：判断远程图片是否存在
- 故障解决：解决ASP脚本运行超时的方法
- 再说ASP输出N行N列表格
- 怎么判断一个对象是否已被释放
- ASP实现网页打开任何类型文件都保存的方法
- ASP技巧：利用函数InstrRev()获取当前文件名
ASP 中的 发送信息页面send.asp--基于web的QQ程序3
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 41 ::
收藏到网摘: n/a
<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>
评论 (0) All
