帮忙!!我急需asp+txt(不用数据库)的小型留言板!!(200分)(200分)

[?]帮忙!!我急需asp+txt(不用数据库)的小型留言板!!

跟我联系

多长时间？
可以给你帮忙。

怎么联系?
越快越好
我的信箱:star@mail.tjpu.edu.cn

呵呵，我有两个方案
给大家借鉴，我最近在搞一个项目没有时间拉，SORRY
1，用ASP写文本直接使用，这样写好象删除有些麻烦。
2，用XML写这样就很简单也很方便，不过要你懂XML呵呵。

ASP+xml 我担心大多数浏览器不支持xml，所以必须用txt繁就繁吧能下周之前给我原代码吗
？知道哪能下载也可以。我现在刚看asp还不知道怎么用文本文件，又忙所以劳烦各位旁忙呀
必有重谢！！

就几个文件读写函数，有这么久早就看完了，

就是啊
随便找个源码
看两眼那几个文件调用函数，就差不多了

哪位给个源码啊

http://www.asp100.net/
看看那个好，尽管下。。不过现在很多寄存服务器都不支持文件读写了。[]

这是我找的文件，但有错误，不知道再那里
< %
Name = Request("Name") )
Email = Request("Email")
Subject = Request("Subject")
Memo = Request("Memo")
'从留言表单取得数据
If Name = "" Or Email = "" Or Subject = "" Or Memo = "" then

Response.Write "输入框不能为空白!"
Response.End
End If
'检查表单的各输入框是否有信息输入，若留有空输入框没填则显示说明信息："输入框不能为空白!" 并停止执行下面的程序。?
Line1 = "留言人：" &amp;
Name
Line1 = Line1 &amp;
String(5, "　")
Email = "< A HREF=mailto:" &amp;
Email &amp;
">" &amp;
Email &amp;
"< /A>"
Line1 = Line1 &amp;
"Email?" &amp;
Email &amp;
"< BR>"
Line2 = "主 题：" &amp;
Subject &amp;
"< BR>"
Memo = Replace( Memo, vbCrLf, "< BR>" )
Line3 = "< TABLE BORDER=1>< TR>< TD>"
Line3 = Line3 &amp;
"您的留言：" &amp;
Memo &amp;
"< /TD>< /TR>< /TABLE>"
Line4 = "时 间：" &amp;
Now()
'定义留言的显示格式，其中留言信息用信息框框起来。
On Error Resume Next
'避免如果执行下面的ReadAll（读取已打开文件的全部信息）时，无法读取信息就造成的程序错误的情况发生，因此加入此句用于忽略所有的错误。
Set fso = Server.CreateObject("Scripting.FileSystemObject") Application.Lock
TxtPath = Server.MapPath("book1.txt")
NewPath = Server.MapPath("newbook.txt")
fso.MoveFile TxtPath, NewPath
Set fin = fspenTextFile(NewPath, , True)
Set fout = fso.CreateTextFile(TxtPath)
'建立 FileSystemObject对象，并锁定Application对象，不让任何两位上网者同时执行留言操作，同时建立和打开一个TextStream对象，指向要对其实行僮鳎?糜诹粞约锹嫉奈谋綽ook1.txt。
fout.WriteLine Line1
fout.WriteLine Line2
fout.WriteLine Line3
fout.WriteLine Line4
fout.WriteLine "< hr>"
fout.WriteLine fin.ReadAll
'把留言表单中的信息分行写入到已打开的文件中。
fin.Close
fso.DeleteFile NewPath, True
Application.UnLock
Response.Redirect "guestbook1.asp"
'关闭并删除gbookold.txt，然后解除Application对象的锁定，再指引客户端浏览器到新的Web页面guestbook1.asp。
%>
　　

