繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 发送信息页面send.asp--基于web的QQ程序3
- ASP
- 出现404页面错误的自动发送邮件的代码
- ASP视频教程:建立显示已经添加的新闻页面
- ASP视频教程:使用Eweb编辑器丰富新闻内容的格式
- ASP视频教程:建立修改新闻页面
- ASP视频教程:制作删除新闻的功能
- ASP视频教程:建立产品类别表和添加类别页面
- ASP视频教程:建立管理产品的页面
- ASP视频教程:制作其它栏目管理页面
- ASP实例教程:隐藏下载地址和防盗
- ASP教程:虚拟目录下不能上传图片
- ASP视频教程:制作网站前台顶部导航页面
- ASP视频教程:制作前台导航菜单
- ASP视频教程:对前台导航菜单进行调整美化
- ASP视频教程:制作新闻中心显示页面
- ASP视频教程:制作新闻详细内容显示页面
- ASP视频教程:制作前台产品显示页面（按产品类别显示）
- ASP视频教程:制作前台产品显示页面(横向重复显示图片)
- ASP视频教程:制作在线订购页面
- ASP视频教程:制作关于我们和联系我们页面
- ASP视频教程:后台功能的一些完善
ASP 中的 发送信息页面send.asp--基于web的QQ程序3
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 107 ::
收藏到网摘: 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
