conn.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
Response.CharSet= "GB2312"
Dim DbPath,DbPath_U,DbPath_L,DbPath_C
Dim Conn,Conn_U,Conn_L,Conn_Count,Conn_C
Dim Db,Cl,Template,PageData,Count,ClUbb,TempStr
Dim IsSqlDataBase,IsSqlDataBase_U,IsSqlDataBase_L
Dim SqlNowString,FalseType,TrueType
Dim SqlNowString_U,FalseType_U,TrueType_U
Dim SqlDatabaseName,SqlUsername,SqlPassword,SqlLocalName
Dim SqlDatabaseName_U,SqlUsername_U,SqlPassword_U,SqlLocalName_U
Dim SqlDatabaseName_L,SqlUsername_L,SqlPassword_L,SqlLocalName_L
Dim CreateHtmlIng,DefaultPage,CreateFilePre
Set Db			= New Cls_DataBase
Set Cl			= New Cls_CMSSysTem
CreateHtmlIng=False : DefaultPage="Index"  Rem 是否正在生成HTML
Const Web_Cookies	= "Aspoo"	Rem Cookies名称
Const SaveLog		= 1			Rem 是否保存攻击日志(0为否，1为是)
Const SysTemVersion	= 0			Rem 系统版本，请不要更改，否则会出错
Const MsxmlVersion	= ".3.0"	Rem XML版本 如果服务器不支持高版本，可留空
Const InstallDir	= "/"		Rem 安装目录，根目录用"/"，请用"/"开头及结尾(如安装在Cl3目录下，为"/Cl3/")
Const DatabaseDir	= "Data/"	Rem 数据库目录(相对于安装目录，用"/"结尾，注意：开头不要用"/")
Const BbsDir		= "/Bbs/"	Rem 论坛安装目录，根目录用"/"，请用"/"开头及结尾，整合论坛时生效
									'如SQL论坛和主站不在一个虚拟空间，可直接用网址，如("http://bbs.aspoo.com/")
Const UserTableType	= "Aspoo"	Rem Aspoo=不整合论坛，Dvbbs=整合动网7
IsSqlDataBase		= 0		'主数据库类型(1=SQL，0=AC)
IsSqlDataBase_U		= 0		'论坛数据库类型(1=SQL，0=AC)整合论坛时才生效,不整合论坛，则自动取主数据库类型
IsSqlDataBase_L		= 0		'Log数据库类型(1=SQL，0=AC)
DbPath		= InstallDir & DatabaseDir & "#Cl_CreateLiveCMSv42.mdb"	'Access主数据库文件位置(请用绝对路径)
DbPath_U	= BbsDir & "Data/Dvbbs8.mdb"  'Access论坛数据库文件位置(整合论坛时生郊)
DbPath_L	= InstallDir & DatabaseDir & "#Cl_Log.mdb"  'AccessLog数据库位置
Rem SQL主站数据库参数==Begin
SqlDatabaseName		= "ClCMSv4"		'主数据库名
SqlUsername			= "ClCMSv4"		'主数据库登录用户
SqlPassword			= "123456"		'主数据库登录密码
SqlLocalName		= "(local)"		'数据库服务器，本机用"(local)"
Rem SQL主站数据库参数==End

Rem SQL论坛数据库参数 (整合论坛时生郊)==Begin
SqlDatabaseName_U	= "bbs"			'论坛数据库名
SqlUsername_U		= "bbs"			'论坛数据库登录用户
SqlPassword_U		= "123456"		'论坛数据库登录密码
SqlLocalName_U		= "(local)"		'论坛数据库服务器，本机用"(local)"
Rem SQL论坛数据库参数 (整合论坛时生郊)==End

