- 帖子
- 255
- 积分
- 678
- 威望
- 1093
- 金钱
- 877
- 在线时间
- 2 小时
|
[讨论]这样连接文件有利用价值吗?
议题作者:mker
信息来源:邪恶八进制信息安全团队(www.eviloctal.com)
这样连接文件有利用价值吗
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&"") |
|