<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
Server.ScriptTimeOut = 9999999
%>
<!--#include file="../Conn.asp"-->
<%

Sub PE_Execute(strDllName, strClassName)
    On Error Resume Next
    If strDllName = "" Or IsNull(strDllName) Then
        Response.Write "請指定動易組件名！"
        Exit Sub
    End If
    If strClassName = "" Or IsNull(strClassName) Then
        Response.Write "請指定動易組件提供的類名！"
        Exit Sub
    End If
    Dim PE_User, objName
    objName = strDllName & "." & strClassName
    Set PE_User = Server.CreateObject(objName)
    If Err Then
        Err.Clear
        Response.Write "對不起，你的服務器沒有安裝動易組件（" & strDllName & ".dll），所以不能使用動易系統。請和你的空間商聯系以安裝動易組件。"
        Exit Sub
    End If
    PE_User.iConnStr = ConnStr
    PE_User.iSystemDatabaseType = SystemDatabaseType
    If strClassName = "User_Enrol" Then
        PE_User.iStartDay = "2006-1-1"
    End If
    Call PE_User.Execute
    Set PE_User = Nothing
    If Err Then
        Response.Write "錯 誤 號：" & Err.Number & "<BR>"
        Response.Write "錯誤描述：" & Err.Description & "<BR>"
        Response.Write "錯誤來源：" & Err.Source & "<BR>"
        Err.Clear
    End If
End Sub

%>