<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
'Response.Buffer = True 
'Response.Expires = -1
'Response.ExpiresAbsolute = Now() - 1 
'Response.Expires = 0 
'Response.CacheControl = "no-cache" 
%>
<%
Dim Conn, ConnStr, db, PE_True, PE_False, PE_Now
Dim SqlDatabaseName, SqlPassword, SqlUsername, SqlHostIP
Dim SiteName, SiteTitle, SiteUrl, InstallDir, LogoUrl, WebmasterName, WebmasterEmail, SiteKey
Dim AdminDir, ShowSiteChannel, objName_FSO, FileExt_SiteIndex, FileExt_SiteSpecial
Dim PresentExpPerLogin

Dim EnableUserReg, RegFields_MustFill, EnableCheckCodeOfLogin
Dim RssCodeType
Dim LockIP, LockIPType
Dim UserTrueIP
Dim AllModules, PointName, PointUnit

Const CMS_Edition = 0      '0--普及版  1--标准版  2--专业版  3--企业版
Const eShop_Edition = 0     '0--普及版  1--标准版  2--专业版  3--企业版
Const CRM_Edition = 0       '0--普及版  1--标准版  2--专业版  3--企业版
Const SystemDatabaseType = "ACCESS"     '系统数据库类型，"SQL"为MS SQL2000数据库，"ACCESS"为MS ACCESS 2000数据库，免费版只能使用ACCESS数据库


'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
db = "/data/left2005.mdb"      'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
                                        '如果是安装在网站根目录，直接修改文件名即可。如果是安装在网站某一目录下，则在前面加上此目录，
                                        '例如，系统安装在“http://www.powereasy.net/PE2006/”目录下（PE2006为安装目录），则这里应该修改为：db="\PE2006\database\PowerEasy2006.mdb"

'如果是SQL数据库，请认真修改好以下数据库选项
SqlUsername = "PowerEasy"           'SQL数据库用户名
SqlPassword = "PowerEasy*9988"          'SQL数据库用户密码
SqlDatabaseName = "PowerEasy2006"       'SQL数据库名
SqlHostIP = "(local)"                 'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）

Call OpenConn
Call GetSiteConfig
Call IsIPlock

Sub OpenConn()
    On Error Resume Next
    If SystemDatabaseType = "SQL" Then
        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
    Else
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
    End If
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.open ConnStr
    If Err Then
        Err.Clear
        Set Conn = Nothing
        Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
        Response.End
    End If
    If SystemDatabaseType = "SQL" Then
        PE_True = "1"
        PE_False = "0"
        PE_Now = "getdate()"
    Else
        PE_True = "True"
        PE_False = "False"
        PE_Now = "Now()"
    End If
End Sub

Sub CloseConn()
    On Error Resume Next
    If IsObject(Conn) Then
        Conn.Close
        Set Conn = Nothing
    End If
End Sub

Sub GetSiteConfig()
    Dim rsConfig
    Set rsConfig = Conn.Execute("select * from PE_Config")
    If rsConfig.BOF And rsConfig.EOF Then
        rsConfig.Close
        Set rsConfig = Nothing
        Response.Write "网站配置数据丢失！系统无法正常运行！"
        Response.End
    Else
        SiteName = rsConfig("SiteName")
        SiteTitle = rsConfig("SiteTitle")
        SiteUrl = rsConfig("SiteUrl")
        InstallDir = rsConfig("InstallDir")
        LogoUrl = rsConfig("LogoUrl")
        WebmasterName = rsConfig("WebmasterName")
        WebmasterEmail = rsConfig("WebmasterEmail")
        SiteKey = rsConfig("SiteKey")

        AdminDir = rsConfig("AdminDir")
        ShowSiteChannel = rsConfig("ShowSiteChannel")
        objName_FSO = rsConfig("objName_FSO")
        FileExt_SiteIndex = rsConfig("FileExt_SiteIndex")
        FileExt_SiteSpecial = rsConfig("FileExt_SiteSpecial")

        EnableUserReg = rsConfig("EnableUserReg")
        RegFields_MustFill = rsConfig("RegFields_MustFill")
        AllModules = rsConfig("Modules")
        PointName = rsConfig("PointName")
        PointUnit = rsConfig("PointUnit")
        RssCodeType = rsConfig("RssCodeType")
        LockIP = rsConfig("LockIP")
        LockIPType = rsConfig("LockIPType")
        EnableCheckCodeOfLogin = rsConfig("EnableCheckCodeOfLogin")

        PresentExpPerLogin = rsConfig("PresentExpPerLogin")
    End If
    rsConfig.Close
    Set rsConfig = Nothing
    Application("SiteKey") = SiteKey
    Application("objName_FSO") = objName_FSO
