高校问答盗掘古墓葬罪:那里有免费的留言簿无有广告的
来源：百度文库 编辑：高校问答 时间：2024/05/09 06:48:37
代码有，需要呢的服务器支持才行！
一个文件的留言簿！
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=gb_2312-80">
<title>lyb</title>
</head>
<body bgcolor="#ccccf0">
<p align="center"><big><big><big><big><strong>
<font size="5" face="幼圆" color="#0000FF">留言薄</font></strong></big></big></big></big></p>
<form METHOD="POST" action="<%=Request("SCRIPT_NAME")%>">
<input type="hidden" name="task" value="insert"><p>姓名:<input TYPE="text" SIZE="20"
NAME="xm">邮件:<input TYPE="text" SIZE="20" NAME="email">主页:<input TYPE="text" SIZE="23" NAME="url"><br>
留言内容:<br>
<textarea ROWS="5" COLS="80" NAME="ly"></textarea></p>
<p><input TYPE="submit" VALUE="就这样" NAME="B1"><input TYPE="reset"
VALUE="重新写" NAME="B2"></p>
</form>
<%
dim input()
If Request("task")="insert" then
If Request("xm")="" then
xm="默默无闻"
else
xm=Request("xm")
end if
if request("email")="" then
email="无"
else
email=Request("email")
end if
if request("url")="" then
url="无"
else
url=Request("url")
end if
sj = Date()
sj = sj & " " & Hour(Time()) & ":" & Minute(Time())
If Request("ly")="" then
Response.write("留言不能不输吧")
Response.end
else
ly=Request("ly")
end if
'读文件
whichfile=server.mappath(Request("SCRIPT_NAME"))
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile, 1, False)
counter=0
do while not thisfile.AtEndOfStream
thisline=thisfile.readline
Redim preserve input(counter)
input(counter)=thisline
counter=counter+1
loop
thisfile.Close
'读文件结束
Set outfile=fs.CreateTextFile(whichfile)
for each item in input
If item="<!--insert here-->" then
outfile.WriteLine "<!--insert here-->"
outfile.WriteLine "<div align='center'><center>"
outfile.WriteLine "<table border='1' width='70%' bgcolor='FFFFFF' cellspacing='1'>"
outfile.WriteLine " <tr>"
outfile.WriteLine " <td width='100%'>姓名:" & xm & "</td>"
outfile.WriteLine " </tr>"
outfile.WriteLine " <tr>"
outfile.WriteLine " <td width='100%'>信箱:<a href='mailto:" & email & "'>" & email & "</a></td>"
outfile.WriteLine " </tr>"
outfile.WriteLine " <tr>"
outfile.WriteLine " <td width='100%'>主页:<a href='" & url & "'>" & url & "</a></td>"
outfile.WriteLine " </tr>"
outfile.WriteLine " <tr>"
outfile.WriteLine " <td width='100%'>留于:" & sj & "</td>"
outfile.WriteLine " </tr>"
outfile.WriteLine " <tr>"
outfile.WriteLine " <td width='100%'>留言:</td>"
outfile.WriteLine " </tr>"
outfile.WriteLine " <tr>"
outfile.WriteLine " <td width='100%'>" & ly & "</td>"
outfile.WriteLine " </tr>"
outfile.WriteLine "</table>"
outfile.WriteLine "</center></div>"
outfile.WriteLine "<hr>"
else
outfile.WriteLine item
end if
next
outfile.close
set fs=nothing
%>
<form method="POST" action="<%=Request("SCRIPT_NAME")%>">
<p>您的留言已经记录,请按:<input type="submit" value="刷新" name="B1"></p>
</form>
<%
End if
%>
<hr>
<!--insert here-->
<div align='center'><center>
<table border='1' width='70%' bgcolor='FFFFFF' cellspacing='1'>
<tr>
<td width='100%'>姓名:2342</td>
</tr>
<tr>
<td width='100%'>信箱:<a href='mailto:erer'>erer</a></td>
</tr>
<tr>
<td width='100%'>主页:<a href='tryr'>tryr</a></td>
</tr>
<tr>
<td width='100%'>留于:2003-1-11 11:46</td>
</tr>
<tr>
<td width='100%'>留言:</td>
</tr>
<tr>
<td width='100%'>体育于</td>
</tr>
</table>
</center></div>
<hr>
<div align="center"><center>
<table border="1" width="70%" bgcolor="FFFFFF" cellspacing="1">
<tr>
<td width="100%">姓名:white</td>
</tr>
<tr>
<td width="100%">信箱:<a href="mailto:lww555@linux.cqi.com.cn">lww555@linux.cqi.com.cn</a></td>
</tr>
<tr>
<td width="100%">主页:<a href="http://wwwasp.yeah.net">http://wwwasp.yeah.net</a></td>
</tr>
<tr>
<td width="100%">留于:98-11-7 11:20</td>
</tr>
<tr>
<td width="100%">留言:</td>
</tr>
<tr>
<td width="100%">nihao</td>
</tr>
</table>
</center></div><!--insert end-->
</body>
</html>