用文件不就行了CreateObject("Scripting.FileSystemObject")
Set fo= CreateObject("Scripting.FileSystemObject")
If Fo.FileExists(Server.MapPath("Total.txt")) = True then
Set F = FpenTextFile(Server.MapPath("Total.txt"),1)
Total=CInt(F.Readline)
Times=CStr(Total)
F.Close
Set F = FpenTextFile(Server.MapPath("Total.txt"),2)
F.WriteLine(Total+1)
F.Close

我有CODE的，很简单 不过不能分页显示

很多网站都不能使用FileSystemObject

二、基本思想
　　本文思想是基于用ASP和DOM来读取和存储XML数据，并利用XML数据来存储留言信息，达到同用数据库存储数据的功能。
　　三、XML留言本的优势
　　或许你会问用ASP＋TXT文本也可以达到不用数据库实上留言的功能，不错确实能够做到，而且网上也有很多这样的留言本免费下载，但这里我要讲一下ASP＋XML的优越性。
　　１、XML＋ASP比ASP＋TXT速度要快。可能你也发现当TXT文件很少时速度出奇的快，但是随着留言信息的增加TXT文本变大，速度却又是出奇的慢这就是ＡＳＰ＋TXT的弱点。当然我不能说ＡＳＰ＋XML就一定是出奇的快，但是比起ＡＳＰ＋TXT来说是快了许多，当然随着留言信息的增加ＸＭＬ文本增大速度也下降很快，但是比起TXT来说就还是好了许多（这一点可以从ＷＡＳ测试证明读者可以自行测试），当然ＡＳＰ＋XML比不上数据库，因为数据库对查询做了特别的优化，而XML只是纯文本，在ＡＳＰ建立对像是要把ＸＭＬ数据全部读入内存中，如果数据量大的话可想而知速度会慢下来。那你也许会问那我什么时候用关系数据库存储数据，又什么时候用XML存储数据呢？我这里也顺便提一下，就是当数据比较复杂无规率时用XML数据比较合适，还有就是你打算这些数据要在不同的操作系统上读取运用时那就是XML大显身手的时候了。如果你是普通的数据那么不到关键时刻或不支持数据库的空间时还是不要用XML文件来存储数据为好。
　　２、XML数据的易读取性，TXT文本是比较难操作的，我们必须一行一行的读取判断，而且很多功能无法实上，只能编制比较简单的留言本，而ＸＭＬ数据则不同了，利用DOM可以轻易的访问每一个节点，而不是TXT那些烦人的Readline() Witeline()了，我们可以随意的加入删除更新某一个我们感兴趣的节点，利用ASP或者ＪＳ或者数据岛都可以轻松实上这一点，当然我这里为发考虑兼容性，用了ASP来读取XML数据，而没有用数据岛来读取节点数据（因为只有ＩＥ５以上版本才支持数据岛技术）而用ASP来实上就不存在这些问了因为客户得到的是HTML文件。
　 ３、XML数据夸操作系统性，只要我们把这些数据存储为XML那么这些数据就能被应何基它语言或系统所识别，而不用做应何改动。TXT显然不具备这些性能。例如我们在网上的留言信息可以直接被被转换成wap格式在手机上显示。
　　四、建立存储留言信息的XML文件(List.xml)
　　我们这里不打算使用ＤＴＤ，因为我们这是我们自已编制并测试通过的XML数据，所以不需要ＤＴＤ来验证（如果你对此感兴趣当然可以加一个这不影响程序的运行）。现在我们来看看建立一个留言本的基本要素
　　０、留言ＩＤ号--定义为＜id＞
　　１、用户名我们--定义为＜username＞
　　２、来自那里们--定义为＜fromwhere＞
　　３、留言时间定--义为＜Posttime＞
　　４、用户主页定--义为＜homepage＞
　　５、用户的信箱--定义为＜email＞
　　６、留言内容定--义为＜text＞
　　当然以上不是必须的读者可以自行命名并加减相关标签，把它们组合起来就得到List.xml的文件了
＜?xml version="1.0" encoding="gb2312"?＞
＜site＞
　　　＜NewList＞
　　　　　　＜list＞
　　　　　　　　＜id＞1＜/id＞
　　　　　　　　＜username＞苛子＜/username＞
　　　　　　　　＜fromwhere＞中国广州＜/fromwhere＞
　　　　　　　　＜Posttime＞01-4-23 18:26:56＜/Posttime＞
　　　　　　　　＜homepage＞http://page2000.xiloo.com＜/homepage＞
　　　　　　　　＜email＞lucaihui@cmmail.com＜/email＞
　　　　　　　　＜text＞这是我的第一个XML文件＜/text＞
　　　　　　＜/list＞
　　　＜/NewList＞
＜/site＞

