留言板可是个人网站不可或缺的东西呀!让我们做一个留言板吧!
  留言板可不像计数器了,一个文件就解决。留言板分两个部分:表单部分和提交处理部分。先做表单部分吧!
  许多网页编辑器都能很简单地做出表单,我也提供了一个简单的例子。主意,下面的内容可是和这个例子配套的哦!
  写好表单后,我们接着编写提交处理脚本,新建一个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>
  留言板做好了,放到网上吧!做好心理准备,网上无聊人太多,不几天你的留言板就会塞满无聊的话了。