Win2000でSessionが切れない。

質問

win2000 プロフェッショナルサーバ IIS5 で環境を作成しASPのテストを
したのですが、何時間待ってもSessionが切れずに困っています。
エイリアスはきちんと切っていますし、グローバルasaもその中にきちんと
入れてあります、何が原因なのかさっぱり分かりません。

どなたか、分かる方いましたら参考意見でもよろしいのでお願いします。

回答No.2

itohh

こんにちは。itohhといいます。

session_Onstartイベントは動いているのかも確認されては如何ですか？

aspファイルを実行したときにsession変数に何らかの値を設定しないことには
Sessionが確立しなかったような覚えがあります。（わたしの記憶違いかもしれませんが）
また、htmファイルでは、sessionは確立しません。（aspファイルのみです。）

あと、ファイル出力のソースなのですが。
＞'-------------- テキスト出力のソース ---------------------
＞' Dim fso,fts,YMD
＞' set fso=CreateObject("Scripting.FilesyStemObject")
CreateObjectではなく、Server.CreateObjectに直した方がよいと思います。

参考：[IIS]ASP Server.CreateObject と CreateObject の違い
http://www.microsoft.com/JAPAN/support/kb/articles/J050/7/87.asp

＞' set fts=fso.CreateTextFile("C:\kks\asp\TestLog.txt",true,False)
このフォルダーは書き込み権はあるのですよね？

ASP関連のサイトを紹介します。そちらも活用してみてください。

もう少し、詳しい人たちがいる掲示板があります。そちらでも質問されてみては如何でしょうか？
・TRY!ASP
http://tryasp.winscom.co.jp/

マイクロソフトの公式サイトです。
MSDN onine Web Workshop
http://www.microsoft.com/JAPAN/developer/workshop/default.asp

参考URL：

http://tryasp.winscom.co.jp/,http://www.microsoft.com/JAPAN/developer/workshop/default.asp

お礼

お返事大幅に遅れて申し訳ありませんでした。
教えてgoo!にログインが行えなくなってしまい、お返事遅れました。

結果としましては、問題は解決できず、他の方法を取ることとなりました。
ご助力大変ありがとうございました。

回答No.1

itohh

こんにちは。itohhといいます。

＞何時間待ってもSessionが切れずに困っています。
切れないとは、どのように確認されたのでしょうか？

どのようなASPテストをしてどのように確認したのかが解らないとアドバイスが困難だと思いますよ。

補足

itohhさんお返事遅れて大変申し訳有りません。

確認したことは、
１．Session_OnEndを通った場合にテキストファイルに出力させるようにした。
２．ブラウザを閉じSessionが切れる時間まで待った。
(Session.Timeoutは20分に設定しましたが、1時間程度経ってもSessionは切れませんでした。)
３．Session.Abandonにて強制的にSessionを破棄したが、Session_OnEndを通過しない。(１．のテキストに出力されない。)

テキスト出力のソースが間違っている可能性も有りますので以下に書いておきます。
'-------------- テキスト出力のソース ---------------------
' Dim fso,fts,YMD
' set fso=CreateObject("Scripting.FilesyStemObject")
' set fts=fso.CreateTextFile("C:\kks\asp\TestLog.txt",true,False)
' YMD = YMD + Cstr(Year (Cstr(date())))+"/"
' YMD = YMD + Cstr(Month(Cstr(date())))+"/"
' YMD = YMD + Cstr(Day (Cstr(date())))+" "
' YMD = YMD + Cstr(Hour (Cstr(Time())))+":"
' YMD = YMD + Cstr(Minute(Cstr(Time())))+":"
' YMD = YMD + Cstr(Second(Cstr(Time())))
' fts.WriteLine("Session_OnEnd:"&YMD)
' fts.close
' Set fts = nothing
' Set fso = nothing
'-------------------------------------------------------------