'Response.Buffer=True
Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H,DataPart_S,DataPart_W,DataPart_M
Dim Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr
Const DataBaseType=0 '系統數據庫類型，"1"為MS SQL2000數據庫，"0"為MS ACCESS 2000數據庫
Const MsxmlVersion=".3.0" '系統采用XML版本設置
Const EnableSiteManageCode = True '是否啟用后臺管理認證密碼 是： True 否： False
Const SiteManageCode = "8888" '后臺管理認證密碼，請修改，這樣即使有人知道了您的后臺用戶名和密碼也不能登錄后臺
Const IsBusiness=False '是否正式官方授權版本，免費版本請填寫False,正式版填寫True
If DataBaseType=0 then
'如果是ACCESS數據庫，請認真修改好下面的數據庫的文件名
DBPath = "/KS_Data/KesionCMS8.mdb" 'ACCESS數據庫的文件名，請使用相對于網站根目錄的的絕對路徑
Else
'如果是SQL數據庫，請認真修改好以下數據庫選項
DataServer = "(local)" '數據庫服務器IP
DataUser = "sa" '訪問數據庫用戶名
DataBaseName = "KesionCMS8" '數據庫名稱
DataBasePsw = "989066" '訪問數據庫密碼
End if
'采集數據庫路徑
CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb"
'=============================================================== 以下代碼請不要自行修改========================================
Call OpenConn
Sub OpenConn()
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
SqlNowString = "getdate()"
DataPart_D = "d"
DataPart_Y = "y"
DataPart_H = "hour"
DataPart_S = "s"
DataPart_W = "week"
DataPart_M = "month"
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
SqlNowString = "Now()"
DataPart_D = "'d'"
DataPart_Y = "'yyyy'"
DataPart_H = "'h'"
DataPart_S = "'s'"
DataPart_W = "'w'"
DataPart_M = "'m'"
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "數據庫連接出錯，請檢查Conn.asp文件中的數據庫參數設置。出錯原因:
" & Err.Description:Response.End
CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CollectDBPath)
End Sub
Sub CloseConn()
On Error Resume Next
Conn.close:Set Conn=nothing
End sub
'====================================如果頻道啟用二級域名,請正確配置以下參數,否則可能導致會員不能登錄==========================
Const EnabledSubDomain =false rem 網站頻道是否啟用二級域名 true表示啟用 false表示沒有啟用
Const RootDomain = "aaa.com" rem 網站主域名根,如果有多個子域名,必須設置
'=============================================二級域名配置結束========================================================
'==============================================全局變量類開始==============================
Dim GCls:Set GCls=New GlobalVarCls
Class GlobalVarCls
Public Sql_Use
Public StaticPreList,StaticPreContent,StaticExtension,ClubPreContent,ClubPreList
Private Sub Class_Initialize()
StaticPreList = "list" rem 內容模型偽靜態列表前綴 不能包含"?"及"-"
staticPreContent = "thread" rem 內容模型偽靜態內容前綴
StaticExtension = ".html" rem 內容模型偽靜態擴展名
ClubPreContent = "forumthread" rem 偽靜態小論壇帖子前綴地址
ClubPreList = "forum" rem 偽靜態小論壇版面列表前綴地址
End Sub
Private Sub Class_Terminate()
Set GCls=Nothing
End Sub
Public Function Execute(Command)
If Not IsObject(Conn) Then OpenConn()
On Error Resume Next
Set Execute = Conn.Execute(Command)
If Err Then
Response.Write("查詢語句為：" & Command & "
")
Response.Write("錯誤信息為：" & Err.Description & "
")
Err.Clear
Set Execute = Nothing
Response.End()
End If
Sql_Use = Sql_Use + 1
End Function
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then
strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
end if
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then
strTemp = strTemp & "?" & Trim(Request.QueryString)
end if
GetUrl = strTemp
End Function
'====================標志來訪地址================
Public Property Let ComeUrl(ByVal strVar)
Session("M_ComeUrl") = strVar
End Property
Public Property Get ComeUrl
ComeUrl= Session("M_ComeUrl")
End Property
'================================================
End Class
'==============================================全局臨時變量類結束==============================
%>
毛片色情网免费网站,国产亚洲欧洲日韩在线三区,国产乱子伦片免费观看,美女扒下裤子让男人桶的视频
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<蜘蛛词>|
<文本链>
<文本链>
<文本链>
<文本链>
<文本链>
<文本链>