鲁豫和窦文涛什么关系:asp编程的请教

可建立一个名为CONN.ASP的文件,然后在要连接数据库的文件头写这么一段代码:
<!-- #Include File=Conn.asp -->
=========以下是一个例子========
CONN.ASP文件的一个范例:

<%
StrSQL="DBQ="+server.mappath("admin/data/hzsjysfx.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
'StrSQL="DSN=news;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
redcaff="我的主页"
weburl=""
webuser="张郎"
useremail="rechard0788@sohu.com"
%>

上面的只是连接了数据库，并没有创建RecordSet对象
Dim rstSQL
StrSQL = "SELECT * FROM `A`"
rstSQL = Server.CreateObject("ADODB.RecordSet")
rstSQL.open StrSQL,Conn,1,1
'操作rstSQL
rstSQL.Close
Set rstSQL = Nothing

'----------------------------------------
数据库连接,请按使用的数据库类型选择连接字串ConnStr
'----------------------------------------
Dim ConnStr
'SQL数据库连接
ConnStr = "Provider = Sqloledb; User ID = Sql帐号; Password = Sql密码; Initial Catalog = 数据库名; Data Source = 服务器名,或服务器IP地址;"
'Access数据库连接
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Access数据库相对路径)

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

'----------------------------------------
读取数据
'----------------------------------------
Dim Rs,Sql
Set Rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * from tableName where xxx order by yyyy"
Rs.Open Sql,conn,1,1 'Conn就是上面开打的数据库连接;1,1表示游标状态.1,1只读,或者你想增加新的记录,或修改,得使用(1,3)
if Rs.eof and Rs.bof then
Response.write("当前没数据!")
else
do while not Rs.eof '循环取数据
Respons.write(Rs("xxx"))xxx为某一字段名
Rs.movenext
Loop

'关闭数据库,并注销
Rs.close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing

<%'连接数据库
StrSQL="DBQ="+server.mappath("XXX.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
'StrSQL="DSN=news;"
set conn=server.createobject("ADODB.CONNECTION")

'查询数库表
SQL = "SELECT * FROM [table]"

'建立recordset对象
rs = Server.CreateObject("ADODB.RecordSet")
rs.open SQL,Conn,1,1
%>