社区应用 最新帖子 精华区 社区服务 会员列表 统计排行 社区论坛任务 迷你宠物
  • 6538阅读
  • 0回复

用ASP编写留言板

级别: 大掌柜
发帖
7343
铜板
6618
人品值
1388
贡献值
28
交易币
100
好评度
7488
信誉值
10
金币
0
所在楼道
学一楼
??下面给一个用ASP编写的留言板程序的完整代码。 .d~\Ysve  
  ??Guestbook.htm为客户在浏览器中看到的交互式表单页面,其源代码如下: Okpwh kPL5  
  ??
  1. <html>
  2.   ??<head><title>留言板</title></head>
  3.   ??<body>
  4.   ??<center><h2>请留下您的建议</h2>
  5.   ??<Form method ="post" action ="Guestbook.asp">
  6.   ??您的名字:<input type =text name="Name" size=33><br>
  7.   ??您的Email:<input type =text name="email" size=32><br>
  8.   ??主题:<input TYPE="TEXT" NAME="Subject" SIZE="36"><br>
  9.   ??留言内容: <br><textarea name ="Memo" COLS=60 ROWS=10></textarea><p>
  10.   ??<input TYPE="Submit" NAME="SEND" VALUE="提交留言">
  11.   ??<input TYPE="RESET" VALUE="清除重写">
  12.   ??<p>
  13.   ??<a HREF="databook.asp">浏览留言</a>
  14.   ??</form></center> </body></html>
  15.   ??在databook.htm文档中存储的是各位来宾的留言,特殊之处是在文件中要使用一个定位字符串“<!----->”将文件的开始部分和具体的客户留言部分分开。ASP程序将在“<!----->”所在的位置之后插入客户的留言。
  16.   ??databook.htm的源文件为:
  17.   ??<html><head><title>看留言</title></head>
  18.   ??<body text="#00000" vlink="#990099" link="#333399">
  19.   ??<center><h1>查看留言</h1></font></center>
  20.   ??<!----->
  21.   ??<留言插入位置>
  22.   ??</body></html>
  23.   ??这样,最新的留言出现在页面的最上端;如果要把最新的留言放在页面的下端,则只需将其中的定位字符串“<!----->”移到客户留言部分和HTML文件结尾部分之间的位置就行了。
  24.   ??需注意的是:<!----->字符串一定要单独占一行。
  25.   ??Guestbook.asp文件:
  26.   ??<%
  27.   ??' 读取各输入框的数据
  28.   ??Name = Request("Name")?
  29.   ??Email = Request("Email")?
  30.   ??Subject = Request("Subject")?
  31.   ??Memo = Request("Memo")?
  32.   ??' 检查各输入框是否输入有数据
  33.   ??If Name = "" Or Memo = "" Then
  34.   ??Response.Write "输入框不能为空白!"
  35.   ??Response.End '不再处理以下的程序
  36.   ??End If
  37.   ??' 第一行包含"姓名"与"Email"
  38.   ??Line1 = "留言人:" & Name
  39.   ??Line1 = Line1 & String(5, " ")   ' 插入5个汉字空格
  40.   ??Email = "<A HREF=mailto:" & Email & ">" & Email & "</A>"
  41.   ??Line1 = Line1 & "Email(Viii)" & Email & "<BR>"
  42.   ??' 第二行
  43.   ??Line2 = "主 题:" & Subject & "<BR>"
  44.   ??' 第三行为"留言",先将留言中的换行符vbCrLf 换成<BR>
  45.   ??Memo = Replace( Memo, vbCrLf, "<BR>") ?
  46.   ??' 为了显示不同的背景颜色,采用表格输出
  47.   ??Line3 = "<TABLE BORDER=0 BGCOLOR=#00FFFF><TR><TD>"
  48.   ??Line3 = Line3 & Memo & "</TD></TR></TABLE>"
  49.   ??' 第四行为留言"时间"
  50.   ??Line4 = "时 间:" & Now??
  51.   ??On Error Resume Next ' 忽略所有的错误
  52.   ??' 建立 FileSystemObject对象
  53.   ??Set fso = Server.CreateObject("Scripting.FileSystemObject")?
  54.   ??Application.Lock
  55.   ??' 取得databook.html及databookold.html的完整路径
  56.   ??FilePath = Server.MapPath("databook.html")?
  57.   ??OldFilePath = Server.MapPath("databookold.html")?
  58.   ??' 将databook.html更名为databookold.html
  59.   ??fso.MoveFile FilePath, OldFilePath
  60.   ??' 打开databookold.html
  61.   ??Set fin = fso.OpenTextFile(OldFilePath, ,True)?
  62.   ??' 建立databook.html
  63.   ??Set fout = fso.CreateTextFile(FilePath)?
  64.   ??' 将留言簿中字符串"<!----->"前面的内容写入文件
  65.   ??Do
  66.   ??str=fin.readline
  67.   ??fout.WriteLine str
  68.   ??Loop While str <> "<!----->"
  69.   ??' 写入访问者留言
  70.   ??fout.WriteLine Line1
  71.   ??fout.WriteLine Line2
  72.   ??fout.WriteLine Line3
  73.   ??fout.WriteLine Line4
  74.   ??fout.WriteLine "<HR>"
  75.   ??' 将留言簿中以前的留言内容写入databook.html文件
  76.   ??do while fin.atendofstream=false
  77.   ??str=fin.readline
  78.   ??fout.WriteLine str
  79.   ??loop
  80.   ??' 关闭databookold.html
  81.   ??fin.Close
  82.   ??' 删除databookold.html
  83.   ??fso.DeleteFile OldFilePath, True
  84.   ??Application.UnLock
  85.   ??' 将网页导至"浏览留言"的网页databook.asp
  86.   ??Response.Redirect "databook.asp"
  87.   ??%>
  88.   ??databook.asp文件:显示留言内容
  89.   ??<html>
  90.   ??<head>
  91.   ??<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  92.   ??<title>访问者留言簿</title>
  93.   ??</head>
  94.   ??<body TEXT="#000000" BGCOLOR="#FFFFFF" BACKGROUND="b01.jpg">
  95.   ??<h2 ALIGN="CENTER">留言簿</h2>
  96.   ??<!--#include file="databook.html"-->
  97.   ??<hr WIDTH="100%">
  98.   ??<a HREF="guestform.html">
  99.   ??<p align="center">返回留言表单</a></p>
  100.   ??</body>
  101.   ??</html>
  102.   
  103.   
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
描述
快速回复

您目前还是游客,请 登录注册
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
认证码:
验证问题:
10+5=?,请输入中文答案:十五