帮我看个asp，代码怎么都是蓝色的了，而且运行不出来，想实现登录功能的更新数据库。非常感谢

来源：百度知道 编辑：UC知道 时间：2024/06/22 00:37:54
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #B1DB99;
}
-->
</style>
<!--#Include file="inc/conn.asp" -->
<%
Dim strUsername ,strUserPwd ,strUserType ,strTableName
strUsername = Trim(Request.Form("UserName"))
strUserPwd = Trim(Request.Form("Password"))
strTableName = "Student"

Dim rs ,strSql
Set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT * FROM "& strTableName &" WHERE (Name = '"& strUsername &"' OR SNO = "& strUserName &" ) AND Pwd = '"& strUserPwd &"'"
rs.open strSql,conn,1,1

If rs.EOF or rs.BOF Then
Response.Write("<BR><BR><BR><Div align=center>登录失败，用户不存在或密码错误!<Br><BR><a href=index.asp>重新登录</a&

这类程序检测思路（只提供思路，代码自己修改去）：
首先要学会看程序运行出错的提示
其次要学会程序故障排除的方法

1、确认你的CONN连接正常
2、确认我能获取到UserName和Password的值
3、Response.write strSql 看一下内容是什么
4、经过第3步，自己在数据库里检查一下有无数据
5、经过以上步骤，问题即可排除。

这段代码没错啊，只是最后少了关闭连接的语句
rs.close
set rs=nothing

其他语句没问题，Session("ID") = rs("ID").value
Session("UserName") = rs("Name").value
这两句应该就是这样，可能在别的页面上需要取值的就是这个格式，如果改了，可能其他页面也会出错

<%
Dim strUsername ,strUserPwd ,strUserType ,strTableName
strUsername = Trim(Request.Form("UserName"))
strUserPwd = Trim(Request.Form("Password"))
strTableName = "Student"

Dim rs ,strSql
strSql = "SELECT * FROM "& strTableName &" WHERE ([Name] = '"& strUsername &"' OR SNO = '"& strUserName &"' ) AND Pwd = '"& strUserPwd &"'"
set rs=conn.execute(strSql)

If rs.