| 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 <SCRipT LANGUAGE="VBScript" RUNAT="Server"> sub Session_onEnd ip=session("userip") application("flag1")=ip ——标记flag1 chatdata=application("chatdata") onliuser=application("onliuser") kicklist=application("kicklist") uleave=false for i=0 to 50 if chatdata(i,1)=ip then kicklist=replace(kicklist,",'#"&chatdata(i,0)&"'","") onliuser=replace(onliuser,",'"&chatdata(i,0)&"'","") chatdata(i,0)="" chatdata(i,1)="" chatdata(i,2)=0 chatdata(i,3)="" chatdata(i,4)=0 chatdata(i,5)="" uleave=true application("flag2")="找到同ip的聊客" ——标记flag2 end if next kicklist=replace(kicklist,",'"&ip&"'","") application("flag3")="kicklist的值为:"&kicklist ——标记flag3 if uleave then for i=0 to 50 chatdata(i,4)=(chatdata(i,4) mod 4)+4 next application("flag4")="执行了通知更新名单" ——标记flag4 end if application("flag5")="第4标志" ——标记flag5 application.lock application("kicklist")=kicklist application("onliuser")=onliuser application("chatdata")=chatdata application.unlock application("flag6")="执行了application变量更新" ——标记flag6 end sub </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变量不是数组。 <center>Application变量查看程序</center> <% key=request("key") keyd=request("keyd") if keyd="" then response.write application(key) response.end end if username=application(key) select case keyd case "2" for i=0 to 50 for j=0 to 5 response.write username(i,j)&chr(13)&chr(10) next next case "1" for i=0 to ubound(username,1) response.write i&replace(username(i),"<br>","")&"<br>" next end select %> 软件使用主页创作http://swuse.yeah.net 注意：联系我时，请一定说明是从【S】看到的信息，谢谢。 |
 联系电话： 联系 QQ： 打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！ 三亚上门维修电脑 |