2.8w+
社区成员
- 主页
这段连接数据库的代码为什么不能用？
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
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
...全文
当前发帖距今超过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
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
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
您要访问的网页有问题，无法显示。
--------------------------------------------------------------------------------
请尝试以下操作:
打开 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)
最主要是修改方便！
养成好的习惯，数据连接放在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)
页面调用
<!-- #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"))
看看这样行不，
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
%>
<%
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
请将报错结果,贴上来!
