回复：小鱼版五格调用下载(2008-03-24)图轮显+新帖+最新回复+本周热门+今日发帖行
我的ACCESS不好用啊:< ，请小鱼帮忙，谢谢了！
演示：
http://bbs.music80.netconn.asp我是这样写的，不知对不对
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Option Explicit
Dim startime,Conn,db
Response.Buffer = True
startime = Timer()
Dim NowString
Dim ConnStr
'-----------------------ACCES数据库连接参数---------------------------------------
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
NowString = "GetDate()"
db="Database/access_db.config" '数据库路径及名称
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'-------------------------------------------------------------------------------
Sub ConnectionDatabase()
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请打开conn.asp文件检查连接字串。"
Response.End
End If
End Sub
%>
