过了8周就不容易流产了:asp高手请过来帮个忙啊!

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 06:16:05
我在config.asp中声明
const strconn="Dbq="&Server.Mappath("/database/shop.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
然后在lib.ASP中创建库函数
dim oConn
sub DB_Connect(sDBConnect)
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open sDBConnect
end sub
结果用call DB_Connect(strconn)调用时显示

错误类型：
Microsoft VBScript 编译器错误 (0x800A0415)
缺少文字常数
/_config/config.asp, line 3, column 101
const strconn="Dbq="&Server.Mappath("/database/shop.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
高手帮忙看看是这句怎么改啊?
谢谢楼下两位帮忙。但是去掉CONST显示

错误类型：
Microsoft VBScript 运行时错误 (0x800A01F4)
变量未定义: 'strconn'
/_config/config.asp, 第 4 行

其实我的原程序是
const strconn="DSN=shop_asp;uid=shop_admin;pwd=123456;database=shop" 连接的是SQL server
而我想通过修改strconn把他转化为连接ACCESS
我想问问应该要怎么改啊？谢谢高手赐教！

老兄，想懒的话就这样懒：
直接想你在SQL中一样建一个CONN.ASP的文件，用来存放下面的：
set conn=server.CreateObject("adodb.connection")
connstr="DBQ=" + server.mappath(database) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.Open connstr
然后在要用conn的时候直接用<!--#include file="conn.asp"-->就可以用了。何必那么麻烦！
还有你非要那样的话，你就直接用
sub DB_Connect()
set conn=server.CreateObject("adodb.connection")
connstr="DBQ=" + server.mappath(database) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.Open connstr
end sub
在要用的时候在直接call DB_Connect(),但是你这样做的话，也还是要<!--#include file="conn.asp"-->。
哎，想不通你怎么想到还用call去引用。直接用include 包含就可以了！

把const去掉

是的，把const去掉试试

asp高手请过来帮个忙啊! ASP 高手请看过来~~~ 难题,高手请过来!!! 英语高手请过来 高手请过来 恋爱高手请过来！！ 英语高手请过来 请高手过来帮忙！！！ 请高手过来帮帮忙 杀虫高手请过来!