<%
Const Db_Type = "ACC"
Const Db_DateTime = "Now()"

Dim Conn,ConnStr,Rs

Dim SysSiteDbPath
SysSiteDbPath = "Db/Db.mdb"


ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdns & SysSiteDbPath)

Call OpenConn()

Set Rs = Server.CreateObject("Adodb.RecordSet")

If Application("Ok3w_SiteTitle") = "" Then
    Application.Lock()
    Sql = "select * from Ok3w_SiteConfig"
    Rs.Open Sql,Conn,1,1      这事第20行，也是错误提示的位置
    For i = 0 To Rs.Fields.Count - 1
        Application("Ok3w_" & Rs.Fields(i).Name) = Rs(i).Value
    Next
    Rs.Close
    Application.UnLock()
End If

Private Sub CloseConn()
    Conn.Close
    Set Conn = Nothing
End Sub

Private Sub OpenConn()
    On Error Resume Next
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open ConnStr
    If Err.Number>2 Then
        'Response.Write("数据库连接错误")
        'Err.Clear
        'Response.End()
        Else
            On Error Goto 0
    End If
End Sub
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.open "select * from Pic",conn,3,3
Pic1 = Rs("Pic1")
Pic2 = Rs("Pic2")
Pic3 = Rs("Pic3")
Pic4 = Rs("Pic4")
Pic5 = Rs("Pic5")
Pic6 = Rs("Pic6")
Pic7 = Rs("Pic7")
Pic8 = Rs("Pic8")
link1 = Rs("link1")
link2 = Rs("link2")
link3 = Rs("link3")
link4 = Rs("link4")
link5 = Rs("link5")
link6 = Rs("link6")
link7 = Rs("link7")
ink8 = Rs("link8")
Rs.close
%>