conn.asp哪里错了打不开数据库啊?

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
'On Error Resume Next '容错声明
Response.Buffer=True
Dim DbPath,Conn,SQLServerName,SQLDBUserName,SQLDBPassword,SQLDBName,local

'信息生成采集
Const Msxml="Msxml2.XMLHTTP" ' "MSXML2.ServerXMLHttp" 或 "Msxml2.XMLHTTP"
'系统采用XML版本设置(论坛整合)
'最高版本为.4.0 依次为： Const MsxmlVersion=".3.0" Const MsxmlVersion=".2.6" 最低版本Const MsxmlVersion=""
Const MsxmlVersion=".3.0"
Const CacheName="sss"
Const FsObject="Scripting.FileSystemObject"
Const FsObject1=0

Sub DbLink()
SQLServerName = "wj" '服务器名称或地址
SQLDBUserName = "sa" '数据库帐号
SQLDBPassword = "" '数据库密码
SQLDBName = "fdkjgzcomflsql" '数据库名称
'数据库连接
Set conn = Server.CreateObject("ADODB.Connection")

<%

dim startime,conn,connstr,db,rs_s,rs_s1
startime=timer()
db="/news/db.asa" 你数据库存放的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>

给你个最简单的连接数据库...

asp conn.execute自动执行了两次 大家帮我看看这个CONN语句哪里错了`` 关于CONN.ASP CONN.asp数据库连接问题 asp：conn.Execute出错 如何打开conn.asp文件 Conn.asp的功能是什么 asp conn文件的问题 关于ASP中CONN.ASP代码解读 asp中conn.asp中代码问题