?%
'***************PJblog2 连接数据?******************
' PJblog2 Copyright 2005
' Update:2005-9-2
'***************************************************
'IF Not IsObject(Application(CookieName&"_blog_Conn")) Then
on error resume next
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessFile)
Conn.Open
If Err Then
err.Clear
Set Conn = Nothing
Response.Write("
数据库连接出错，请检查连接字?
")
Response.End
end if
'Else
' Set Conn=Application(CookieName&"_blog_Conn")
'End IF
%>
-