End Sub

Sub IsIPlock()
    UserTrueIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If UserTrueIP = "" Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR")
    If session("IPlock") = "" Then
        session("IPlock") = ChecKIPlock(LockIPType, LockIP, UserTrueIP)
    End If
    If session("IPlock") = True Then
        Response.Write "对不起！您的IP（" & UserTrueIP & "）被系统限定。您可以和站长联系。"
        Response.End
    End If
End Sub

Function EncodeIP(Sip)
    Dim strIP
    strIP = Split(Sip, ".")
    If UBound(strIP) < 3 Then
        EncodeIP = 0
        Exit Function
    End If
    If IsNumeric(strIP(0)) = 0 Or IsNumeric(strIP(1)) = 0 Or IsNumeric(strIP(2)) = 0 Or IsNumeric(strIP(3)) = 0 Then
        Sip = 0
    Else
        Sip = CInt(strIP(0)) * 256 * 256 * 256 + CInt(strIP(1)) * 256 * 256 + CInt(strIP(2)) * 256 + CInt(strIP(3)) - 1
    End If
    EncodeIP = Sip
End Function

'白名单的端点可以访问和黑名单的端点将不允许访问。
Function ChecKIPlock(ByVal sLockType, ByVal sLockList, ByVal sUserIP)
    Dim IPlock, rsLockIP
    Dim arrLockIPW, arrLockIPB, arrLockIPWCut, arrLockIPBCut
    IPlock = False
    ChecKIPlock = IPlock
    Dim i, sKillIP
    If sLockType = "" Or IsNull(sLockType) Then Exit Function
    If sLockList = "" Or IsNull(sLockList) Then Exit Function
    If sUserIP = "" Or IsNull(sUserIP) Then Exit Function
    sUserIP = CDbl(EncodeIP(sUserIP))
    rsLockIP = Split(sLockList, "|||")
    If sLockType = 4 Then
        arrLockIPB = Split(Trim(rsLockIP(1)), "$$$")
        For i = 0 To UBound(arrLockIPB)
            If arrLockIPB(i) <> "" Then
                arrLockIPBCut = Split(Trim(arrLockIPB(i)), "----")
                IPlock = True
                If CDbl(arrLockIPBCut(0)) > sUserIP Or sUserIP > CDbl(arrLockIPBCut(1)) Then IPlock = False
                If IPlock Then Exit For
            End If
        Next
        If IPlock = True Then
            arrLockIPW = Split(Trim(rsLockIP(0)), "$$$")
            For i = 0 To UBound(arrLockIPW)
                If arrLockIPW(i) <> "" Then
                    arrLockIPWCut = Split(Trim(arrLockIPW(i)), "----")
                    IPlock = True
                    If CDbl(arrLockIPWCut(0)) <= sUserIP And sUserIP <= CDbl(arrLockIPWCut(1)) Then IPlock = False
                    If IPlock Then Exit For
                End If
            Next
        End If
    Else
        If sLockType = 1 Or sLockType = 3 Then
            arrLockIPW = Split(Trim(rsLockIP(0)), "$$$")
            For i = 0 To UBound(arrLockIPW)
                If arrLockIPW(i) <> "" Then
                    arrLockIPWCut = Split(Trim(arrLockIPW(i)), "----")
                    IPlock = True
                    If CDbl(arrLockIPWCut(0)) <= sUserIP And sUserIP <= CDbl(arrLockIPWCut(1)) Then IPlock = False
                    If IPlock Then Exit For
                End If
            Next
        End If
        If IPlock = False And (sLockType = 2 Or sLockType = 3) Then
            arrLockIPB = Split(Trim(rsLockIP(1)), "$$$")
            For i = 0 To UBound(arrLockIPB)
                If arrLockIPB(i) <> "" Then
                    arrLockIPBCut = Split(Trim(arrLockIPB(i)), "----")
                    IPlock = True
                    If CDbl(arrLockIPBCut(0)) > sUserIP Or sUserIP > CDbl(arrLockIPBCut(1)) Then IPlock = False
                    If IPlock Then Exit For
                End If
            Next
        End If
    End If
    ChecKIPlock = IPlock
End Function
%>

<%
dim Conn_User,db_User,db_User_Table,db_Message_Table,PE_True_User,PE_False_User,PE_Now_User
Dim SqlDatabaseName_User,SqlPassword_User,SqlUsername_User,SqlHostIP_User

const UserDatabaseType="ACCESS"		'用户数据库类型，"SQL"为MS SQL2000数据库，"ACCESS"为MS ACCESS 2000数据库
const UserTableType = "MyPower"		' "Dvbbs6.0" --- 整合动网论坛6.0
									' "Dvbbs7.0" --- 整合动网论坛7.0
									' "MyPower"  --- 不整合论坛
