100求教问题，我怎么找都没有找出什么问题，在线等，结贴快

Alan S1 2005-07-25 10:45:27

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'如果尚未定义Passed对象，则将其定义为False，表示没有通过身份认证
If IsEmpty(Session("Passed")) Then
Session("Passed") = False
End If

'如果UserName是空，则转向login.htm
If Session("Passed")=False Then
'读取从表单传递过来的身份数据
UserName = Request.Form("UserName")
UserPwd = Request.Form("UserPwd")

If UserName = "" Then
Errmsg = "请输入用户名和密码"
Else
'=============连接数据库===============
'Server对象的CreateObject方法建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
'Driver表示ODBC驱动程序
'Server表示数据库服务器名称
'UID表示用户账号
'PWD表示用户密码
'Database表示在数据库服务器上的一个Database名称
Conn.ConnectionString="driver={...}‘保密，我能保证连上数据库
'连接数据库
Conn.Open
'============从表Users中读取用户数据==============
'定义Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
'设置Connection对象的ConnectionString
'设置rs的ActiveConnection属性，绑定到连接
Set rs.ActiveConnection = Conn
'设置游标类型
rs.CursorType = 3
'打开记录集
rs.Open "SELECT * FROM Users WHERE UserName='" & Trim(UserName) & "'"
'=============身份验证===========================
If rs.EOF Then
Errmsg = "用户不存在"
Else
If UserPwd <> rs.Fields("UserPwd") Then
Errmsg = "密码不正确"
Else '登录成功
Errmsg = ""
Session("Passed") = True
Session("UserName") = rs.Fields("UserName")
Session("UserId") = rs.Fields("UserId")
' Response.Write("登录成功，请进入<a href=mainhao123.asp>首页</a>")
End If
End If
End If
End If

If Not Session("Passed") Then
%>
<HTML>
<HEAD><TITLE>请输入用户名和密码</TITLE></HEAD>
<BODY>

<script Language="JavaScript">
function ChkFields() {
if (document.MyForm.UserName.value=='') {
window.alert ("请输入用户名！")
return false
}
return true
}
</script>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="JavaScript" type="text/JavaScript">

</script>

<body>
<div id="Layer1" style="position:absolute; width:370px; height:19px; z-index:1; left: 231px; top: 57px;">
<form method="POST" action="<%=Request.ServerVariables("PATH_INFO")%>" name="MyForm" onsubmit ="return ChkFields()">
<p>用户
<input type="text" name="UserName">
</p>
<p>密码
<input name="UserPwd" type="password" value="********">
</p>
<p align="left">
<input type="submit" value="提交" name="B1">
</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</form>
</div>
</body>
</html>
<%
Response.End
End If
%> 上面这段代码无论如何找都没有找出什么问题，但是输入USERNAME和PWS后显示了无法显示网页
您要访问的网页有问题，无法显示。

--------------------------------------------------------------------------------

请尝试以下操作:

..................................求救与各位高手了。

...全文