如何在经典的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中创建表单验证？

回答

相关问题