留言板可是个人网站不可或缺的东西呀!让我们做一个留言板吧!
留言板可不像计数器了,一个文件就解决。留言板分两个部分:表单部分和提交处理部分。先做表单部分吧!
许多网页编辑器都能很简单地做出表单,我也提供了一个简单的例子。主意,下面的内容可是和这个例子配套的哦!
写好表单后,我们接着编写提交处理脚本,新建一个Asp脚本,写代码:
<html>
<head>
<title>留言板</title>
</head>
<body>
<p><font size="2"> 请单击<a href="../index.html">这里</a>返回。<br>
<!-- 上面一行需要修改 -->
<%
on error resume next
'从表单中获取填入的内容,注意要和表单中用的变量名相同。
name=Request.Form("Personal_FullName")
if name="" then name="匿名"
sex=Request.Form("Personal_Sex")
message=Request.Form("Message")
if message="" then
Response.Write " 不输留言,太不给我面子!"
Response.End
end if
filename=server.MapPath("Message.txt")
tmpfile=server.MapPath ("Tmp.txt")
set fs=server.CreateObject("Scripting.FileSystemObject")
fs.CopyFile filename,tmpfile
set outputfile=fs.CreateTextFile(filename)
if fs.FileExists(tmpfile) then
set inputfile=fs.OpenTextFile(tmpfile,1,false)
while not inputfile.AtEndOfStream
line=inputfile.ReadLine
outputfile.WriteLine line
wend
inputfile.close
fs.DeleteFile tmpfile
end if
'这只是一个简单的例子,把留言写入一个文本文件。
'你可以改编一下,生成一个Html。
outputfile.WriteLine "姓名:" & name
outputfile.WriteLine "性别:" & sex
outputfile.WriteLine "留言:"
outputfile.WriteLine "{"
outputfile.WriteLine message
outputfile.WriteLine "}"
outputfile.WriteLine
outputfile.close
set fs=nothing
%>
感谢您的留言,再见!
</font></p>
</body>
</html>
留言板做好了,放到网上吧!做好心理准备,网上无聊人太多,不几天你的留言板就会塞满无聊的话了。