0

ファイル実行中のエラーは次のとおりです。

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") = ""
4

1 に答える 1