|
|
主题: 如何将ASP与数据库连接？
|
板蓝根冲剂
职务：普通成员
等级：1
金币：0.0
发贴：22
|
#12003/4/18 15:49:04
弄了很久还是报错，呜。。 
|
sunmoon_5d
职务：普通成员
等级：1
金币：0.0
发贴：32
|
#22003/4/18 16:18:22
<%
Set sunmoon = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("sunmoon.mdb") //sunmoon处输入 你 的数据库名称
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
|
板蓝根冲剂
职务：普通成员
等级：1
金币：0.0
发贴：22
|
#32003/4/18 16:23:56
楼上的老兄，帮我看看这代码可以吗？
<%
dim conn,param,rs
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("user.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
user=request.form("username")
pwd=request.form("password")
sql = "SELECT * FROM user where user='" & username& "'"
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
if not (rs.BOF or rs.eof) then
if rs("password") = pwd then
Session("username") = user
Session("password") = pwd
response.redirect("admin.asp")
else
response.write("")
end if
else
response.write("")
end if
conn.close
rs.close
set rs=nothing
set conn=nothing
%>
|
sunmoon_5d
职务：普通成员
等级：1
金币：0.0
发贴：32
|
#42003/4/18 16:40:38
你的数据库里有不只一个用户吧，如果是的话，那你的程序里就只是检查了数据库的第一个记录，你应该在适当的位置加上rs.movenext来进行遍历查询
|
板蓝根冲剂
职务：普通成员
等级：1
金币：0.0
发贴：22
|
#52003/4/18 16:47:35
还是不太明白  这是一个登陆界面，我输了密码和用户，跳到上面那页面时还是报错。就算我把数据库数据清只有一条记录，还是报错，这样，我给你以上几个文件源代码帮我丑丑  不胜感谢
|
板蓝根冲剂
职务：普通成员
等级：1
金币：0.0
发贴：22
|
#62003/4/18 16:49:24
-----LOGIN。HTML------ ----ADMIN。ASP----- ----CHECK。ASP <% if session("username") <> user then response.redirect "login.asp" end if %> 还有就是上面的LOGIN。ASP
|
sunmoon_5d
职务：普通成员
等级：1
金币：0.0
发贴：32
|
#72003/4/18 17:27:19
你把login.asp改为如下代码试试
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("user.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
user=request.form("username")
pwd=request.form("password")
sql = "SELECT * FROM user where user='" & username& "'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Do while not rs.eof
if rs("password") = pwd and rs("username") = user then
Session("username") = user
Session("password") = pwd
conn.close
rs.close
set rs=nothing
set conn=nothing
response.redirect("admin.asp")
else
rs.movenext
end if
loop
response.write("")
conn.close
rs.close
set rs=nothing
set conn=nothing
%>
|
