ASP连接access以及MySQL数据库

access连接

（access真的太low了，建议使用MySQL,ASP也没必要用了，十几年前就out）

字符串连接：

<%
set conn=Server.Createobject("adodb.Connection") 
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("students.mdb") 
%>

注释：这个Microsoft Access Driver (*.mdb)驱动程序要选择好数据库students.mdb，server.MapPath(“students.mdb”) 这个用的是虚拟路径。

dsn连接：

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_conn_STRING
MM_conn_STRING = "dsn=DBconnection;"
%>

注释：DBconnection是选择了数据库的dsn名。

（这两个连接其实都是dsn的连接方式，字符串连接可以自己搜索一下）

<%
set rs=Server.Createobject("adodb.recordset")
						   '建立一个数据集
 rs.open "yh",conn,1,3     '这个是打开一个数据集（静态打开方式，在你使用数据时其他用户无法访问该数据），yh是数据库名，这里也可以写查询语句，3表示新增、改动或删除数据。
 response.Write(rs(yhm))   '这句是测试，用处是显示查询到的yhm这个字段的内容
 %>

<%
rs.open "yh",conn,1,3
rs.addnew                 		   	 '建立一条空数据段
rs("yhm")=gebilaowang      			 'yhm是字段，gebilaowang是值
rs.update							 '写入数据到打开的数据段
rs.close							 '关闭连接
set rs=nothing						 '设置连接为空，即关闭这个对象
%>

注释：这段给yhm字段插入值

ASP连接MySQL数据库

首先还是要添加dsn数据源，不过Windows并没有MySQL的驱动，所以要下载安装一个，然后配置。
两种连接姿势：

<%
set conn=Server.Createobject("adodb.Connection") 
str="dsn=conn;Driver={mysql driver};server=127.0.0.1;uid=root;pwd=root;database=test"
%>

<%
Dim MM_conn_STRING
MM_conn_STRING = "dsn=DBconnection;"
%>