超人强打架游戏:asp编程与数据库的问题，怎样连接。望大侠们指教！！不胜感激

学习目的：掌握ACCESS数据库的连接和读取记录
今天要学习的内容有一点枯燥，但是很重要。在这里大家不需要知道命令具体的运行情况，外面的很多书籍之所以不适合入门就是因为介绍了太多的理论知识，让初学者一头雾水。
下面开门见山，看两句话：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
%>
第一句话定义了一个adodb数据库连接组件，第二句连接了数据库，大家只要修改后面的数据库名字就可以了。是不是很简单？
下面再看三句：
<%
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
这三句加在前面两句的后面，第一句：设置查询数据库的命令，select后面加的是字段，如果都要查询的话就用*，from后面再加上表的名字，我们前面建立的是不是一个gustbook表阿？第二句：定义一个记录集组件，所有搜索到的记录都放在这里面，第三句是打开这个记录集，exec就是前面定义的查询命令，conn就是前面定义的数据库连接组件，后面参数“1，1”，这是读取，后面讲到修改记录就把参数设置为1，3，好了接下来我们读取记录。
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr><%
rs.movenext
loop
%>
</table>
在一个表格中，我们用4列分别显示了上次建立的表里面的四个字段，用do循环，not rs.eof的意思是条件为没有读到记录集的最后，rs.movenext的意思是显示完一条转到下面一条记录，<%=%>就等于<%response.write%>用于在html代码里面插入asp代码，主要用于显示变量。

学习目的：学会数据库的基本操作1（写入记录）
数据库的基本操作无非是：查询记录，写入记录，删除记录，修改记录。今天我们先学习写入记录。
先建立一个表单：
<form name="form1" method="post" action="example5.asp">
name <input type="text" name="name"><br>
tel <input type="text" name="tel"><br>
message <input type="text" name="message" value=""><br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
表单提交到example5.asp，下面是example5.asp的代码：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
name=request.form("name")
tel=request.form("tel")
message=request.form("message")
exec="insert into guestbook(name,tel,message)values('"+name+"',"+tel+",'"+message+"')"
conn.execute exec
conn.close
set conn=nothing
response.write "记录添加成功!"
%>
在这里前面两句我不说了，后面三句我也不说了，前面说过exec里面的是执行的命令，添加记录的比较繁，大家要仔细看。insert into后面加的是表的名字，后面的括号里面是需要添加的字段，不用添加的或者字段的内容就是默认值的可以省略。注意，这里的变量一定要和ACCESS里面的字段名对应，否则就会出错。values后面加的是传送过来的变量。exec是一个字符串，"insert into guestbook(name,tel,message)values('"是第一段，在ASP里面不能嵌双引号，所以可以用'代替双引号，放在双引号里面，连接两个变量用+或者&所以"',"又是一段，中间夹了一个name就是表单传来的变量，这样就可以在这个变量外面加两个''，表示是字符串了，后面的tel是数字型变量所以不需要外面包围''，大家慢慢分析这句话，如果用表单传来的数据代替变量名字的话这句话为（假设name="aaa",tel=111,message="bbb"）："insert into guestbook(name,tel,message)values('aaa',111,'bbb')"。
接下来的conn.execute 就是执行这个exec命令，最后别忘记把打开的数据库关闭，把定义的组件设置为空，这样可以返回资源。：
rs.close
set rs=nothing
conn.close
set conn=nothing
记住，次序不可以颠倒！

在Asp中连接Access的数据库相关代码可以写为：
Dim db,conn,connstr
db="data/hezepolice.mdb"
Set conn = Server.CreateObject("ADODB.Connection")

connstr="DBQ="+server.mappath("db")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

'采用Oledb方式
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

'字符串写法的不同
'connstr="Driver={microsoft access driver (*.mdb)};DBQ=" & Server.MapPath(db)

'采用先行建立的Dsn进行连接
'connstr="dsn=hezepolice;"
conn.open connstr
以下是数据库采用sqlserver的时候Asp建立数据连接常用的代码方式之一

Set conn=Server.CreateObject("ADODB.Connection")
on error resume next
connstr="Provider=SQLOLEDB;Password=***;Persist Security Info=True;User ID=sa;Initial Catalog=msdb;Data Source=localhost;Connect Timeout=15"
conn.Open connstr
微软建议在连接Access数据库使用下面的方法：
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("data.mdb")

你要学ASP呀，那你就先去下载别人的整站，再来改别人的代码。等你会了点点，你再来学VB。样

ASP 链数据方法好多，自己到网上找找。
这是我刚写的：
<%

一种
Set conn=Server.CreateObject("ADODB.Connection")
ConnString="DRIVER={MIcrosoft Access Driver (*.MDB)};DBQ="&Server.MapPath("你的数据库地址")
二咱
ConnString1="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath("你的数据库地址")
conn.open ConnString1
%>
这是我常用的二种

ASP中五种连接数据库的方法

第一种 - 这种方法以前用在ACCESS中最多 （现在不建议用此驱动，建议用第三种）

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("aspfree.mdb")

set conn = server.createobject("adodb.connection")

conn.open strconn

第二种－这种方法以前用在SQL SERVER中多 （现在不建议用此驱动，建议用第四种）

strconn = "Driver={SQL erver};Description=sqldemo;SERVER=.;UID=登录名;&_
PWD=登录密码;DATABASE=数据库名字

set conn = server.createobject("adodb.connection")

conn.open strconn

第三种 这种方法最常用，效益比第一种高。

strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("数据库名.mdb")

set conn = server.createobject("adodb.connection")

conn.open strconn

第四种：（SQL 数据库)

ConnString = "Provider=SQLOLEDB.1;Data Source=(服务器名);User ID=用户名;Password=用户密码;Initial Catalog=数据库名"

conn.open ConnString

第五种运用系统数据源

The following uses a Data Source Name:

set conn = server.createobject("adodb.connection")

conn.open "Example"

第六种运用ODBC数据源，前提是你必须在控制面板的ODBC中设置数据源

set rs = server.createobject("adodb.recordset")

rs.open "tblname", "DSNName", 3, 3

---------------------------------------------------------------

先建立系统DSN=students
<%
set myconn=server.createobject("adodb.connection")
myconn.open "students"
set rs=myconn.execute("select * from mingdan order by name")
%>