?? conn.asp
字號:
<%@ 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") = "该程序以取得授权,但仅限与本站使用。"
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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -