ファイル実行中のエラーは次のとおりです。
VARIABLE fm_QNSTR が定義されていません
これがコードの一部です。fm_QNSTR は 2 行目のみです。
'// Password protected pages
Sub protected()
'XSS Shell Proxy Check
If fm_Qnstr("XSSSHELLPROXY") > 0 Then
Response.Write 13
Response.End
End If
Dim ThisPage
ThisPage = Server.HtmlEncode(Request.ServerVariables("SCRIPT_NAME"))
Dim Pass
Pass = Request.Form("pass")
If Len(Pass) = 0 Then Pass = Request.Querystring("pass")
'// Set Session + password is Case Sensitive
If Pass <> "" Then
If Trim(Pass) = "w00t" Then Session("level") = "ok"
'Response.Redirect ""
End If
'// Logout (xxx.asp?logout=ok)
If Request.Querystring("logout") <> "" Then Session("level") = ""