浅谈session_onend的调试

session_onend是比较难调试的,这是因为:
一、没有出错信息提示(这也难怪,是没有地方提示的,根本不知道要将出错提示信息放到什么地方去)。
二、大多数情况下,也不能使用session.abandon来手工释放sesion进行调试——你释放了所有的session,那你在session_onend中不要用到session对象吗?所以,只好傻呼呼的等待session超时了。还好,session超时时域可以自己设,调试时设小点,比如2分钟或1分钟的。
三、如果你只有一台电脑,那就更难调试了,原因不用我说了吧。

下面我给大家说说我在调试session_onend时的一点点经验:

一、不要怀疑你的session_onend没有执行(其实开始时我也曾经怀疑过,因为总相信自己的session_onedn事件没有错),常听有些人抱怨:“怎么我的session_onend没有执行,session_onstart是好好的”,当然了,session_onstart容易看到嘛。
如果你不信的话,你将一个标记放到session_onend的第一行。
sub session_onend
application("flag1")="session_onend已经执行了"
…………后面是你的session_onend的内容
end sub

然后等session超时后,用apptest.asp?key=flag1(apptest.asp后面附有)查看application("flag1")的值,你肯定能看到“session_onend已经执行了”。
所以,一旦你的session_onend没有达到你的目的时,应该检讨你的session_onend事件有没有写好——跟asp文件一样,session_onend一旦遇到错误,马上停止执行……

二、写session_onend事件时一定要仔细,要保证每个字每都不会错,保证不出现语法,不出现逻辑错误。这个只能你的眼睛和思维能帮上你。
下面是我在调试聊天室的session_onend事件时的方法,供大学参考:

我在下面的程序中设了几个标记:flag1,flag2,flag3,flag4,flag5

 1<script language="VBScript" runat="Server">   
 2sub Session_onEnd   
 3ip=session("userip")   
 4application("flag1")=ip ——标记flag1   
 5chatdata=application("chatdata")   
 6onliuser=application("onliuser")   
 7kicklist=application("kicklist")   
 8uleave=false   
 9for i=0 to 50   
10if chatdata(i,1)=ip then   
11kicklist=replace(kicklist,",'#"&chatdata(i,0)&"'","")   
12onliuser=replace(onliuser,",'"&chatdata(i,0)&"'","")   
13chatdata(i,0)=""   
14chatdata(i,1)=""   
15chatdata(i,2)=0   
16chatdata(i,3)=""   
17chatdata(i,4)=0   
18chatdata(i,5)=""   
19uleave=true   
20application("flag2")="找到同ip的聊客" ——标记flag2   
21end if   
22next   
23kicklist=replace(kicklist,",'"&ip&"'","")   
24application("flag3")="kicklist的值为:"&kicklist ——标记flag3   
25if uleave then   
26for i=0 to 50   
27chatdata(i,4)=(chatdata(i,4) mod 4)+4   
28next   
29application("flag4")="执行了通知更新名单" ——标记flag4   
30end if   
31application("flag5")="第4标志" ——标记flag5   
32application.lock   
33application("kicklist")=kicklist   
34application("onliuser")=onliuser   
35application("chatdata")=chatdata   
36application.unlock   
37application("flag6")="执行了application变量更新" ——标记flag6   
38end sub   
39</script>

然后就是开窗口、登录聊天室,关闭浏览器(不要正常退出),等session超时。session超时后(最好在另一台电脑上),用apptest.asp?key=flag6……apptest.asp?key=flag5……apptest.asp?key=flag4……查看各application的值,从而知道我的程序到底执行到了哪里。
除非你看到最后一个标记flag6有值,否则证明你的程序存在语法错误!!
这样可以找到程序在那部分出错,然后再分析有错的那一部分,重复上述步骤,直到你的session_onend达到你的要求。
比如你的flag3的值,但flag2没有值,那就说明在flag2与flag3之间的程序段有语法错误……

附:调试程序apptest.asp
程序名称:apptest.asp
程序功能:查看application变量值
调用方法:apptest.asp?key=变量名&keyd=维数,key为要查看的application变量名,keyd为该application变量存放的数组维数。省略keyd时,表示该application变量不是数组。

1<center>Application变量查看程序</center>
 1   
 2key=request("key")   
 3keyd=request("keyd")   
 4  
 5if keyd="" then   
 6response.write application(key)   
 7response.end   
 8end if   
 9  
10username=application(key)   
11select case keyd   
12case "2"   
13for i=0 to 50   
14for j=0 to 5   
15response.write username(i,j)&chr(13)&chr(10)   
16next   
17next   
18case "1"   
19for i=0 to ubound(username,1)   
20response.write i&replace(username(i),"

<br/>

1","")&"

<br/>

1"   
2next   
3end select   

软件使用主页创作http://swuse.yeah.net

Published At
Categories with Web编程
comments powered by Disqus