<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Option Explicit                          '强制声明变量
Response.Buffer=true                      '开启缓冲页面功能
Dim Conn,Rs,SQL,SqlConnstr,SqlQ,zid
Dim AccessDB,AccessPwd,AccessCj,AccessIp,SqlSer,SqlData,Sqluid,Sqlpwd,DataBackPath
Dim CjConnstr,IpSysConnstr,IpSysLink
'--- 程序相关配置 开始
Const InstallDir = "/"					'网站目录,非常重要(跟目录请填写"/"),务必认真填写
Const InstallCookies = "AsaiMH"         '网站Cookies,如果多个AsaiMH程序运行在同一服务器,请一定得修改
Const MsxmlVersion = ".3.0"				'系统XML版本设置
Const SqlType = 0					    '数据库类型 0为ACCESS数据库,1为SQL数据库,SQL联接要求有相应的SQL版本组件支持   
Const SqlVer = 1					    '数据库类型 0为SQL2000数据库,1为SQL2005Express数据库
Const IpSysType = 1					    'IP查询方式 0表示使用外部链接IP查询系统,1表示使用系统内部IP查询系统
Const OtherDataApp = 0					'杂项数据库是否整合(采集数据库、IP数据库) 0独立ACC数据库,1整合
Const SqlInNumber = 3					'防Sql注入最低次数(默认次数，建议设为3次)
'--- 数据库相关定义 开始

AccessDB = "DataBase/AsaiMHV3.mdb"		'网站Acc数据库地址

AccessPwd = ""					 		   '网站Acc数据库密码
AccessCj = "DataBase/AsaiMHCJ.MDB"		'网站Acc采集库地址
AccessIp = "DataBase/AsaiMHIP.MDB"      '网站Acc IP库地址
DataBackPath = "DataBack"		        '网站Acc数据库备份目录(默认只备份系统数据库)
SqlSer = "(local)"					    'Sql数据服务器名或地址,如"(local)"、"127.0.0.1"、"127.0.0.1:1433"、".\SQLEXPRESS"
SqlData = "AsaiMH"					    'Sql连接数据库名,如"AsaiMH"
Sqluid = "asaimh"					   'Sql数据服务器登陆用户名,如"AsaiMH"
Sqlpwd = "asaimh123"					   'Sql数据服务器登陆密码,如"123456"
'--- 外部IP查询系统地址
IpSysLink = "Http://Www.CZ88.Net/IP/Default.aspx?IP={$IP}"
'--- 系统数据库 开始
If SqlType = 0 Then                               
	SqlQ = "'"
	'--- ACCESS数据库的地址 开始
	SqlConnstr="DBQ="&Server.Mappath(InstallDir&AccessDB)&";DRIVER={Microsoft Access Driver (*.mdb)};PWD="&AccessPwd&""
Else
	SqlQ = ""
	'--- SQL数据库连接字符 开始
	If SqlVer = 0 Then
		'Microsoft SQL Server 2000 参考连接字符串
		SqlConnstr="Provider=sqloledb;" & _         
			"Driver={SQL SERVER};" & _
			"Server="&SqlSer&";" & _
			"database="&SqlData&";" & _    
			"uid="&Sqluid&";" & _
			"pwd="&Sqlpwd&";"
	Else
		'Microsoft SQL 2005 Express参考连接字符串
		SqlConnstr="Provider=SQLNCLI;" & _     
			"Server="&SqlSer&";" & _ 
			"database="&SqlData&";" & _
			"uid="&Sqluid&";" & _
			"pwd="&Sqlpwd&";"
	End If
End If
'--- 杂项数据库 整合识别 开始
If OtherDataApp = 0 Then
	CjConnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(InstallDir&AccessCj)
	IpSysConnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(InstallDir&AccessIp)
Else
	If SqlType = 0 Then 
		CjConnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(InstallDir&AccessDB)&";Jet OLEDB:Database Password="&AccessPwd
	Else
		CjConnstr = SqlConnstr
	End If
	IpSysConnstr = SqlConnstr
End If
%>
