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

[xuezhenlei]

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

[shaying]

请将报错结果,贴上来!

[lawdoor]

这样：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>

[zhangjiansheng]

conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&server.mappath("kygl.mdb")
username=trim(request.form("user"))

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

看看这样行不，

[lawdoor]

养成好的习惯，数据连接放在inc目录里面
页面调用
<!-- #include file="../Inc/conn.asp" -->
你愿意每一个页面都写一次：
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&server.mappath(kygl.mdb)

[lion930]

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)

最主要是修改方便！

[xuezhenlei]

无法显示网页
您要访问的网页有问题，无法显示。

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

请尝试以下操作:

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

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




HTTP 500 - 内部服务器错误
Internet Explorer

[xuezhenlei]

知道了，我刚刚开始学习，还请各位多多指教

[hhzh426]

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

[tomomi]

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