width="468" scrolling="no" height="60" frameborder="0" leftmargin="0" topmargin="0" src="http://www.aiwo1314.com/googleAdsense/gd468_60.html" marginheight="0" marginwidth="0">
Dim database , conn , connstr, rs, sql
'on error resume next '程序容错。对此程序不抱有信心,请去掉此行第一个“'”
database = "笨蛋.mdb" '数据库路径设置,数据库名称要用英文字符。
connstr = "DBQ=" + server.mappath(database) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '连接驱动
set conn = server.createobject("ADODB.CONNECTION") '创建连接
If Err.number <> 0 Then '如果有错
err.clear '清错
set conn = nothing '关闭创建的连接
Response.Write ("数据库连接出错(1)!") '输出错误提示字符
Response.End() '停止下面所有没有执行的语句
else
conn.open connstr '如果上面没有错误,这里正式打开与数据库的连接
if err Then '如果发生其他错误
err.clear '还要清错
set conn=nothing ' 关闭连接
Response.Write ("数据库连接出错(2)!")
Response.End()
end if
end if
set rs = Server.CreateObject("adodb.recordset") '这是创建一个数据集。
'下面是使用方法为:
sql = "select * from 表名"
rs.Open sql, conn, 3, 1
...........
rs.Close
width="336" scrolling="no" height="280" frameborder="0" leftmargin="0" topmargin="0" src="http://www.aiwo1314.com/googleAdsense/gd336_280.html" marginheight="0" marginwidth="0">
Dim database , conn , connstr, rs, sql
'on error resume next '程序容错。对此程序不抱有信心,请去掉此行第一个“'”
database = "笨蛋.mdb" '数据库路径设置,数据库名称要用英文字符。
connstr = "DBQ=" + server.mappath(database) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '连接驱动
set conn = server.createobject("ADODB.CONNECTION") '创建连接
If Err.number <> 0 Then '如果有错
err.clear '清错
set conn = nothing '关闭创建的连接
Response.Write ("数据库连接出错(1)!") '输出错误提示字符
Response.End() '停止下面所有没有执行的语句
else
conn.open connstr '如果上面没有错误,这里正式打开与数据库的连接
if err Then '如果发生其他错误
err.clear '还要清错
set conn=nothing ' 关闭连接
Response.Write ("数据库连接出错(2)!")
Response.End()
end if
end if
set rs = Server.CreateObject("adodb.recordset") '这是创建一个数据集。
'下面是使用方法为:
sql = "select * from 表名"
rs.Open sql, conn, 3, 1
...........
rs.Close
width="336" scrolling="no" height="280" frameborder="0" leftmargin="0" topmargin="0" src="http://www.aiwo1314.com/googleAdsense/gd336_280.html" marginheight="0" marginwidth="0">