const Forum_dir="bbs/"			'论坛所在目录，请使用相对路径


'如果是ACCESS数据库，请认真修改好下面的数据库的文件名。如果整合论坛，则此处应该为论坛的数据库文件名。
db_User="\leftnews\database\lefts.mdb"          'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
											'如果是安装在网站根目录，直接修改文件名即可。如果是安装在网站某一目录下，则在前面加上此目录，
											'例如，系统安装在“http://www.asp163.net/PE4/”目录下（PE4为安装目录），则这里应该修改为：db="\PE4\database\PowerEasy4.mdb"

'如果是SQL数据库，请认真修改好以下数据库选项。如果整合论坛，则此处应该为论坛的数据库选项。
SqlUsername_User = "PowerEasy"           'SQL数据库用户名
SqlPassword_User = "PowerEasy*9988"       'SQL数据库用户密码
SqlDatabaseName_User = "PowerEasy40"    'SQL数据库名
SqlHostIP_User = "127.0.0.1"           'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）



'*************************************************
'以下部分不用修改了。
'*************************************************

select case UserTableType
case "Dvbbs7.0"		
	db_User_Table="Dv_User"
	db_Message_Table="Dv_Message"
case "Dvbbs6.0"
	db_User_Table="[User]"
	db_Message_Table="Message"
case else
	db_User_Table="PE_User"
	db_Message_Table="PE_Message"
End select

call OpenConn_User()

sub OpenConn_User()
	On Error Resume Next
	dim ConnStr
	if UserDatabaseType="SQL" then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername_User & "; Password = " & SqlPassword_User & "; Initial Catalog = " & SqlDatabaseName_User & "; Data Source = " & SqlHostIP_User & ";"
	else
		ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db_User)
	end if
	Set conn_User = Server.CreateObject("ADODB.Connection")
	conn_User.Open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "用户数据库连接出错，请检查Conn_User.asp文件中的数据库参数设置。"
		Response.End
	End If
	Application("ConnStr_User")=ConnStr
	Application("UserDatabaseType")=UserDatabaseType
	if UserDatabaseType="SQL" then
		PE_True_User="1"
		PE_False_User="0"
		PE_Now_User="getdate()"
	else
		PE_True_User="True"
		PE_False_User="False"
		PE_Now_User="Now()"
	end if

end sub

sub CloseConn_User()
	On Error Resume Next
	If IsObject(Conn_User) Then
		Conn_User.close
		set Conn_User=nothing
	end if
end sub


dim db_User_ID,db_User_Name,db_User_Sex,db_User_Email,db_User_Homepage,db_User_QQ,db_User_Icq,db_User_Msn
dim db_User_Password,db_User_Question,db_User_Answer,db_User_Sign,db_User_Face,db_User_FaceWidth,db_User_FaceHeight
dim db_User_RegDate,db_User_LoginTimes,db_User_LastLoginTime,db_User_LastLoginIP,db_User_UserClass
'MY动力的用户字段名
db_User_ID="UserID"					'用户ID
db_User_Name="UserName"					'用户名
db_User_Password="UserPassword"				'密码

select case UserTableType
case "Dvbbs7.0"		
	db_User_Sex="UserSex"					'性别
	db_User_Question="UserQuesion"				'忘记密码的提示问题
	db_User_Answer="UserAnswer"				'问题答案
	db_User_Sign="UserSign"					'签名
	db_User_Face="UserFace"					'头像
	db_User_FaceWidth="UserWidth"				'头像宽度
	db_User_FaceHeight="UserHeight"				'头像高度
	db_User_RegDate="JoinDate"				'注册日期
	db_User_LoginTimes="UserLogins"				'登录次数
	db_User_LastLoginTime="lastlogin"			'最后登录时间
	db_User_LastLoginIP="UserLastIP"			'最后登录IP
case "Dvbbs6.0"
	db_User_Sex="Sex"					'性别
	db_User_Question="Quesion"				'忘记密码的提示问题
	db_User_Answer="Answer"					'问题答案
	db_User_Sign="Sign"					'签名
	db_User_Face="Face"					'头像
	db_User_FaceWidth="Width"				'头像宽度
	db_User_FaceHeight="Height"				'头像高度
	db_User_RegDate="addDate"				'注册日期
	db_User_LoginTimes="Logins"				'登录次数
	db_User_LastLoginTime="logintime"			'最后登录时间
	db_User_LastLoginIP="UserLastIP"				'最后登录IP
