<%@CodePage = 936%>
<%
'Option Explicit 25175.com
Response.Buffer = True
Dim powerid
Dim Comeurl
dim conn
Dim SqlNowString
Dim nowtit,action
Dim rs,id,sql
Dim totalput,pagedw,CurrentPage,page,PurviewChecked
Dim strFileName,sql_tables,Sql_Conditions,Sql_Condition,Sql_Lists,Sql_Sortings,Sql_Orders,Sql_Additional
Dim rs_web,rs_edit,dels,user_check
Dim fun_cel,nos_i,fun_get
Dim types,keyword
Dim formaction
Dim i
Dim webtit,sitename
Dim HTMLother
Dim domain:domain=Request.ServerVariables("server_name")

'定義數據庫類別，1為SQL數據庫，0為Access數據庫
Const IsSqlDataBase = 0		

'=====================================================================

If IsSqlDataBase = 1 Then
	'SQL數據庫設置

	'數據庫名(SqlDatabaseName)
	Const SqlDatabaseName = "cj_2007"

	'用戶密碼(SqlPassword)
	Const SqlPassword = ""

	'用戶名(SqlUsername)
	Const SqlUsername = "sa"

	'連接名(SqlLocalName)（本地用local，外地用IP）
	Const SqlLocalName = "(local)"	
	
'=====================================================================

Else
	'Access數據庫設置
	'用戶第一次使用請修改本處數據庫地址并相應修改data目錄中數據庫名稱

	'相對當前目錄下絕對路徑

	Const DataPath = "data/#123zh.mdb"

'===================================================================
End If
ConnectionDatabase

Sub ConnectionDatabase
	'On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr(IsSqlDataBase)
	If Err Then
		err.Clear : Set Conn = Nothing
		res "數據庫連接錯誤，請與網站管理員聯系！",1
		Response.End
	End If
End Sub

%>