<%
Dim PayDays,isArticle,ArticleRate,isOnlineTime,OnlineTimeRate,isLogs,LogsRate,SalaryPerBoard,SalaryForVIP,SalaryForSBM,SalaryForMaster
Dim BonusPoint,BonusStep,BonusWealth,BonusPower,BonusEP,BonusCP,BM_Period,isAutoCancel,BM_PageSize
Dim isPayMsg,isCancelAnnounce,isCancelMsg,UnEvalUserGroupID,UnEvalUserID,CancelToGroupID,Member_Period,Member_PageSize,isAutoDelete
Dim BmEvalRs,BmEvalSQL

BMEval_MyDbPath = "../"
If Not IsObject(BMEval_Conn) Then BmEval_ConnectionDatabase
BmEvalSQL="Select * From BM_Config"
Set BmEvalRs=BMEval_Conn.Execute(BmEvalSQL)
If Not (BmEvalRs.Eof Or BmEvalRs.Bof) Then
	PayDays=BmEvalRs("PayDays")
	isArticle=BmEvalRs("isArticle")
	ArticleRate=BmEvalRs("ArticleRate")
	isOnlineTime=BmEvalRs("isOnlineTime")
	OnlineTimeRate=BmEvalRs("OnlineTimeRate")
	isLogs=BmEvalRs("isLogs")
	LogsRate=BmEvalRs("LogsRate")
	SalaryPerBoard=BmEvalRs("SalaryPerBoard")
	SalaryForVIP=BmEvalRs("SalaryForVIP")
	SalaryForSBM=BmEvalRs("SalaryForSBM")
	SalaryForMaster=BmEvalRs("SalaryForMaster")
	BonusPoint=BmEvalRs("BonusPoint")
	BonusStep=BmEvalRs("BonusStep")
	BonusWealth=BmEvalRs("BonusWealth")
	BonusPower=BmEvalRs("BonusPower")
	BonusEP=BmEvalRs("BonusEP")
	BonusCP=BmEvalRs("BonusCP")
	BM_Period=BmEvalRs("BM_Period")
	isAutoCancel=BmEvalRs("isAutoCancel")
	BM_PageSize=BmEvalRs("BM_PageSize")
	isPayMsg=BmEvalRs("isPayMsg")
	isCancelAnnounce=BmEvalRs("isCancelAnnounce")
	isCancelMsg=BmEvalRs("isCancelMsg")
	UnEvalUserGroupID=Replace(BmEvalRs("UnEvalUserGroupID")," ","")
	UnEvalUserID=Replace(BmEvalRs("UnEvalUserID")," ","")
	CancelToGroupID=BmEvalRs("CancelToGroupID")
	Member_Period=BmEvalRs("Member_Period")
	Member_PageSize=BmEvalRs("Member_PageSize")
	isAutoDelete=BmEvalRs("isAutoDelete")
Else
	PayDays=7
	isArticle=True
	ArticleRate=0.5
	isOnlineTime=True
	OnlineTimeRate=0.5
	isLogs=True
	LogsRate=1.0
	SalaryPerBoard=100
	SalaryForVIP=200
	SalaryForSBM=500
	SalaryForMaster=1000
	BonusPoint=20
	BonusStep=10
	BonusWealth=100
	BonusPower=1
	BonusEP=50
	BonusCP=20
	BM_Period=15
	isAutoCancel=True
	BM_PageSize=10
	isPayMsg=True
	isCancelAnnounce=True
	isCancelMsg=True
	UnEvalUserGroupID=""
	UnEvalUserID=""
	CancelToGroupID=4
	Member_Period=15
	Member_PageSize=20
	isAutoDelete=True
End If
BmEvalRs.Close
Set BmEvalRs=Nothing

Function isInteger(Para)
	isInteger=False
	If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
		isInteger=True
	End If
End Function
%>