ASP连接Access或SQLServer数据库的终极代码

合集下载

教你怎么用asp连接access数据库

教你怎么用asp连接access数据库
asp怎幺连接access数据库，或者asp连接access数据库的方法，其实很简单。

本文就是关于asp连接access数据库方面的知识，希望给您提供不一样的收获。

方法/步骤
首先新建一个access数据库。

access的版本建议是2003年版本的，没有access可以自行下载安装。

数据库的名字我们就叫db1.mdb，新建数据库表明为table_1，在表1中新建name等几个字段，并相应插入字段值
用FTP工具在虚拟服务器中新建一个mytest文件夹，将该数据库上传到mytest文件夹中
在mytest文件夹下，新建一个test.asp文件，该文件的内容如下：
set conn=Server.CREATEOBJECT(“ADODB.CONNECTION”)
DBPath = Server.MapPath(“db1.mdb”)
conn.Open “driver={Microsoft Access Driver (*.mdb)};dbq=“ & DBPath sql=“select * from table_1 order by id asc”
set rs=server.createobject(“adodb.recordset”)
rs.open sql,conn,1,1
do while not rs.eof
response.write(rs(“name”))
rs.movenext
loop。

ASP连接MSSQL和Access数据库的接口代码文库

连接MSSQL代码(附加判断代码)：引用内容<%dim cnset cn=server.createobject("adodb.connection")cn.connectionstring="driver={SQLserver};server=taihang;datebase=taihang;uid=sa;pwd=hacker"cn.openIf cn.state=1 Thenresponse.write"数据库连接对象已打开"Elseresponse.write"数据库连接对象未打开"end Ifcn.closeSet cn=nothing%>连接Access常用方法：引用内容Dim conn,strDataPath,connStrset conn=server.createobject("ADODB.connection") '//定义数据库连接对象strDataPath=server.MapPath("example.mdb") '//数据库路径字符串connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataPath '//数据库连接conn.open connStr也可以用：引用内容Dim conn,strDataPath,connStrset conn=server.createobject("ADODB.connection") '//定义数据库连接对象strDataPath=server.MapPath("example.mdb") '//数据库路径字符串connStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & strDataPath '//数据库连接conn.Open connStr注解：因为我们想打开的是Access(.mdb)数据库，所以我们要透过Access的ODBC驱动程序{Microsoft Access Driver (*.mdb)}来存取数据库，dbp参数则是用来指定想打开的数据库文件，因为它必须是完整路径名称，所以我们上一语句用了Server.MapPath 函数。

ASP与ACCESS数据库建立连接(附源码)

前言：如何通过ASP与数据库建立连接是一个非常现实的问题，我尽量写得非常详细。

相信看了这篇文章相信您已经能够写出类似的比较简单和实用的程序了。

（一）数据库的选择：有许多的数据库你可以选择，SQL SERVER、ACCESS(*.mdb)、EXCEL(*.xls)、FOXPRO(*.dbf)甚至普通的文本文件(*.txt)都可以达到存储数据的功能。

那么到底选择什么数据库最合适呢？其中SQL SERVER是服务器级的，足以应付每天上万次的访问量。

对于非服务器级的数据库建议使用ACCESS97。

因为：（1）只要安装了PWS或IIS4肯定有ACCESS的ODBC驱动，即你的系统肯定支持ACCESS数据库的存取。

（2）ACCESS支持的SQL指令非常齐全。

（3）ACCESS ODBC驱动程序的效率非常高。

虽然它不是服务器级的数据库，但是作为中小型企业内部网的数据库支持还是绰绰有余的。

（4）ACCESS97在OFFICE97中就有，非常方便得到和使用。

本文就以ACCESS数据库为准介绍基于WEB的数据库存取方法。

（二）例子：我们建立一个“客户”数据库，需要保存如下的客户资料：客户名称、联络人姓名、所在城市、电话号码。

（1）首先建立ACCESS数据库customer.mdb(今后有用的)。

建立如下字段：客户名称、联络人姓名、所在城市、电话号码、客户编号、时间。

