Question

asp连接access数据库代码

连接数据库查询有没有输入的用户名和密码

Answer 1

1.Access数据库的DSN-less连接方法:

　　以下为引用的内容：

　　set adocon=Server.Createobject("adodb.connection")

　　adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _

　　Server.MapPath("数据库所在路径")

　　2.Access OLE DB连接方法：

　　以下为引用的内容：

　　set adocon=Server.Createobject("adodb.connection")

　　adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _

　　"Data Source=" & Server.MapPath("数据库所在路径")

第二种方法用的比较多。

Answer 2

<%
response.buffer=true
'打开数据库连接
dim conn
Db = MyDbPath & "../#dbms/#re3875115BACC.mdb"

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)

On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr

' 错误提示
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write("<font color=red style='font-size:12px;'>网站正在维护中或数据库连接错误,请检查数据库配置文件！</font>")
Response.End()
End If

'关闭连接
sub conclose()
Conn.close
set Conn=nothing
end sub
%>
以上保存成conn.asp调用就行了

Answer 3

<%
'定义变量
Dim Name, Password
Dim objConn, objRS
' 从FORM对象中获取用户输入的信息
Name = Trim(Request("Name"))
Password = Trim(Request("Password"))
if name<>"" and Password<>"" then
' 检查用户是否输入信息
' 使用Connection对象打开数据库文件user.mdb
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &"Data Source=" & Server.MapPath("user.mdb")
objConn.Open
' 建立Recordset对象并查找满足Name和Password的记录
strSQL = "SELECT * FROM Student WHERE 编号='" Name & "' AND 口令='" & Password & "'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 1, 1
' 如果到了记录文件Exercize.mdb的尾部，则库里没有该用户信息。
If Not objRS.Eof Then
response.write"找到了"
else
response.write"找不到"
end if