高校问答最美的花图片:急求个asp连接access数据库的conn代码
来源：百度文库 编辑：高校问答 时间：2024/05/05 09:51:10
在线急等!我用的Dream8,刚才我想试验在本地能不能连上数据库,为什么总不行,我到底要怎么设置,谁能给我讲清楚点,我急死了,谢谢了,我邮箱small_weiwei@163.com给我发邮件也行啊
Dim objConn, DBPath
Set objConn=server.createobject("adodb.connection")
DBPath = Server.MapPath("/")
DBPath = Left(DBPath , InStrRev(DBPath , "\")) & "database\me4st.mdb"
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
a
这是个查询sql server 2000的例子
<html>
<head>
<title>
</title>
</head>
<body>
<input type="text" id="CompanyName" name="CompanyName" value="" size="10">
<input type="text" id="ContactName" name="ContactName" value="" size="20">
<script language="javascript">
var query = "SELECT CompanyName, ContactName FROM Customers WHERE (ContactName = 'Maria Anders')";
var rs = new ActiveXObject("ADODB.Recordset");
var cn = new ActiveXObject("ADODB.Connection");
connstr = "Provider=SQLOLEDB; Data Source=localhost; Initial Catalog=Northwind; User ID=sa; Password=your password";
cn.open(connstr, "", "");
rs.open(query, cn, 3, 3);
if(!rs.BOF) {
rs.MoveFirst()
while(!rs.EOF) {
document.getElementById("CompanyName").value=rs.Fields("CompanyName").Value;
document.getElementById("ContactName").value=rs.Fields("ContactName").Value;
alert(rs.Fields("CompanyName").Value);
alert(rs.Fields("ContactName").Value);
rs.MoveNext();
}
}
rs.close();
cn.Close();
</script>
</body>
</html>
这是个sql server 2000的删例子
<html>
<head>
<title>
</title>
</head>
<body>
<input type="text" id="CompanyName" name="CompanyName" value="" size="10">
<input type="text" id="ContactName" name="ContactName" value="" size="20">
<script language="javascript">
var query = "SELECT CompanyName, ContactName FROM Customers WHERE (ContactName = 'Maria Anders')";
var rs = new ActiveXObject("ADODB.Recordset");
var cn = new ActiveXObject("ADODB.Connection");
connstr = "Provider=SQLOLEDB; Data Source=localhost; Initial Catalog=Northwind; User ID=sa; Password=your password";
cn.open(connstr, "", "");
rs.open(query, cn, 3, 3);
if(!rs.BOF) {
rs.MoveFirst()
while(!rs.EOF) {
document.getElementById("CompanyName").value=rs.Fields("CompanyName").Value;
document.getElementById("ContactName").value=rs.Fields("ContactName").Value;
alert(rs.Fields("CompanyName").Value);
alert(rs.Fields("ContactName").Value);
rs.MoveNext();
}
}
rs.close();
//更新
cn.Execute("update Customers set Region='任意");
cn.Close();
</script>
</body>
</html>
conn.asp:
<%
On Error Resume Next
dim startime,endtime
startime=timer()
dim conn,dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("../datebase/me4st.mdb")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
'老数据库请用这个代码替换上面的conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Startime
Dim SqlNowString,Dvbbs,template,MyBoardOnline
Dim Conn,Plus_Conn,Db,MyDbPath
Const fversion="7.1.0 Sp1"
Const EnabledSession=True
Startime = Timer()
'系统采用XML版本设置
'最高版本为.4.0 依次为： Const MsxmlVersion=".3.0" Const MsxmlVersion=".2.6" 最低版本Const MsxmlVersion=""
Const MsxmlVersion=".3.0"
'可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
Const IsSqlDataBase = 0
MyDbPath = ""
'================================================================================================================
If IsSqlDataBase = 1 Then
'必修改设置二：========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（本地用local，外地用IP）
Const SqlDatabaseName = "dvbbs7"
Const SqlPassword = "dvbbs"
Const SqlUsername = "dvbbs"
Const SqlLocalName = "(local)"
'================================================================================================================
SqlNowString = "GetDate()"
Else
'必修改设置三：========================Access数据库设置==========================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将dvbbs6.mdb修改为dvbbs6.asp
Db = "data/dvbbs7.mdb"
'================================================================================================================
SqlNowString = "Now()"
End If
Const IsDeBug = 1
Set Dvbbs = New Cls_Forum
Set template = New cls_templates
Sub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
End If
End Sub
'-----------------------------------------------------------------------------------------------------
%>
<%
option explicit
on error resume next
dim conn,connstr,startime,db,rs
startime=timer()
db="db/shop1299764859.mdb"//改成自己的
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
这是我的ASP与ACCESS之间连接的CONN的代码，把里面的库名改成自己的就行了