28,391
社区成员
发帖
与我相关
我的任务
分享我是新手，咨询一个登录的问题？
我在登录界面中输入口令和密码后进入不了第二个页面，提示为：microsoft ole db provider for odbc drivers(0x80004005),请高手帮我看看代码，不胜感激！
<% @ language=vbscript %>
<% dim uid,upassword
uid=request.form("uid")
upassword=request.form("upassword")
Set conn=Server.CreateObject("adodb.Connection")
user="DBQ="+server.mappath("user.mdb")+";driver={microsoft access driver(*.mdb)};"
conn.open user
sql="select * from user where (uid='"+uid+"'and upassword='"+upassword+"')"
conn.execute(sql)
set RS= conn.execute(sql)
conn.close
set conn=nothing
%>
<%if NOT RS.EOF then%>
<% session("uid")=uid%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body background="b093.gif" alink="red" vlink="green">
<table border="0" cellspacing="1" width="65%" height="208" align=center>
<tr>
<td width="100%" height="41" align=center>
<strong><big><font color="#FF8040" size="4">
恭喜!你是合法用户,欢迎光临指教!
</font></big></strong>
</td>
</tr>
<tr>
<td width="100%" height="90" align=center>
<hr>
</td>
</tr>
<tr>
<td width="100%" height="65" align=center>
<a herf="main.htm" border="0" >进入主页面</a>
</td>
</tr>
</table>
</body>
</HTML>
<% @ language=vbscript %>
<% dim uid,upassword
uid=request.form("uid")
upassword=request.form("upassword")
Set conn=Server.CreateObject("adodb.Connection")
user="DBQ="+server.mappath("user.mdb")+";driver={microsoft access driver(*.mdb)};"
conn.open user
sql="select * from user where (uid='"+uid+"'and upassword='"+upassword+"')"
conn.execute(sql)
set RS= conn.execute(sql)
conn.close
set conn=nothing
%>
<%if NOT RS.EOF then%>
<% session("uid")=uid%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body background="b093.gif" alink="red" vlink="green">
<table border="0" cellspacing="1" width="65%" height="208" align=center>
<tr>
<td width="100%" height="41" align=center>
<strong><big><font color="#FF8040" size="4">
恭喜!你是合法用户,欢迎光临指教!
</font></big></strong>
</td>
</tr>
<tr>
<td width="100%" height="90" align=center>
<hr>
</td>
</tr>
<tr>
<td width="100%" height="65" align=center>
<a herf="main.htm" border="0" >进入主页面</a>
</td>
</tr>
</table>
</body>
</HTML>
...全文
请发表友善的回复…
发表回复
iamfred 2003-10-20
- 打赏
- 举报
你这是自己考的一段吧~
Miriamy 2003-10-20
- 打赏
- 举报
Set rs = Server.CreateObject("ADODB.RecordSet")
sql =" select * from user where (uid='"+uid+"'and upassword='"+upassword+"')"
rs= conn.excute(qsql)
gevn 2003-10-20
- 打赏
- 举报
请问兄弟是哪个学校毕业的。（9805034）
我的是学号是(9808203)
guanxiaolin@gslsoft.com通知.
我的是学号是(9808203)
guanxiaolin@gslsoft.com通知.
dafei0320 2003-10-20
- 打赏
- 举报
加路径！
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("user.mdb")
要完整的吗？？？给我消息！
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("user.mdb")
要完整的吗？？？给我消息！
hfkj 2003-10-20
- 打赏
- 举报
<% @ language=vbscript %>
<% dim uid,upassword
uid=request.form("uid")
upassword=request.form("upassword")
dim conn,connstr
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql="select * from user where (uid='"+uid+"'and upassword='"+upassword+"')"
conn.execute(sql)
set RS= conn.execute(sql)
conn.close
set conn=nothing
%>
<%if NOT RS.EOF then%>
<% session("uid")=uid%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body background="b093.gif" alink="red" vlink="green">
<table border="0" cellspacing="1" width="65%" height="208" align=center>
<tr>
<td width="100%" height="41" align=center>
<strong><big><font color="#FF8040" size="4">
恭喜!你是合法用户,欢迎光临指教!
</font></big></strong>
</td>
</tr>
<tr>
<td width="100%" height="90" align=center>
<hr>
</td>
</tr>
<tr>
<td width="100%" height="65" align=center>
<a herf="main.htm" border="0" >进入主页面</a>
</td>
</tr>
</table>
</body>
</HTML>
<% dim uid,upassword
uid=request.form("uid")
upassword=request.form("upassword")
dim conn,connstr
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql="select * from user where (uid='"+uid+"'and upassword='"+upassword+"')"
conn.execute(sql)
set RS= conn.execute(sql)
conn.close
set conn=nothing
%>
<%if NOT RS.EOF then%>
<% session("uid")=uid%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body background="b093.gif" alink="red" vlink="green">
<table border="0" cellspacing="1" width="65%" height="208" align=center>
<tr>
<td width="100%" height="41" align=center>
<strong><big><font color="#FF8040" size="4">
恭喜!你是合法用户,欢迎光临指教!
</font></big></strong>
</td>
</tr>
<tr>
<td width="100%" height="90" align=center>
<hr>
</td>
</tr>
<tr>
<td width="100%" height="65" align=center>
<a herf="main.htm" border="0" >进入主页面</a>
</td>
</tr>
</table>
</body>
</HTML>
lovehwq21 2003-10-20
- 打赏
- 举报
还有conn.execute(sql)
set RS= conn.execute(sql)
把前一句去掉，没用的
set RS= conn.execute(sql)
把前一句去掉，没用的
angelheavens 2003-10-20
- 打赏
- 举报
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("user.mdb")
conn.open connstr
sql="select * from user where uid='"&uid&"' and upassword='"&upassword&"'"
set RS= conn.execute(sql)
conn.open connstr
sql="select * from user where uid='"&uid&"' and upassword='"&upassword&"'"
set RS= conn.execute(sql)
lovehwq21 2003-10-20
- 打赏
- 举报
user="DBQ="+server.mappath("user.mdb")+";driver={microsoft access driver(*.mdb)};"
换成这种写法
user="driver={microsoft access driver(*.mdb)};DBQ="+server.mappath("user.mdb")
换成这种写法
user="driver={microsoft access driver(*.mdb)};DBQ="+server.mappath("user.mdb")
Gfenlin 2003-10-20
- 打赏
- 举报
楼主，你的rs是什么啊，你看看。
set rs = server.CreatObject("adodb.recordset")
set rs = server.CreatObject("adodb.recordset")