　　注意：必须加上encoding="gb2312"否则会报错为非法字符，因为XML默认不支持中文。＜site＞为根节点＜NewList＞＜ist＞等为子节点。对这个文件的意思我就不多说了大家也应该看的明白了。接下来就是我们如何来显示它了。

　　五、建立显示XML数据的ASP文件(index.asp)
　　这个文件要实现的功能就是读取并显示XML数据，首先创建一个XML对像然后把XML读入内存中，利用DOM分离出我们所要的数据。
＜%
strSourceFile = Server.MapPath("/") &amp;
"/List.xml"
'获取XML文件的路径这里根据你的虚拟目录不同而不同
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
'以自由线程创建一个XML对像
objXML.load(strSourceFile)'把XML文件读入内存
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
'选取NewList节点
%＞
＜html＞
＜head＞
＜title＞留言本＜/title＞
＜meta http-equiv="Content-Type" content="text/html;
charset=gb2312"＞
＜style type="text/css"＞
＜!--
td { font-family: "宋体";
font-size: 9pt;
text-decoration: none}
a { font-family: "宋体";
font-size: 9pt;
color: #0066CC;
text-decoration: none}
a:hover { color: #FF6600;
text-decoration: underline}
--＞
＜/style＞
＜/head＞＜body bgcolor="#0099CC" text="#000000"＞
＜table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#CCCCCC"＞
＜tr bgcolor="#000000"＞
＜td colspan="2"＞＜font color="#FFFFFF"＞留言溥 ＜a href="PostNew.asp"＞＜font color=#FFFFFF＞写新留言＜/font＞＜/a＞＜/font＞＜/td＞
＜/tr＞
＜%
PageSize =10'假设每页显示10条留言
AllNodesNum =objRootsite.childNodes.length-1
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
PageNum=AllNodesNum/PageSize+1'算出总页数
PageNo=request.querystring("PageNo")
if PageNo="" then
'如果是每一次获得页面则定位到每一页显示最新的留言
PageNo=PageNum
end if
StarNodes=PageNo*PageSize-1'获得起始节点
EndNodes=(PageNo-1)*PageSize'获得结束节点
if EndNodes＜0 then
EndNodes=0
end if
if StarNodes＞AllNodesNum then
'判断起始节点数是否超过总的节点数
EndNodes=EndNodes-(StarNodes-AllNodesNum)
'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
StarNodes=AllNodesNum
end if
if EndNodes＜0 then
EndNodes=0
end if
while StarNodes＞=EndNodes
'从结束节点到超始节点之间读取节点数据
username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
'获得用户名
fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
'获得用户来自那里
Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
'获得留言时间
homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
'获得用户主页
email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
'获得用户Eamil
text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
'获昨留言内容
'*****************************************************************************
'这里使作了XML的DOM来读取数据,显然objRootsite对像所对应的节点为＜NewList＞
' objRootsite.childNodes.item(StarNodes)所对应的节点就是＜list＞节点因为不至一个＜list＞节点所以用了item()来识别当前节点数据，随着StarNodes的递减＜list＞节点根着往上移一个个读取＜list＞节点数据。
'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所对应的节点为具体的每个节点的文本值，这里(1)所对应的就是username用户名（因为＜list＞节点的子节点才是我们真正所要的）
'******************************************************************************
text = replace(text,chr(13),"＜br＞")
'替代回车
text = replace(text,chr(32)," ")
'替代空格
%＞
＜tr bgcolor="#F0F0F0"＞
＜td width="21%" height="94" valign="top"＞姓 名：＜%=username%＞＜br＞
来 自：＜%=fromwhere%＞＜br＞
＜/td＞
＜td width="79%" height="94" valign="top"＞ | ＜a href="＜%=homepage%＞" target=_blank title="＜%=username%＞的主页"＞主页＜/a＞
| | ＜a href="mailto:＜%=email%＞" title="给＜%=username%＞写信"＞信箱＜/a＞ | |＜font color="#CC6633"＞
留言时间：＜%=Posttime%＞ ＜/font＞|
＜hr＞
＜%=text%＞ ＜/td＞
＜/tr＞
＜tr bgcolor="#FFFFFF" align="right"＞
＜td colspan="2"＞ ＜/td＞
＜/tr＞
＜%
StarNodes=StarNodes-1
wend
set objXML=nothing
%＞
＜tr bgcolor="#FFFFFF" align="right"＞
＜td colspan="2"＞ 共有<＜%=PageNum%＞>页
＜%
if cint(PageNo)＜＞PageNum then
'分页
response.write "＜a href='index.asp?PageNo="&amp;(PageNo+1)&amp;"'＞上一页＜/a＞"
end if
if cint(PageNo)＜＞1 then
response.write "＜a href='index.asp?PageNo="&amp;(PageNo-1)&amp;"'＞下一页＜/a＞ "
end if
%＞
＜/td＞
＜/tr＞
＜/table＞
＜/body＞
＜/html＞