将表保存为"客户"(今后有用的,===>看看图)。

注意：建立字段时多作了2个(客户编号、时间)，因为在今后排序时要用到它们。

建议今后做数据库时最好都加上这2项，不会没用的。

此外，在保存表时ACCESS会询问是否建立一个住关键字，我们不需要它所以不必建立。

还有：时间字段的"默认值"设成"now()"，即去系统当时的时间。

同时将索引项设成"有(允许重复)"，含义：WEB上极有可能同时存取数据，所以允许重复，索引设成"有"可以加快排序速度。

Aspnetc连接各类数据库代码共7页文档

1.C#连接连接Access程序代码:-------------------------------------------------------------------------------using System.Data;using System.Data.OleDb;..string strConnection="Provider=Microsoft.Jet.OleDb.4.0;";strConnection+=@"Data Source=C:BegASPNETNorthwind.mdb";OleDbConnection objConnection=new OleDbConnection(strConnection);..objConnection.Open();objConnection.Close();解释:连接Access数据库需要导入额外的命名空间,所以有了最前面的两条using命令,这是必不可少的!strConnection这个变量里存放的是连接数据库所需要的连接字符串,他指定了要使用的数据提供者和要使用的数据源."Provider=Microsoft.Jet.OleDb.4.0;"是指数据提供者,这里使用的是Microsoft Jet引擎,也就是Access中的数据引擎,asp就是靠这个和Access的数据库连接的."Data Source=C:\BegASPNET\Northwind.mdb"是指明数据源的位置,他的标准形式是"Data Source=MyDrive:MyPath\MyFile.MDB".PS:1."+="后面的"@"符号是防止将后面字符串中的"\"解析为转义字符.2.如果要连接的数据库文件和当前文件在同一个目录下,还可以使用如下的方法连接:strConnection+="Data Source=";strConnection+=MapPath("Northwind.mdb");这样就可以省得你写一大堆东西了!3.要注意连接字符串中的参数之间要用分号来分隔."OleDbConnection objConnection=new OleDbConnection(strConnection);"这一句是利用定义好的连接字符串来建立了一个链接对象,以后对数据库的操作我们都要和这个对象打交道. "objConnection.Open();"这用来打开连接.至此,与Access数据库的连接完成.--------------------------------------------------------------------------------2.C#连接SQL Server程序代码:--------------------------------------------------------------------------------using System.Data;using System.Data.SqlClient;..string strConnection="user id=sa;password=;";strConnection+="initial catalog=Northwind;Server=YourSQLServer;";strConnection+="Connect Timeout=30";SqlConnection objConnection=new SqlConnection(strConnection);..objConnection.Open();objConnection.Close();解释:连接SQL Server数据库的机制与连接Access的机制没有什么太大的区别,只是改变了Conn ection对象和连接字符串中的不同参数.首先,连接SQL Server使用的命名空间不是"System.Data.OleDb",而是"System.Data.SqlClient ".其次就是他的连接字符串了,我们一个一个参数来介绍(注意:参数间用分号分隔):"user id=sa":连接数据库的验证用户名为sa.他还有一个别名"uid",所以这句我们还可以写成"uid=sa"."password=":连接数据库的验证密码为空.他的别名为"pwd",所以我们可以写为"pwd=".这里注意,你的SQL Server必须已经设置了需要用户名和密码来登录,否则不能用这样的方式来登录.如果你的SQL Server设置为Windows登录,那么在这里就不需要使用"user id"和"password"这样的方式来登录,而需要使用"Trusted_Connection=SSPI"来进行登录. "initial catalog=Northwind":使用的数据源为"Northwind"这个数据库.他的别名为"Database ",本句可以写成"Database=Northwind"."Server=YourSQLServer":使用名为"YourSQLServer"的服务器.他的别名为"Data Source"," Address","Addr".如果使用的是本地数据库且定义了实例名,则可以写为"Server=(local)\实例名";如果是远程服务器,则将"(local)"替换为远程服务器的名称或IP地址."Connect Timeout=30":连接超时时间为30秒.在这里,建立连接对象用的构造函数为:SqlConnection.--------------------------------------------------------------------------------3.C#连接Oracle程序代码:--------------------------------------------------------------------------------using System.Data.OracleClient;using System.Data;//在窗体上添加一个按钮，叫Button1，双击Button1，输入以下代码private void Button1_Click(object sender, System.EventArgs e){string ConnectionString="Data Source=sky;user=system;password=manager;";//写连接串OracleConnection conn=new OracleConnection(ConnectionString);//创建一个新连接try{conn.Open();OracleCommand cmd=conn.CreateCommand();cmdmandText="select * from MyTable";//在这儿写sql语句OracleDataReader odr=cmd.ExecuteReader();//创建一个OracleDateReader对象while(odr.Read())//读取数据，如果odr.Read()返回为false的话，就说明到记录集的尾部了{Response.Write(odr.GetOracleString(1).ToString());//输出字段1，这个数是字段索引，具体怎么使用字段名还有待研究}odr.Close();}catch(Exception ee){Response.Write(ee.Message); //如果有错误，输出错误信息}finally{conn.Close(); //关闭连接}}-------------------------------------------------------------------------------4.C#连接MySQL程序代码:--------------------------------------------------------------------------------using MySQLDriverCS;// 建立数据库连接MySQLConnection DBConn;DBConn = new MySQLConnection(new MySQLConnectionString("localhost","mysql","root"," ",3306).AsString);DBConn.Open();// 执行查询语句MySQLCommand DBComm;DBComm = new MySQLCommand("select Host,User from user",DBConn);// 读取数据MySQLDataReader DBReader = DBComm.ExecuteReaderEx();try{while (DBReader.Read()){Console.WriteLine("Host = {0} and User = {1}", DBReader.GetString(0),DBReader.GetString (1));}}finally{DBReader.Close();DBConn.Close();}//关闭数据库连接DBConn.Close();--------------------------------------------------------------------------------5.C#连接IBM DB2程序代码:--------------------------------------------------------------------------------OleDbConnection1.Open();//打开数据库连接OleDbDataAdapter1.Fill(dataSet1,"Address");//将得来的数据填入dataSetDataGrid1.DataBind();OleDbConnection1.Close();//关闭连接//增加数据库数据在Web Form上新增对应字段数量个数的TextBox，及一个button，为该按键增加Click响应事件代码如下：this.OleDbInsertCommand1mandText = "INSERTsintosADDRESS(NAME,EMAIL, AGE, ADDRESS) VALUES('"+TextBox1.Text+"','"+TextBox2.Text+"','"+TextBox3.Text+"','"+TextBox4.Text+"')";OleDbInsertCommand1.Connection.Open();//打开连接OleDbInsertCommand1.ExecuteNonQuery();//执行该SQL语句OleDbInsertCommand1.Connection.Close();//关闭连接--------------------------------------------------------------------------------6.C#连接SyBase程序代码: (OleDb)--------------------------------------------------------------------------------Provider=Sybase.ASEOLEDBProvider.2;Initial Catalog=数据库名;User ID=用户名;Data Sour ce=数据源;Extended Properties="";Server Name=ip地址;Network Protocol=Winsock;Server P ort Address=5000;。