case "MyPower"
	db_User_Sex="Sex"							'性别
	db_User_Question="Question"					'忘记密码的提示问题
	db_User_Answer="Answer"						'问题答案
	db_User_Sign="Sign"							'签名
	db_User_Face="UserFace"						'头像
	db_User_FaceWidth="FaceWidth"				'头像宽度
	db_User_FaceHeight="FaceHeight"				'头像高度
	db_User_RegDate="AddDate"					'注册日期
	db_User_LoginTimes="LoginTimes"				'登录次数
	db_User_LastLoginTime="LastLoginTime"		'最后登录时间
	db_User_LastLoginIP="LastLoginIP"			'最后登录IP
case else
	db_User_Sex="Sex"							'性别
	db_User_Question="Question"					'忘记密码的提示问题
	db_User_Answer="Answer"						'问题答案
	db_User_Sign="Sign"							'签名
	db_User_Face="UserFace"						'头像
	db_User_FaceWidth="FaceWidth"				'头像宽度
	db_User_FaceHeight="FaceHeight"				'头像高度
	db_User_RegDate="AddDate"					'注册日期
	db_User_LoginTimes="LoginTimes"				'登录次数
	db_User_LastLoginTime="LastLoginTime"		'最后登录时间
	db_User_LastLoginIP="LastLoginIP"			'最后登录IP
End select
db_User_Email="UserEmail"				'Email地址
db_User_Homepage="Homepage"				'主页
db_User_QQ="Oicq"					'QQ
db_User_Icq="Icq"					'Icq
db_User_Msn="Msn"					'Msn
db_User_UserClass="UserClass"				'论坛用户等级（登录时用到）


dim db_User_CheckNum,db_User_LockUser,db_User_ArticleCount,db_User_ArticleChecked,db_User_UserLevel,db_User_UserPoint,db_User_ChargeType,db_User_BeginDate,db_User_Valid_Num,db_User_Valid_Unit,db_User_UserState,db_User_ArticlesReceive
db_User_CheckNum="CheckNum"				'验证码
db_User_LockUser="LockUser"				'是否锁定用户
db_User_ArticleCount="ArticleCount"			'发表文章数
db_User_ArticleChecked="ArticleChecked"			'已审核文章数
db_User_UserLevel="UserLevel"				'用户等级（权限）
db_User_UserPoint="UserPoint"				'用户点数
db_User_ChargeType="ChargeType"				'计费方式
db_User_BeginDate="BeginDate"				'开始日期
db_User_Valid_Num="Valid_Num"				'有效期数值
db_User_Valid_Unit="Valid_Unit"				'有效期单位
db_User_UserState="UserState"				'UserState
db_User_ArticlesReceive="ArticlesReceive"		'ArticlesReceive

dim db_User_BbsType,db_User_Article,db_User_UserGroup,db_User_UserWealth,db_User_UserEP,db_User_UserCP
dim db_User_Title,db_User_Showre,db_User_Reann,db_User_UserCookies,db_User_Birthday,db_User_UserPhoto
dim db_User_UserPower,db_User_UserDel,db_User_UserIsBest,db_User_UserInfo,db_User_UserSetting,db_User_UserGroupID,db_User_TitlePic
'动网论坛使用的用户字段名
db_User_BbsType="bbstype"
db_User_Article="UserTopic"
db_User_UserGroup="UserGroup"
db_User_UserWealth="userWealth"
db_User_UserEP="userEP"
db_User_UserCP="userCP"

If UserTableType = "Dvbbs7.0" then
	db_User_Title="UserTitle"
else
	db_User_Title="Title"
End if

db_User_Showre="showre"
db_User_Reann="reann"
db_User_UserCookies="usercookies"
db_User_Birthday="Userbirthday"
db_User_UserPhoto="UserPhoto"
db_User_UserPower="UserPower"
db_User_UserDel="UserDel"
db_User_UserIsBest="UserIsBest"
db_User_UserInfo="UserInfo"
db_User_UserSetting="UserSetting"
db_User_UserGroupID="UserGroupID"
db_User_TitlePic="TitlePic"

Application("db_User_Table")=db_User_Table
Application("db_User_ID")=db_User_ID
Application("db_User_Name")=db_User_Name
Application("db_User_Password")=db_User_Password

%>


<%
Const ChannelID=2
%>
<%
dim PE_Soft
call CreateObject_Soft()

sub CreateObject_Soft()
	on error resume next
	set PE_Soft=Server.CreateObject("PowerEasy.Soft")
	if err then
		err.clear
		response.write "对不起，你的服务器没有安装动易组件（PowerEasy.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
		response.end
	end if
	PE_Soft.CurrentChannelID=ChannelID
end sub
%>


<%
PE_Soft.ShowElite()
set PE_Soft=nothing
call CloseConn()
call CloseConn_User()
%>