乔贤论坛

标题: 网页留言板原代码 [打印本页]

作者: 黄天火 时间: 2011-2-18 10:37
标题: 网页留言板原代码
下面给一个用ASP编写的留言板程序的完整代码。
　　??Guestbook.htm为客户在浏览器中看到的交互式表单页面，其源代码如下：
　　??<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" ="提交留言">
　　??<input TYPE="RESET" ="清除重写">
　　??<p>
　　??<a href="/zcjy/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（"ing.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>
　　??< http-equiv="Content-Type" content="text/html; charset=gb2312">
　　??<title>访问者留言簿</title>
　　??</head>
　　??<body TEXT="#000000" BGCOLOR="#FFFFFF" background="/zcjy/b01.jpg">
　　??<h2 ALIGN="CENTER">留言簿</h2>
　　??
　　??<hr WIDTH="100%">
　　??<a href="/zcjy/guestform.html">
　　??<p align="center">返回留言表单</a></p>
　　??</body>
　　??</html>

作者: 9lo6d3s2 时间: 2011-6-20 20:47
电话乔贤论坛真好欢迎您！@%北京专业代聊@%
QQ：欢迎光临乔贤论坛电话乔贤论坛真好乔贤论坛真好…欢迎您！@%北京专业代聊@%客户保证诚信实力团队,点击百度快照
乔贤论坛真好，欢迎您！，北京欢迎光临乔贤论坛，提高网站排名，诚信实力团队
欢迎光临乔贤论坛，提高网站排名，欢迎您！，乔贤论坛真好，为你带来大量客户，
欢迎光临乔贤论坛，欢迎您！，提高网站排名，乔贤论坛真好，为你带来大量客户，http://qiaoxian.5d6d.com
本团队是欢迎光临乔贤论坛，由8人组成，日手工发帖量6000，有24万论坛的数据。可以让你需要传播的信息2天之内发送到各大搜索引擎（如百度，谷歌等）。就有源源不断的客户通过发出去的信息找到您的电话或者客户QQ。
我们通过专业，热情，耐心的介绍，打消客户的顾虑，给客户分析性价比，让客户纷纷拨打您的电话需要商品或者服务。
本团队自2008年创办，已有3年的历史和经验，为全国各地拥有资源或者商品的老板谋取了巨大的网络蛋糕。希望有更多的老板与联手，创造更多的财富。
欢迎光临乔贤论坛，提高网站排名，欢迎您！，乔贤论坛真好，为你带来大量客户，http://qiaoxian.5d6d.com
欢迎光临乔贤论坛，欢迎您！，乔贤论坛真好，提高网站排名，为你带来大量客户，http://qiaoxian.5d6d.com
QQ：欢迎光临乔贤论坛电话乔贤论坛真好

欢迎光临乔贤论坛 (http://qiaoxian.net/)