这段连接数据库的代码为什么不能用?

xuezhenlei 2004-04-10 03:50:49
username=trim(request.form1("user"))
password=trim(request.form1("pwd"))
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&server.mappath(kygl.mdb)
sqlstr="select * from users where id='"&username&"' and pwd='"&password&"'"
rs.excute(sqlstr)
if rs.bof=true and rs.eof=true then
response.redirect "login.htm"
else
resopnse.write "dengluchenggong"
end if
...全文
64 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tomomi 2004-04-10
username=trim(request.form1("user"))
password=trim(request.form1("pwd"))
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("kygl.mdb")
conn.open connstr
sqlstr="select * from users where id="&username&" and pwd="&password
set rs=conn.execute(sqlstr)
if rs.bof and rs.eof then
response.redirect "login.htm"
else
resopnse.write "dengluchenggong"
end if
回复
hhzh426 2004-04-10
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&server.mappath(kygl.mdb)
sqlstr="select * from users where id='"&username&"' and pwd='"&password&"'"
rs.excute(sqlstr)
==>
conn.connectionstring = "driver={Microsoft Access Driver(*.mdb)};dbq="&server.mappath(kygl.mdb)
conn.open
sqlstr = ="select * from users where id='"&username&"' and pwd='"&password&"'"
rs.open sqlstr,conn,1,1
回复
xuezhenlei 2004-04-10
知道了,我刚刚开始学习,还请各位多多指教
回复
xuezhenlei 2004-04-10
无法显示网页
您要访问的网页有问题,无法显示。

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

请尝试以下操作:

打开 192.168.0.214:214 主页,然后查找指向您感兴趣信息的链接。
单击刷新按钮,或以后再试。

单击搜索,寻找 Internet 上的信息。
也可查看相关站点列表。




HTTP 500 - 内部服务器错误
Internet Explorer
回复
lion930 2004-04-10
lawdoor(风语者) 说的太对了!

养成好的习惯,数据连接放在inc目录里面
页面调用
<!-- #include file="../Inc/conn.asp" -->

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&server.mappath(kygl.mdb)

最主要是修改方便!
回复
lawdoor 2004-04-10
养成好的习惯,数据连接放在inc目录里面
页面调用
<!-- #include file="../Inc/conn.asp" -->
你愿意每一个页面都写一次:
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&server.mappath(kygl.mdb)
回复
zhangjiansheng 2004-04-10
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&server.mappath("kygl.mdb")
username=trim(request.form("user"))

password=trim(request.form("pwd"))

看看这样行不,
回复
lawdoor 2004-04-10
这样:
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
回复
shaying 2004-04-10
请将报错结果,贴上来!
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告