lyb

comments notebook

<% 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 " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine " " outfile.WriteLine "

name:" & xm & "

mail:" & email & "

homepage:" & url & "

time:" & sj & "

content:

" & ly & "

" outfile.WriteLine "

" else outfile.WriteLine item end if next outfile.close set fs=nothing %> <% End if %>

name:fdhfds

mail:fdshdfs

homepage:fdbhfgn

time:99-12-4 15:29

content:

uykuyktyyuk