最简单的数据库连接,asp连接access数据库
<%@ language="VBscript"%>
<%dim conn
set conn=server.createobject("adodb.connection")
constr="DBQ="+server.mappath("asd/argg.mdb")+";driver={Microsoft Access Driver (*.mdb)}"
conn.open constr
%>
这是连接的几行代码
<%dim rs
userID=request.form("userID")
passwd=request.form("passwd")
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&userID&"'"
rs.open sql,conn,1,3
if not rs.eof then
if rs("password")=md5(request.form("passwd")) then
session("userID")=rs("username")
session("userpass")=rs("password")
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "liuyan.asp"
response.end
else
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "error.asp?mis=1"
response.end
end if
else
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "error.asp?mis=1"
response.end
end if
%>
是个小例子哦!希望大家看的明白!
<%dim conn
set conn=server.createobject("adodb.connection")
constr="DBQ="+server.mappath("asd/argg.mdb")+";driver={Microsoft Access Driver (*.mdb)}"
conn.open constr
%>
这是连接的几行代码
<%dim rs
userID=request.form("userID")
passwd=request.form("passwd")
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&userID&"'"
rs.open sql,conn,1,3
if not rs.eof then
if rs("password")=md5(request.form("passwd")) then
session("userID")=rs("username")
session("userpass")=rs("password")
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "liuyan.asp"
response.end
else
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "error.asp?mis=1"
response.end
end if
else
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "error.asp?mis=1"
response.end
end if
%>
是个小例子哦!希望大家看的明白!