if request("savetxt")=1 then
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath(aFileName),8,True)
file.writeline "======================================================================================"
file.writeline aDescription
file.writeline "==="&now()&" 开始 URL: "&aReadUrl&"==================================================="
file.writeline uRead
file.writeline "==="&now()&" 结束 URL: "&aReadUrl&"==================================================="
file.writeline ""
file.close
set file=nothing
set fs=nothing
end if