社区应用
帖子
相册
日志
群组
热榜
分享
记录
最新帖子
精华区
社区服务
农场庄园
银行
家族
勋章中心
道具中心
博客
我的星座
游游乐
会员列表
统计排行
基本信息
到访IP统计
管理团队
管理操作
在线会员
会员排行
版块排行
帖子排行
标签排行
社区论坛任务
迷你宠物
左右分栏
邀请注册
首页
帮助
下拉
用户名
电子邮箱
记住
找回密码
登录
注册
我的快捷通道
关闭
您还没有登录,快捷通道只有在登录后才能使用。
立即登录
还没有帐号? 赶紧
注册一个
首页
论坛
门户
群组
新闻
开心牧场
若水专栏
校内生活
社区生活
休闲娱乐
蜀道之上
资源共享
技术交流
帖子
日志
用户
版块
群组
帖子
搜索
热搜:
wind8green
wind
wind8gray
wind8black
wind8purple
书签
口- 站内公告
口- 新生交流
街舞社团
数学协会
口- 若水茶楼
口- 青春时尚
关闭
选中
1
篇
全选
[切换到宽版]
最新帖子
精华区
书签
若水UEBBS.COM社区—〖石家庄经济学院论坛〗
>
口- 技术交流
>
用ASP编写留言板
发帖
回复
« 返回列表
上一主题
下一主题
新帖
6536
阅读
0
回复
用ASP编写留言板
areway
UID:1
注册时间
2005-10-16
最后登录
2021-04-17
在线时间
5208小时
发帖
7343
搜Ta的帖子
精华
10
铜板
6618
人品值
1388
贡献值
28
交易币
100
好评度
7488
信誉值
10
金币
0
访问TA的空间
加好友
用道具
级别:
大掌柜
发帖
7343
铜板
6618
人品值
1388
贡献值
28
交易币
100
好评度
7488
信誉值
10
金币
0
所在楼道
学一楼
关注Ta
发消息
只看楼主
更多操作
倒序阅读
复制链接
使用道具
0
发表于: 2006-03-28
??下面给一个用ASP编写的留言板程序的完整代码。
bWQORjnd8
??Guestbook.htm为客户在浏览器中看到的交互式表单页面,其源代码如下:
Rbj+P;t&
??
复制代码
<html>
??<head><title>留言板</title></head>
??<body>
??<center><h2>请留下您的建议</h2>
??<Form method ="post" action ="Guestbook.asp">
??您的名字:<input type =text name="Name" size=33><br>
??您的Email:<input type =text name="email" size=32><br>
??主题:<input TYPE="TEXT" NAME="Subject" SIZE="36"><br>
??留言内容: <br><textarea name ="Memo" COLS=60 ROWS=10></textarea><p>
??<input TYPE="Submit" NAME="SEND" VALUE="提交留言">
??<input TYPE="RESET" VALUE="清除重写">
??<p>
??<a HREF="databook.asp">浏览留言</a>
??</form></center> </body></html>
??在databook.htm文档中存储的是各位来宾的留言,特殊之处是在文件中要使用一个定位字符串“<!----->”将文件的开始部分和具体的客户留言部分分开。ASP程序将在“<!----->”所在的位置之后插入客户的留言。
??databook.htm的源文件为:
??<html><head><title>看留言</title></head>
??<body text="#00000" vlink="#990099" link="#333399">
??<center><h1>查看留言</h1></font></center>
??<!----->
??<留言插入位置>
??</body></html>
??这样,最新的留言出现在页面的最上端;如果要把最新的留言放在页面的下端,则只需将其中的定位字符串“<!----->”移到客户留言部分和HTML文件结尾部分之间的位置就行了。
??需注意的是:<!----->字符串一定要单独占一行。
??Guestbook.asp文件:
??<%
??' 读取各输入框的数据
??Name = Request("Name")?
??Email = Request("Email")?
??Subject = Request("Subject")?
??Memo = Request("Memo")?
??' 检查各输入框是否输入有数据
??If Name = "" Or Memo = "" Then
??Response.Write "输入框不能为空白!"
??Response.End '不再处理以下的程序
??End If
??' 第一行包含"姓名"与"Email"
??Line1 = "留言人:" & Name
??Line1 = Line1 & String(5, " ") ' 插入5个汉字空格
??Email = "<A HREF=mailto:" & Email & ">" & Email & "</A>"
??Line1 = Line1 & "Email(Viii)" & Email & "<BR>"
??' 第二行
??Line2 = "主 题:" & Subject & "<BR>"
??' 第三行为"留言",先将留言中的换行符vbCrLf 换成<BR>
??Memo = Replace( Memo, vbCrLf, "<BR>") ?
??' 为了显示不同的背景颜色,采用表格输出
??Line3 = "<TABLE BORDER=0 BGCOLOR=#00FFFF><TR><TD>"
??Line3 = Line3 & Memo & "</TD></TR></TABLE>"
??' 第四行为留言"时间"
??Line4 = "时 间:" & Now??
??On Error Resume Next ' 忽略所有的错误
??' 建立 FileSystemObject对象
??Set fso = Server.CreateObject("Scripting.FileSystemObject")?
??Application.Lock
??' 取得databook.html及databookold.html的完整路径
??FilePath = Server.MapPath("databook.html")?
??OldFilePath = Server.MapPath("databookold.html")?
??' 将databook.html更名为databookold.html
??fso.MoveFile FilePath, OldFilePath
??' 打开databookold.html
??Set fin = fso.OpenTextFile(OldFilePath, ,True)?
??' 建立databook.html
??Set fout = fso.CreateTextFile(FilePath)?
??' 将留言簿中字符串"<!----->"前面的内容写入文件
??Do
??str=fin.readline
??fout.WriteLine str
??Loop While str <> "<!----->"
??' 写入访问者留言
??fout.WriteLine Line1
??fout.WriteLine Line2
??fout.WriteLine Line3
??fout.WriteLine Line4
??fout.WriteLine "<HR>"
??' 将留言簿中以前的留言内容写入databook.html文件
??do while fin.atendofstream=false
??str=fin.readline
??fout.WriteLine str
??loop
??' 关闭databookold.html
??fin.Close
??' 删除databookold.html
??fso.DeleteFile OldFilePath, True
??Application.UnLock
??' 将网页导至"浏览留言"的网页databook.asp
??Response.Redirect "databook.asp"
??%>
??databook.asp文件:显示留言内容
??<html>
??<head>
??<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
??<title>访问者留言簿</title>
??</head>
??<body TEXT="#000000" BGCOLOR="#FFFFFF" BACKGROUND="b01.jpg">
??<h2 ALIGN="CENTER">留言簿</h2>
??<!--#include file="databook.html"-->
??<hr WIDTH="100%">
??<a HREF="guestform.html">
??<p align="center">返回留言表单</a></p>
??</body>
??</html>
本帖最近评分记录:
共
条评分
隐藏
评价一下你浏览此帖子的感受
精彩
感动
搞笑
开心
愤怒
无聊
灌水
回复
引用
举报
顶端
发帖
回复
« 返回列表
上一主题
下一主题
https://uebbs.com/bbs
访问内容超出本站范围,不能确定是否安全
继续访问
取消访问
描述
快速回复
您目前还是游客,请
登录
或
注册
限 120 字节
温馨提示:欢迎交流讨论,请勿纯表情、纯引用!
进入高级模式
加粗
字体颜色
背景颜色
插入链接
图片
认证码:
验证问题:
10+5=?,请输入中文答案:十五
提 交
回复后跳转到最后一页
上一个
下一个
隐藏
快速跳转
:若 水 专 栏:
口- 新手转正专区
口- 经院贴吧
口- 新生交流
口- 我在网吧
口- UeFace客服
口- 广告发布区
:校 内 生 活:
口- 我的大学
口- 驴行天下
口- 实习信息
口- 七七鹊桥
口- 留学交流
口- 跳蚤市场
:社 区 生 活:
口- 若水茶楼
口- 格 子 楼
口- 青春时尚
口- 热点资讯
口- 校友之家
口- 健康塑身
:休 闲 娱 乐:
口- 笑 话 林
口- 星座物语
口- 体育沙龙
口- 食全食美
口- 唯美贴图
口- 游戏城域
:蜀 道 之 上:
口- 考研专版
口- 公务员
口- 考试资源
口- 外语学习
口- 考试认证
:资 源 共 享:
口-内部资源
口- B T 资源
口- 软件下载
口- 天籁音乐
口- 影视频道
口- 动漫专区
:技 术 交 流:
口- 数码硬件
口- 免费东西
口- 讨论求助
口- 技术交流
口- 设计交流
:院 系 组 织:
口- 二级学院
口- 校内组织
:站 务 管 理:
口- 社区办公室
口- 回 收 站
关闭