ASP 关于Form提交信息

Dim LRequestType, LUrl, LQueryString, sItem
LRequestType = Request.ServerVariables("REQUEST_METHOD")
LUrl = Request.ServerVariables("URL")
LQueryString = Server.HTMLEncode(Request.ServerVariables("QUERY_STRING"))

response.Write ("用户名="&request.Form("logineid")&",口令="&request.Form("loginpwd")&"</br>")
response.Write ("LRequestType="&LRequestType&",LUrl="&LUrl&",LQueryString="&LQueryString&"</br>")

response.Write ("<form NAME=""formLogin"" ACTION=""test.asp"" METHOD=""POST"">")
response.Write ("<table>")
response.Write ("<tr>")
response.Write ("<td ALIGN=""RIGHT"" CLASS=""kmedium"">用户名:</td>")
response.Write ("<td><input TYPE=""TEXT"" NAME=""logineid"" CLASS=""medium"" MAXLENGTH=""15"" STYLE=""FONT-FAMILY: Verdana""></td>")
response.Write ("</tr>")
response.Write ("<tr>")
response.Write ("<td ALIGN=""RIGHT"" CLASS=""kmedium"">口　令:</td>")
response.Write ("<td><input TYPE=""PASSWORD"" NAME=""loginpwd"" CLASS=""medium"" MAXLENGTH=""15"" STYLE=""FONT-FAMILY: Verdana""></td>")
response.Write ("</tr>")
response.Write ("</table>")
response.Write ("<input type=hidden name="""&lrequesttype&""" value="""&LRequestType&""">")
response.Write ("<input type=hidden name="""&lurl        &""" value="""&LUrl        &""">")
response.Write ("<input type=hidden name="""&lquerystring&""" value="""&LQueryString&""">")
if LRequestType = "POST" then
    For Each sItem In Request.Form
        If sItem <> "logineid" and sItem <> "loginpwd" and sItem <> "lrequesttype" and sItem <> "lurl" and sItem <> "lquerystring" And sItem<>"verifycode" then
            response.Write ("<input type=hidden name="""&sItem&""" value="""&Server.HTMLEncode(Request.Form(sItem))&""">")
        end if
    Next
end if
response.Write ("<input TYPE=""SUBMIT"" NAME=""btnLogin"" VALUE=""提交"" >")
response.Write ("</form>")

if LRequestType = "POST" then
    For Each sItem In Request.Form
        'If sItem <> "logineid" and sItem <> "loginpwd" and sItem <> "lrequesttype" and sItem <> "lurl" and sItem <> "lquerystring" And sItem<>"verifycode" then
            response.Write ("sItem="&sItem&", Request.Form(sItem)="&Server.HTMLEncode(Request.Form(sItem))&"</br>")
        'end if
    Next
end if

 

用户名=eee,口令=rrr
LRequestType=POST,LUrl=test.asp,LQueryString=

sItem=logineid, Request.Form(sItem)=eee
sItem=loginpwd, Request.Form(sItem)=rrr
sItem=GET, Request.Form(sItem)=GET
sItem=/Cii/Mis/AlliancePermission/test.asp, Request.Form(sItem)=test.asp
sItem=btnLogin, Request.Form(sItem)=提交