| asp连接数据库 |
*******************连接数据库*****************************************
dim cndate
mes_cndate="./"
On Error Resume Next
set conntu=server.createobject("adodb.connection")
conntu.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(mes_cndate&"tumingyou.mdb")
if err then
err.clear
response.Write "<center><br><br><br><br><br><br>数据库正在维护中……"
response.end
conntu.close
set conntu=nothing
end if
set rstu=server.createobject("adodb.recordset")
|
| 点击：2071 发布者：xinyou 发布时间：2015-11-28 23:26:04 | |
|
|
|