Asp连接access数据库时，报未知错误及错误码-2147467259的解决方案

Asp连接access数据库时，报未知错误及错误码-2147467259的解决方案Asp连接access数据库时，报未知错误及错误码-21474672 59的解决方案ASP程序连接access数据库的代码如下：<%set conn=server.createobject("adodb.connection")'连接数据库的方法1：使用oledbstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("学习.mdb")conn.open str%>结果在服务器上运行该程序时提示如下错误：err.Number显示的是-2147467259,err.Description显示的是“未知错误”迷惑了很久，当时在课堂上一直找不到原因。

之前运行其他ASP 程序都是好好的，一遇到数据库就出错了。

很尴尬，跟学生解释说服务器出了点小问题，随后我解决了再告诉大家。

硬着头皮接着讲课，其实很心虚。

一下课，猛蹬着自行车回到家中，立马上网搜索答案。

找了很久，决定下次上课试试这些方法行不行。

下次上课我提早到教室。

心说这次解决不了那以后就回机房上课好了。

结果一次就成功了！欢呼！解决方案：为”C:\Windows\T emp“目录添加用户Authenticated Users，为该用户开放所有权限。

（1）WindowsXP、Windows 2003用户请在“C:\Windows\T emp”目录添加一个有权限的“Authenticated Users”用户即可！Vista用户请在“C:\Windows\ServiceProfiles\NetworkService\AppData\Local\T emp”目录添加一个有权限的“Authenticated Users”用户即可！具体设置权限步骤：右击T emp文件夹，选择“属性”->“安全”->“编辑”->“添加”，在下面的“输入对象名称来选择”中输入Authenticated Users，确定-> 返回到“Temp 的权限”，将Authenticated Users的权限中的完全控制给勾上。

