asp登陆数据库验证代码
!--#includefile="conn.asp"--><%'打开数据库判断用户是否存在,con为表名,username为字段名username=request.que...
!-- #include file="conn.asp" -->
<%
'打开数据库判断用户是否存在,con为表名,username为字段名
username=request.querystring("username")
password=request.querystring("password")
set rs=server.createobject("adodb.recordset")
sql="select * from con where username='"&username&"' and password='"&password&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write"输入的用户和密码错误!"
response.end
else
session("username")=rs("username")
response.Redirect("conlog.asp?username="&username&"&pageno="&pageno&"")
end if
%>
我使用这个代码验证点提交时弹出错误:
错误类型:
ADODB.Recordset (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/jcx1/admin/data/login.asp, 第 8 行
请教大家我这个验证什么问题,或者提供个可以运行的验证代码,谢谢
我的CONN如下:
<%
pa=server.mappath("../data/ltgbcg.mdb")
set con=createobject("adodb.connection")
set re=createobject("adodb.recordset")
con.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& pa &";Persist Security Info=False"
%> 展开
<%
'打开数据库判断用户是否存在,con为表名,username为字段名
username=request.querystring("username")
password=request.querystring("password")
set rs=server.createobject("adodb.recordset")
sql="select * from con where username='"&username&"' and password='"&password&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write"输入的用户和密码错误!"
response.end
else
session("username")=rs("username")
response.Redirect("conlog.asp?username="&username&"&pageno="&pageno&"")
end if
%>
我使用这个代码验证点提交时弹出错误:
错误类型:
ADODB.Recordset (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/jcx1/admin/data/login.asp, 第 8 行
请教大家我这个验证什么问题,或者提供个可以运行的验证代码,谢谢
我的CONN如下:
<%
pa=server.mappath("../data/ltgbcg.mdb")
set con=createobject("adodb.connection")
set re=createobject("adodb.recordset")
con.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& pa &";Persist Security Info=False"
%> 展开
3个回答
展开全部
conn.asp里你是set con不是set conn,而你上面的代码打开记录禅清集的时候rs.open sql,conn,1,1 这里是用conn,所以不对姿卖,要么该conn.asp为:
<%
pa=server.mappath("迹袭逗../data/ltgbcg.mdb")
set conn=createobject("adodb.connection")
set re=createobject("adodb.recordset")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& pa &";Persist Security Info=False"
%>
要么改打开记录集时为rs.open sql,con,1,1
<%
pa=server.mappath("迹袭逗../data/ltgbcg.mdb")
set conn=createobject("adodb.connection")
set re=createobject("adodb.recordset")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& pa &";Persist Security Info=False"
%>
要么改打开记录集时为rs.open sql,con,1,1
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询