真诚求助:asp+sql会员验证问题,提示名称重定义

来源:百度知道 编辑:UC知道 时间:2024/09/23 09:37:43
表user有如下字段:id、username、password

conn.asp文件:
----------------
<%
dim conn
dim connstr
dim SQLServerName
dim SQLDBUserName
dim SQLDBPassword
dim SQLDBName
SQLServerName="(local)" '数据库服务器名或者IP,本机填“(local)”
SQLDBUserName="ling" '数据库帐号
SQLDBPassword="12345" '数据库密码
SQLDBName="hi114" '数据库名称
Set conn=Server.CreateObject("ADODB.connection")
connstr="Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & SQLServerName & ";User ID=" & SQLDBUserName & ";Password=" & SQLDBPassword & ";Database=" & SQLDBName & ";"
conn.Open connstr
%>
--------------------
login.asp文件

用户名: name="username"
密码:name="password"
action="check.asp"

-------------------------
check.asp

问题就是出在你重复定义变量了

在conn.asp里
dim conn '你定义了conn

在check.asp里
dim exec,conn,rs '这里重复定义conn

因为已经包含了conn.asp文件

check.asp修改为:

<!--#include file="../conn.asp"-->
<%
dim username,password
name=request.form("username")
password=request.form("password")
dim exec,rs
exec="select * from user where(username='"&username&"' and password='"&password&"')"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn

<%
dim username,password
name=request.form("username") '注意,楼主与你定义的不一致哟,就改为username=request.form("username")
password=request.form("password")
dim exec,conn,rs
exec="select * from user where(username='"&username&"' and password='"&password&"')"
set co