4_4c.asp

《asp网页设计》作者沈才梁源代码,共十章

<%
Option Explicit
Dim SName,SPass 
SName=Request("UserName")     
SPass=Request("Password")       
If SName="" Or Spass="" then
  Response.Write "对不起，用户名和密码不能为空！"
  Response.End
End If
If SName<>"admin" Or Spass<>"admin" then
  Response.Write "对不起，您输入的用户名和密码不正确！"
  Response.End
End If
Response.Redirect "4_1.asp"   '如果用户名和密码都为：admin，则跳转到4_1.asp页面
%>