Как создать проверку формы в классическом asp?

Я новичок в классическом asp. Я создал простую форму входа, которая включает только имя пользователя и пароль.Как создать проверку формы в классическом asp?

Вот мой logon.asp:

<% 
Username="Administrator" 
Password="Admin" 
Validated = "OK" 
if Strcomp(Request.Form("User"),Username,1)=0 AND Request.Form("password") = Password then 
'Set the validation cookie and redirect the user to the original page. 
    Response.Cookies("ValidUser") = Validated 
    'Check where the users are coming from within the application. 
    If (Request.QueryString("from")<>"") then 
    Response.Redirect Request.QueryString("from") 
    else 
    'If the first page that the user accessed is the Logon page, 
     'direct them to the default page. 
      Response.Redirect "MyPage.asp" 
    End if  
Else 
' Only present the failure message if the user typed in something. 
    If Request.Form("User") <> "" then 
     Response.Write "<h3>Authorization Failed.</h3>" & "<br>" & _ 
     "Please try again.<br>&#xa0;<br>" 
    End if 
End if 
%> 
</head> 
<body bgcolor="#FFFFFF"> 
<FORM ACTION=<%Response.Write "Logon.asp?"&Request.QueryString%> method="post"> 
<p> 
Username: 
<INPUT TYPE="text" NAME="User" VALUE='' size="20"></INPUT> <br /> 
Password: 
<INPUT TYPE="password" NAME="password" VALUE='' size="20"></INPUT> 
<INPUT TYPE="submit" VALUE="Logon"></INPUT> 
</FORM>

Это mypage.asp:

<% 
Validated = "OK" 
if Request.Cookies("ValidUser") <> Validated then 
'Construct the URL for the current page. 
    dim s 
    s = "http://" 
    s = s & Request.ServerVariables("HTTP_HOST") 
    s = s & Request.ServerVariables("URL") 
    if Request.QueryString.Count > 0 THEN 
    s = s & "?" & Request.QueryString 
    end if 
    'Redirect unauthorized users to the logon page. 
    Response.Redirect "Logon.asp?from=" &Server.URLEncode(s) 
End if 
%> 
<html> 
<head> 
<title>My Protected Page</title> 
</head> 
<body> 
<p align="center">This is my secret information<br> 
You cannot see it unless you<br> 
are properly logged on!</p>

Когда я вхожу кнопку входа без заполнения полей ввода, он показывает, как это «имя пользователя или Требуется пароль". Могу ли я узнать, как создать код проверки и как добавить код в мой существующий код?

Любой эксперт по asp может вести меня, спасибо заранее.

источник

2015-02-12 sona

Пожалуйста, добавьте еще одно условия на странице logon.asp:

<% 
    Username="Administrator" 
    Password="Admin" 
    Validated = "OK" 
If Trim(Request.Form("User")) <> "" And Trim(Request.Form("password")) <> "" Then 
    if Strcomp(Request.Form("User"),Username,1)=0 AND Request.Form("password") = Password then 
    'Set the validation cookie and redirect the user to the original page. 
     Response.Cookies("ValidUser") = Validated 
     'Check where the users are coming from within the application. 
     If (Request.QueryString("from")<>"") then 
     Response.Redirect Request.QueryString("from") 
     else 
     'If the first page that the user accessed is the Logon page, 
      'direct them to the default page. 
       Response.Redirect "MyPage.asp" 
     End if  
    Else 
    ' Only present the failure message if the user typed in something. 
     If Request.Form("User") <> "" then 
      Response.Write "<h3>Authorization Failed.</h3>" & "<br>" & _ 
      "Please try again.<br>&#xa0;<br>" 
     End if 
    End if 
End If 
    %> 
    </head> 
    <body bgcolor="#FFFFFF"> 
    <FORM ACTION=<%Response.Write "Logon.asp?"&Request.QueryString%> method="post"> 
    <p> 
    Username: 
    <INPUT TYPE="text" NAME="User" VALUE='' size="20"></INPUT> <br /> 
    Password: 
    <INPUT TYPE="password" NAME="password" VALUE='' size="20"></INPUT> 
    <INPUT TYPE="submit" VALUE="Logon"></INPUT> 
    </FORM>

Надеется, что это поможет. Спасибо.

источник

2015-02-13 09:54:38 BabyDuck

Как создать проверку формы в классическом asp?

ответ

Смежные вопросы