help(急)
……
if oradynaset.eof then call error else call ok
sub error
test_send="数据库中查不到你所要得信息"
'response.redirect(test_send)
'response.write (test_send)
call logs
oradatabase.close
set orasession=nothing
end sub
sub logs
Const ForAppending = 8
Const Create = true
Dim FSO
DIM TS
DIM MyFileName
'Dim strLog
Dim strTime,strUrl,strOporation,strUserAgent
MyFileName=Server.MapPath("MyLogFile.txt")
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set TS=FSO.OpenTextFile(MyFileName,ForAppending,Create)
strTime=now()
strUrl=test_id
strOporation=test_hm
strUserAgent=test_send
' Write current information to Log Text File.
Ts.writeline "查询者详细资料:"
Ts.writeline "查询手机号码:"&strurl
TS.writeline "访问时间:"&strTime
Ts.writeline "查询内容:"&stroporation
Ts.writeline "调用url:"&struseragent
'Ts.writeline "浏览器及操作系统:"&strUserAgent
Ts.writeline "----------------------------------------"
TS.Writeline ""
' Create a session varialbe to check next time for ValidEntry
'Session("LogIn") = "yes"
Set TS = Nothing
Set FSO = Nothing
end sub
%>
为什么call logs 后日志文件中的 调用url这项没显示其他都是好的