GaoBeiSys = "GaoBeiSys" '不能改动
dim conn
dim connstr
dim db
db="Database/GaoBeiSys_V1x.asp" '设定数据名称
dim dbset:setdb = 1 '设定连接类型
On error resume next
Set conn = Server.CreateObject("ADODB.Connection")
select case setdb
case "1"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
case "2"
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")作者: 夕风 时间: 2008-7-24 17:21