Rem SQLLog数据库数据库参数==Begin
SqlDatabaseName_L	= "ClLog"		'Log数据库名
SqlUsername_L		= "ClLog"		'Log数据库登录用户
SqlPassword_L		= "123456"		'Log数据库登录密码
SqlLocalName_L		= "(local)"		'Log数据库服务器，本机用"(local)"
Rem SQLLog数据库数据库参数==End
Rem =====================================================
Rem 以下部分，不需要再改！
If UserTableType = "Dvbbs" Then
Db.UserTable		= "[Dv_User]"
Db.MessageTable		= "[Dv_Message]"
Db.FriendTable		= "[Dv_Friend]"
Db.UserFaceWidth	= "Userwidth"			'头像宽度
Db.UserFaceHeight	= "Userheight"		    '头像高度
Db.UserTPassWord	= "WebTruePassWord"
Else
Db.UserTable		= "[Cl_User]"
Db.MessageTable		= "[Cl_Message]"
Db.FriendTable		= "[Cl_Friend]"
Db.UserFaceWidth	= "FaceWidth"			'头像宽度
Db.UserFaceHeight	= "FaceHeight"		    '头像高度
Db.UserTPassWord	= "TruePassWord"
DbPath_U			= DbPath
SqlDatabaseName_U	= SqlDatabaseName
SqlUsername_U		= SqlUsername
SqlPassword_U		= SqlPassword
SqlLocalName_U		= SqlLocalName
IsSqlDataBase_U		= IsSqlDataBase
End If
Db.UserID			= "UserID"				'用户ID
Db.UserName			= "UserName"			'用户名
Db.UserPassword		= "UserPassword"		'密码
Db.UserEmail		= "UserEmail"			'Email地址
Db.UserSex			= "UserSex"				'性别
Db.UserFace			= "UserFace"			'头像
Db.UserJoinDate		= "JoinDate"			'注册日期
Db.UserLastLogin	= "LastLogin"			'最后登录时间
Db.UserLogins		= "UserLogins"			'登录次数
Db.UserQuestion		= "UserQuesion"			'忘记密码的提示问题
Db.UserAnswer		= "UserAnswer"			'问题答案
Db.UserLastIP		= "UserLastIP"			'最后登录IP
'=============================
Db.UserIM			= "UserIM"				'用户IM,0123456,bbsxp(012345)
Db.UserLock			= "LockUser"			'是否锁定用户
Db.UserWealth		= "UserWealth"			'用户金钱（整合DVBBS用）
Db.UserMoney		= "UserMoney"			'用户金币
Db.UserMsg			= "UserMsg"				'短消息状态
'=============================
Db.UserReName		= "UserReName"			'真实姓名
Db.UserTelePhone	= "UserTelePhone"		'办公电话
Db.UserAddRess		= "UserAddRess"			'通讯地址
Db.UserBirthday		= "UserBirthday"		'用户生日
Db.IDCard			= "IDCard"				'身份证号
Db.CityInfo			= "CityInfo"			'城市
Db.ZipCode			= "ZipCode"				'邮编
Db.SchoolAge		= "SchoolAge"			'学历
Db.UserWorking		= "UserWorking"			'工作
Db.UserHomePhone	= "UserHomePhone"		'家庭电话
Db.UserMobile		= "UserMobile"			'手机
Db.WaitReceive		= "WaitReceive"			'待签收文章
Db.Received			= "Received"			'已签收文章
Db.TotalExp			= "TotalExp"			'个人购物积分
Db.UserReMark		= "UserReMark"			'备注
Db.DataCount		= "DataCount"			'发表文章数
Db.UserGroupID		= "UserLevel"			'用户等级
Db.UserPoint		= "UserPoint"			'用户点数
Db.ChargeType		= "ChargeType"			'计费方式
Db.BeginDate		= "BeginDate"			'开始日期
Db.ValidNum			= "Valid_Num"			'有效期数值
Db.UserCheckNum		= "UserCheckNum"		'注册认证码
if IsSqlDataBase=1 then
TrueType			= "1"
FalseType			= "0"
SqlNowString		= "GetDate()"
else
TrueType			= "True"
FalseType			= "False"
SqlNowString		= "Now()"
end if
if IsSqlDataBase_U=1 then
TrueType_U			= "1"
FalseType_U			= "0"
SqlNowString_U		= "GetDate()"
else
TrueType_U			= "True"
FalseType_U			= "False"
SqlNowString_U		= "Now()"
end if
'主站数据库链接过程
Sub OpenConn()
	if IsObject(Conn) then Exit Sub
	if IsSqlDataBase=1 then
		Db.ConnValue =  "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	else
		Db.ConnValue="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)
	end if
	Set Conn=Db.OpenConnection("主数据库")
End Sub
'用户主站数据库链接过程
Sub OpenConn_U()
	if IsObject(Conn_U) then Exit Sub
	if IsSqlDataBase_U=1 then
		Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername_U & "; Password = " & SqlPassword_U & "; Initial Catalog = " & SqlDatabaseName_U & "; Data Source = " & SqlLocalName_U & ";"
	else
		Db.ConnValue = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath_U)
	end if
	Set Conn_U=Db.OpenConnection("用户数据库")
End Sub
'Log数据库链接过程
Sub OpenConn_L()
	if IsObject(Conn_L) then Exit Sub
	if IsSqlDataBase_L=1 then
		Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername_L & "; Password = " & SqlPassword_L & "; Initial Catalog = " & SqlDatabaseName_L & "; Data Source = " & SqlLocalName_L & ";"
	else
		Db.ConnValue = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath_L)
	end if
	Set Conn_L=Db.OpenConnection("Log数据库")
End Sub
Sub CloseAllObj()
	'On Error Resume Next
	TempStr				= Empty
	Set Db				= Nothing
	Set Cl				= Nothing
	If IsObject(Template) Then Set Template	= Nothing
	If IsObject(PageData) Then Set PageData	= Nothing
End Sub
%>
<%
'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>