4_4b.asp

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

<%
Option Explicit
Dim SName,SPass 
SName=Request("UserName")	 '接收用户名文本框的内容，UserName为文本框的名称
SPass=Request("Password")    	'接收密码文本框的内容，Password为密码框的名称

'判断输入的用户名和密码，并跳转到响应的页面
If SName="admin" And Spass="admin" then
  Response.Redirect "4_1.asp"
  '如果用户名和密码输入都为：admin，则跳转到4-4c.asp页面
Else
  Response.Redirect "4_4.asp"
  '如果用户名和密码不是：admin，则跳转到4-4.asp页面，重新登录
End If  
%>