乔贤论坛

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

作者: 黄天火 时间: 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/)