conn.asp

中文bux点击站源码。配合其他站点用

<%@ LANGUAGE = VBScript %>
<%  
  Dim FilePath
  FilePath="."
  FilePath=server.MapPath(FilePath)
  FilePath=FilePath & "\admin\#bux.asa"
  On Error Resume Next
  
  Set Conn = Server.CreateObject("ADODB.Connection")
  Set rs = Server.CreateObject("ADODB.recordset")
  Set re = Server.CreateObject("ADODB.recordset")
  Set rz = Server.CreateObject("ADODB.recordset")
  Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source="&FilePath&";"
  rs.Open "Select * From config",Conn
  DomainName = rs ("DomainName")
  SiteTitle = rs ("SiteTitle")
  OffLine = rs ("OffLine")
  rs.Close  
  If DomainName <> DomainName Then
     Session ("Message") = "&#x8BE5;&#x7A0B;&#x5E8F;&#x4EE5;&#x53D6;&#x5F97;&#x6388;&#x6743;&#xFF0C;&#x4F46;&#x4EC5;&#x9650;&#x4E0E;&#x672C;&#x7AD9;&#x4F7F;&#x7528;&#x3002;"
     Response.Redirect "error.asp"
     Response.End
  End If
  If SiteTitle = "" Then
     SiteTitle = DomainName
  End If
  If OffLine = True Then
     Conn.Close
     Response.Redirect "offline.asp"
     Response.End
  End If
%>