help(急)

yaocn114 2003-09-15 09:38:11
……
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这项没显示其他都是好的
...全文
125 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
alan815 2003-09-15
  • 打赏
  • 举报
回复
把这个test_send定义到过程外,定义为全局变量试试
alan815 2003-09-15
  • 打赏
  • 举报
回复
把这个test_send定义到过程外,定义为全局变量试试
CTBOK 2003-09-15
  • 打赏
  • 举报
回复
你的变量哪里来的啊?是request来的?会不会是reqeust语句错啊
yaocn114 2003-09-15
  • 打赏
  • 举报
回复
test_send="数据库中查不到你所要得信息"
strUserAgent=test_send
有的,就是不显示,其他几个都正常的
tiandiqing 2003-09-15
  • 打赏
  • 举报
回复
struseragent

这个变量有没有值?
yaocn114 2003-09-15
  • 打赏
  • 举报
回复
Ts.writeline "调用url:"&struseragent
tiandiqing 2003-09-15
  • 打赏
  • 举报
回复
调用url这项

这个在哪里呢?

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