　　六、建立写新留言程序(PostNew.asp)
　　这个文件要实现的功能就是写入新的XML节点，首先创建一个XML对像然后把XML读入内存中，利用appendChild()方法加入我们生成的XML节点。
＜%
username=request.form("username")
if username＜＞"" then
fromwhere =request.form("fromwhere")
homepage =request.form("homepage")
email =request.form("email")
text =request.form("text")
text =replace(text,"＜","<")
Posttime =now()
strSourceFile = Server.MapPath("/") &amp;
"/List.xml"
'获取XML文件的路径这里根据你的虚拟目录不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'创建XML对像
objXML.load(strSourceFile)
'把XML文件读入内存中
Set objRootlist = objXML.documentElement.selectSingleNode("NewList")
'选取＜NewList＞节点
if objRootlist.hasChildNodes then
'判断＜NewList＞是否有子节点（因为如果是每一次＜NewList＞是没有子节点的，
’ 如果不加判断在第一次运得时就会报错
id = objRootlist.lastchild.firstchild.text+1
'这里获得将要插入子节点的ＩＤ号，其ＩＤ号为＜NewList＞的最后一个子节点(lastchild)的第一个子节点(firstchild)的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增）
else
'如是没有字子节点则是第一次留言ＩＤ号设为１
id=1
end if
brstr=chr(13)&amp;chr(10)&amp;chr(9)
'为了插入XML文件中的节点换行空格排列整齐
’（当然你也可以不用这样只是为了XML数据好看而以）
XMLnode=brstr&amp;"＜list＞"&amp;brstr &amp;
_
"＜id＞"&amp;id&amp;"＜/id＞"&amp;brstr &amp;
_
"＜username＞"&amp;username&amp;"＜/username＞"&amp;brstr &amp;
_
"＜fromwhere＞"&amp;fromwhere&amp;"＜/fromwhere＞"&amp;brstr &amp;
_
"＜Posttime＞"&amp;Posttime&amp;"＜/Posttime＞"&amp;brstr &amp;
_
"＜homepage＞"&amp;homepage&amp;"＜/homepage＞"&amp;brstr &amp;
_
"＜email＞"&amp;email&amp;"＜/email＞"&amp;brstr &amp;
_
"＜text＞"&amp;text&amp;"＜/text＞"&amp;brstr &amp;
_
"＜/list＞"&amp;chr(13)
'根据得到的数据建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
'建立一个新XML对像
objXML2.loadXML(XMLnode)
'把XML版片段读入内存中
set rootNewNode=objXML2.documentElement
'获得objXML2的根节点
objRootlist.appendChild(rootNewNode)
'把XML片段插入到List.xml中
objXML.save(strSourceFile)
'存储lsit.xml文件（因为不存储List.xml只在内存中更新了）
set objXML=nothing
set objXML2=nothing
response.write "谢谢您的留言"
response.end
end if
%＞
＜html＞
＜head＞
＜title＞Untitleddo
cument＜/title＞
＜meta http-equiv="Content-Type" content="text/html;
charset=gb2312"＞
＜style type="text/css"＞
＜!--
td { font-size: 9pt}
--＞
＜/style＞
＜/head＞
＜body bgcolor="#0099CC" text="#000000"＞
＜table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#FFFFFF"＞
＜form action="PostNew.asp" method="post" name="form1"＞
＜tr bgcolor="#000000"＞
＜td colspan="2"＞＜font color="#FFFFFF"＞新留言＜/font＞＜/td＞
＜/tr＞
＜tr bgcolor="#EFEFEF"＞
＜td width="19%" align="right"＞姓 名：＜/td＞
＜td width="81%"＞
＜input type="text" name="username"＞
** ＜/td＞
＜/tr＞
＜tr bgcolor="#EFEFEF"＞
＜td width="19%" align="right"＞来 自：＜/td＞
＜td width="81%"＞
＜input type="text" name="fromwhere" value="中国"＞
＜/td＞
＜/tr＞
＜tr bgcolor="#EFEFEF"＞
＜td width="19%" align="right"＞主 页：＜/td＞
＜td width="81%"＞
＜input type="text" name="homepage" value="http://"＞
＜/td＞
＜/tr＞
＜tr bgcolor="#EFEFEF"＞
＜td width="19%" align="right"＞Email：＜/td＞
＜td width="81%"＞
＜input type="text" name="email"＞
＜/td＞
＜/tr＞
＜tr bgcolor="#EFEFEF"＞
＜td width="19%" align="right" valign="top"＞内 容：＜/td＞
＜td width="81%"＞
＜textarea name="text" cols="60" rows="10"＞＜/textarea＞
＜/td＞
＜/tr＞
＜tr bgcolor="#EFEFEF"＞
＜td width="19%" align="right"＞ ＜/td＞
＜td width="81%"＞
＜input type="submit" name="Submit" value="提交"＞
＜input type="reset" name="Submit2" value="重填"＞
＜/td＞
＜/tr＞
＜/form＞
＜/table＞
＜/body＞
＜/html＞

　　七、总结
　　到这里我们就建立一个简单并有分页功能的XML留言本了，呵看完了简单吧，其实我这里只起一个抛砖引玉的功能，其目的是引导大家建立更复杂更好的ASP＋XML程序，例如：所上面的留言本加上回复功能，管理功能，点击计数据功能等，甚至你可以把它变一个ＢＢＳ等等。最后留言本运行结果如下：
(List.xml在ＩＥ５下面的运行结果)

(留言本index.asp运行结果)

(PostNew.asp运得结果)

最后如果你拷贝我上面的程序的不能运行，可是是拷贝时或者是我注释时出错了（不过首页要检查strSourceFile = Server.MapPath("/") &amp;
"/List.xml"这里是否出错了，不过我可以告诉你如果是提示缺少对像那么多是这里出错了），
最后你可以给我MAIL====

补充说明
：xml 在本留言本中是做为文本数据库使用，如果数据不大的情况下
这种方法是很好的，不过当数据量很大，访问 很多的时候由于XML是树型搜索
那就会很慢，那时就要用关系数据库拉。
呵呵
注意XML其实是一个文本规范，同时在本留言本中不必要IE支持。
如果觉得我的文章很好的话
就把分家给我把。

qqqqq的留言板在ie5以下能否适用