ASP连接Access数据库几种常见方法

ASP连接Access数据库几种常见方法在弹出来的“自定义连接字符串”对话框中，"连接名称"随便写一个。

“连接字符串”就要好好填写了。

当"使用此计算机上的驱动程序"时应用绝对路径：DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\newgn\database\cnbruce.mdb否则“使用测试服务器上的驱动程序”采用Mappath转换路径："Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("/newgn/database/cnbruce.mdb")注：如果将要上传到网上去的页子就可以直接采用Mappath了点击“测试”，出现成功即爽。

附注：需要更多了解的，可以打开DW的帮助教程。

第一种连接和记录集分开声明<%db="db/darden.mdb"set conn=server.createobject("ADODB.connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & db & "")conn.open connstr%><%set rs=server.createobject("adodb.recordset")sql="select * from ebook order by id desc"rs.open sql,conn,3,3rs.addnew............rs.update (rs.delete)rs.closeset rs=nothingconn.closeset conn=nothingresponse.write("<center><a href=viewdatabase.asp>显示文字</a></center>")Response.Redirect "homepage.asp"%>第二种连接和记录集一同声明<%set rs=server.createobject("adodb.recordset")sql="select * from ebook order by id desc"conn = "DBQ=" + server.mappath("book.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"rs.open sql,conn,3,3rs.addnew............rs.update (rs.delete)rs.closeset rs=nothingresponse.write("<center><a href=viewdatabase.asp>显示文字</a></center>")%>ASP数据库简单*作教程<1>.数据库连接(用来单独编制连接文件conn.asp)<%Set conn = Server.CreateObject(ADODB.Connection)conn.Open DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= & Server.MapPath(\bbs\db1\user.mdb)%>(用来连接bbs\db1\目录下的user.mdb数据库)<2>显示数据库记录原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录如果是从头到尾：用循环并判断指针是否到末使用: not rs.eof如果是从尾到头：用循环并判断指针是否到开始使用：not rs.bof  (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%set rs=server.CreateObject(adodb.recordset) (建立recordset 对象)sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)rs.movefirst ---->(将指针移到第一条记录)while not rs.eof ---->(判断指针是否到末尾)response.write(rs(name)) ---->(显示数据表message中的name字段)rs.movenext ---->(将指针移动到下一条记录)wend ---->(循环结束)------------------------------------------------------rs.closeconn.close 这几句是用来关闭数据库set rs=nothingset conn=nothing-------------------------------------------------------%>其中response对象是服务器向客户端浏览器发送的信息<3>增加数据库记录增加数据库记录用到rs.addnew,rs.update两个函数 (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%set rs=server.CreateObject(adodb.recordset) (建立recordset 对象)sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)rs.addnew 新增加一条记录rs(name)=xx 将xx的值传给name字段rs.update 刷新数据库------------------------------------------------------rs.closeconn.close 这几句是用来关闭数据库set rs=nothingset conn=nothing-------------------------------------------------------%><4>删除一条记录删除数据库记录主要用到rs.delete,rs.update (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%dim namename=xxset rs=server.CreateObject(adodb.recordset) (建立recordset 对象)sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)-------------------------------------------------------while not rs.eofif rs.(name)=name thenrs.deleters.update 查询数据表中的name字段的值是否等于变量name的值xx，如果符合就执行删除，else 否则继续查询,直到指针到末尾为止rs.movenextemd ifwend------------------------------------------------------------------------------------------------------------rs.closeconn.close 这几句是用来关闭数据库set rs=nothingset conn=nothing-------------------------------------------------------%><5>关于数据库的查询(a) 查询字段为字符型<%dim user,pass,qq,mail,messageuser=request.Form(user)pass=request.Form(pass)qq=request.Form(qq)mail=request.Form(mail)message=request.Form(message)if trim(user)&x=x or trim(pass)&x=x then (检测user值和pass 值是否为空，可以检测到空格)response.write(注册信息不能为空)elseset rs=server.CreateObject(adodb.recordset)sqlstr=select * from user where user='&user&' (查询user数据表中的user字段其中user字段为字符型)rs.open sqlstr,conn,1,3if rs.eof thenrs.addnewrs(user)=userrs(pass)=passrs(qq)=qqrs(mail)=mailrs(message)=messagers.updaters.closeconn.closeset rs=nothingset conn=nothingresponse.write(注册成功)end ifrs.closeconn.closeset rs=nothingset conn=nothingresponse.write(注册重名)%>(b)查询字段为数字型<%dim numnum=request.Form(num)set rs=server.CreateObject(adodb.recordset)sqlstr=select * from message where id=&num (查询message 数据表中id字段的值是否与num相等，其中id为数字型) rs.open sqlstr,conn,1,3if not rs.eof thenrs.deleters.updaters.closeconn.closeset rs=nothingset conn=nothingresponse.write(删除成功)end ifrs.closeconn.closeset rs=nothingset conn=nothingresponse.write(删除失败)。

ASP.NETC#各种数据库连接字符串大全——SQLServer、Oracle、Access

C#各种数据库连接字符串⼤全——SQLServer、Oracle、Access 刚开始学习C#开发项⽬时，长期会为了写⼀个安全的⾼效的数据库连接发愁。

我发现现在很多刚开始学习的朋友和有些做了⼀两年的朋友，也有点犯愁，我就贴上这个代码，给⾃⼰以后做个参考，也给朋友做个学习的参考。

我主要在这⾥统计了.NET项⽬下常⽤的数据库连接字符串：SQLServer、Oracle、Access三种数据库（MySql、SQLLite、Excel、HTML Table等等暂不列⼊）。

⼀、常⽤连接字符串参数说明如需查看详细说明请参见：关键字默认描述Server 或 Data Source N/A要连接的数据库实例的名称或⽹络地址(可以在名称后指定端⼝号),指定本地实例可⽤(Local),如果是SqlExpress(名称\SqlExpress)。

Initial Catalog 或 Database N/A数据库的名称。

User ID 或 UID N/A登录帐户。

Password 或 Pwd N/A帐户登录的密码。

Persist Security Info 'false'当该值设置为 false 或 no（强烈推荐）时，如果连接是打开的或者⼀直处于打开状态，那么安全敏感信息（如密码）将不会作为连接的⼀部分返回。

重置连接字符串将重置包括密码在内的所有连接字符串值。

可识别的值为 true、false、yes 和 no。

Enlist 'false'true 表明连接池程序在创建线程的当前事务上下⽂中⾃动登记连接。

可识别的值为 true、false、yes 和 no。

Connection Lifetime 0当连接被返回到池时，将其创建时间与当前时间作⽐较，如果时间长度（以秒为单位）超出了由 Connection Lifetime 指定的值，该连接就会被销毁。

这在聚集配置中很有⽤（⽤于强制执⾏运⾏中的服务器和刚置于联机状态的服务器之间的负载平衡）。

asp连接access数据库时报未知错误及错误码-2147467259的解决方案

Asp连接access数据库时，报未知错误及错误码-2147467259的解决方案Asp连接access数据库时，报未知错误及错误码-2147467259的解决方案ASP程序连接access数据库的代码如下：<%set conn=server.createobject("adodb.connection")'连接数据库的方法1：使用oledbstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("学习.mdb")conn.open str%>结果在服务器上运行该程序时提示如下错误：err.Number显示的是-2147467259,err.Description显示的是“未知错误”迷惑了很久，当时在课堂上一直找不到原因。

之前运行其他ASP程序都是好好的，一遇到数据库就出错了。

很尴尬，跟学生解释说服务器出了点小问题，随后我解决了再告诉大家。

硬着头皮接着讲课，其实很心虚。

一下课，猛蹬着自行车回到家中，立马上网搜索答案。

找了很久，决定下次上课试试这些方法行不行。

下次上课我提早到教室。

心说这次解决不了那以后就回机房上课好了。

结果一次就成功了！欢呼！解决方案：为”C:\Windows\Temp“目录添加用户Authenticated Users，为该用户开放所有权限。

（1）WindowsXP、Windows 2003用户请在“C:\Windows\Temp”目录添加一个有权限的“Authenticated Users”用户即可！Vista用户请在“C:\Windows\ServiceProfiles\NetworkService\AppData\Loc al\Temp”目录添加一个有权限的“Authenticated Users”用户即可！具体设置权限步骤：右击Temp文件夹，选择“属性”->“安全”->“编辑”->“添加”，在下面的“输入对象名称来选择”中输入Authenticated Users，确定-> 返回到“Temp 的权限”，将Authenticated Users的权限中的完全控制给勾上。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

ASP连接Access或SQLServer数据库的终极代码
作者:佚名来源:本站整理发布时间:2010-01-11 10:26:29
搞了这么久的ASP，希望本篇能帮助一些初学者。

<%
On Error Resume Next
Dim Data_base
Data_base = 0 '1为MSSQLServer2000 其它为Access
Set Conn=Server.CreateObject("Adodb.Connection")
IF Data_base=1 Then
'-------------------------------------------------------------------------------------
Dim dbconn,dbip,dbdns,dbname,dbuid,dbpwd
dbconn = 1 '链接方式1为OLEDB链接2为驱动链接3为DNS链接dbip = "(local)" '数据库所在的IP地址，如果是本地数据库则为："(local)" dbdns = "数据源DNS名称" '数据库DNS名
dbname = "MSOW" '数据库名称
dbuid = "sa" '数据库用户名
dbpwd = "********" '数据库密码
'------------------------------------------------------------------------------------- Select CASE dbconn
Case 1
Conn.Open "Provider=SQLOLEDB;User ;Password="&dbpwd&";Initial
Catalog="&dbname&";Data Source="&dbip&";"
Case 2
Conn.open "DRIVER={SQL
Server};SERVER="&dbip&";UID="&dbuid&";PWD="&dbpwd&";DATABASE="&dbname&"" Case 3
Conn.open
"DSN="&dbdns&";UID="&dbuid&";PWD="&dbpwd&";DATABASE="&dbname&""
End Select
Else
'-------------------------------------------------------------------------------------
Dim DB_Name,DB_Pwd
DB_Name = "#MSOW#Data.mdb" '数据库名字
DB_Pwd = "" '数据库密码,如无密码可不填写,代码自动判断选择语句。

'-------------------------------------------------------------------------------------
IF DB_Pwd="" Then
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(DB_Name) Else
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =
"&Server.MapPath(DB_Name)&";Jet OLEDB:Database Password="&DB_Pwd&";"
End IF
End IF
IF Err Then
Err.Clear
Conn.Close
Set Conn = Nothing
Response.Write "<Center><font color=#FF6600><strong>数据库连接出错，请检查连接设置...</strong></font></Center>"
Response.End
End IF
'只读数据
Function GetRSForRead(StrSQL)
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.Source = StrSQL
RS.Open RS.Source,Conn,1,1
Set GetRSForRead = RS
End Function
'只读调用Set RS = GetRSForRead("Select * From 数据表")
'可写数据
Function GetRSForWrite(StrSQL)
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.Source = StrSQL
RS.Open RS.Source,Conn,3,3
Set GetRSForWrite = RS
End Function
'可写调用Set RS = GetRSForWrite("Select * From 数据表") %>。