ASP の場合、現在のプログラムのファイル名を取得するには、Dim curUrl:curUrl = Replace(Request.ServerVariables(Script_Name),/,) を使用するのが非常に簡単ではないでしょうか。
