数据库连接文件

<%

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & Server.MapPath("*.asp")
objConn.Open

strSQL = "SELECT id,flashurl FROM flash"

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.Open strSQL, objConn, 1, 1

Count=objRS.RecordCount

Item=1

redim a(Item, 2),t(Count)

for each j in t
j=0
next

Randomize timer

for j=1 to Item
k=int(rnd*Count+1)
do while t(k)<>0
k=int(rnd*Item+1)
loop
t(k)=1
next

j=1:i=1

Do While Not objRS.Eof
if t(j)=1 then
a(i,1)=objRS("id&quo

数据库连接文件 数据库连接 ASP 数据库连接文件的引用错误 请教关于ASP数据库连接文件的问题 ASP数据库连接文件连接提示错误，如何解决？ 文件上传服务器后数据库连接错误ASP+access 请教ACCESS数据库,ASP 如何将数据库连接文件改成绝对路径 数据库连接出错,请检查Conn.asp文件中的数据库参数设置。 数据库连接出错，请检查Conn.asp文件中的数据库参数设置。 数据库连接出错,请检查连接字串! PJBlog 移动 文件