<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True  
Response.Charset = "GB2312"

Dim Startime
Dim SqlNowString,hst,template,MyBoardOnline,MyPostTime
Dim Conn,Plus_Conn,Db,MyDbPath
Startime = Timer()
MyDbPath = ""
Const safecode="companycms"
Const the_end_update="2011-1-2"
MyPostTime=Now()
Const authcode_api="api_niutou_bbscdminasdfasd" 'ucַ
Const fversion="hst_2011_base"
Const IsUrlreWrite = 0 '̳α̬ 0=ر,1=ҪIISISAPIɸѡϸ鿴װ
'ϵͳXML汾
'߰汾Ϊ.4.0 Ϊ Const MsxmlVersion=".3.0" Const MsxmlVersion=".2.6" Ͱ汾Const MsxmlVersion=""
Const MsxmlVersion=".3.0"
'޸һ========================ݿ1ΪSQLݿ⣬0ΪAccessݿ=============================
'================================================================================================================
'sqlݿӲݿ(SqlDatabaseName)û(SqlPassword)û(SqlUsername)(SqlLocalName)localIP
Const SqlDatabaseName = "{$SqlDatabaseName}"
Const SqlPassword = "{$SqlPassword}"
Const SqlUsername = "{$SqlUsername}"
Const SqlLocalName = "{$SqlLocalName}"
'================================================================================================================
SqlNowString = "GetDate()"

Const EnabledSession= true
Const IsDeBug = 1
Set hst = New Cls_Forum
Set template = New cls_templates
Sub ConnectionDatabase
	Dim ConnStr
	ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Set conn = hst.iCreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		response.Write Err.description:err.Clear
		Set Conn = Nothing
		Response.Write "ݿӳִ"
		Response.End
	End If
End Sub
'-----------------------------------------------------------------------------------------------------
'߿
Sub Plus_ConnectionDatabase
	Dim ConnStr
	'sqlݿӲݿû롢ûlocalIP
	Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
	SqlDatabaseName = "hst"
	SqlPassword = "hst"
	SqlUsername = "hst"
	SqlLocalName = "(local)"
	ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Set Plus_Conn = hst.iCreateObject("ADODB.Connection")
	Plus_Conn.open ConnStr
	If Err Then
		err.Clear
		Set Plus_Conn = Nothing
		Response.Write "ݿӳִ"'עͣҪ⼸ַӢġ
		Response.End
	End If
End Sub
'-----------------------------------------------------------------------------------------------------
%>