<%
dim input()
If Request("task")="insert" then
If Request("xm")="" then
xm="collect "
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("Leaving a message cannot but fail ")
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="" then
outfile.WriteLine ""
outfile.WriteLine ""
outfile.WriteLine ""
outfile.WriteLine " "
outfile.WriteLine " | name:" & xm & " | "
outfile.WriteLine "
"
outfile.WriteLine " "
outfile.WriteLine " | mail:" & email & " | "
outfile.WriteLine "
"
outfile.WriteLine " "
outfile.WriteLine " | homepage:" & url & " | "
outfile.WriteLine "
"
outfile.WriteLine " "
outfile.WriteLine " | time:" & sj & " | "
outfile.WriteLine "
"
outfile.WriteLine " "
outfile.WriteLine " | content: | "
outfile.WriteLine "
"
outfile.WriteLine " "
outfile.WriteLine " | " & ly & " | "
outfile.WriteLine "
"
outfile.WriteLine "
"
outfile.WriteLine " "
outfile.WriteLine "
"
else
outfile.WriteLine item
end if
next
outfile.close
set fs=nothing
%>
<%
End if
%>
| name:ftu |
| mail:yuty |
| homepage:tyit |
| time:99-12-19 16:8 |
| content: |
| gyjty |
