bzDemo

<Public>

    <property name="Types">

        <get/>

    </property>

    <method name="GetTypeName">

        <parameter name="iVal"/>

    </method>

</Public>

<implements type="ASP" id="ASP"/>

<script language="VBScript">

<![CDATA[

Option Explicit

Private Const MODULE_NAME    = "bzDemo.wsc"

Private Const DOC_DEF_ID    =

Private Const LOG_CLASS_ID    =

Dim auDemo,dbDemo,auCommon

Set auDemo = CreateObject("auDemo.wsc")

Set dbDemo = CreateObject("dbDemo.wsc")

Set auCommon = CreateObject("auCommon.wsc")

Dim arrType(,)

arrType(,) =     :    arrType(,) = "类型1"

arrType(,) =     :    arrType(,) = "类型2"

arrType(,) =     :    arrType(,) = "类型3"

Public Function Get_Types()

    Get_Types = arrType

End Function

Public Function GetTypeName(iVal)

    Dim i

    GetTypeName = "?"

    For i =  To UBound(arrType,)

        If arrType(,i) = iVal Then

            GetTypeName = arrType(,i)

            Exit For

        End If

    Next

End Function

Private Function fnAddLog(idDemo,dtEventTime,sEventType,idEventHandler,sEventDescription)

    Dim dbLog

    Set dbLog = CreateObject("dbLog.wsc")

    Call dbLog.AddLog(LOG_CLASS_ID,idDemo,dtEventTime,sEventType,idEventHandler,sEventDescription,Null,Null,Null,Null,Null)

End Function

Function ListLog(idDemo,dtLogFrom,dtLogTo)

    Dim dbLog

    Set dbLog = CreateObject("dbLog.wsc")

    Set ListLog = dbLog.ListLog3(Array(LOG_CLASS_ID),dtLogFrom,dtLogTo,idDemo,Null,Null,Null,Null,"LogTimeDESC")

End Function

Public Function AddDemo(sName,iAge)

    Dim arrNewContent(,),idDemo

    arrNewContent(,) = "Name"        :    arrNewContent(,) = sName

    arrNewContent(,) = "Age"        :    arrNewContent(,) = iAge

    If Not auDemo.CanAddNews(auCommon.Logon_UID,True,arrNewContent) Then Err.Raise ,MODULE_NAME,"你没有新建的权限。"

    idDemo = dbDemo.Add(sName,iAge)

    Dim sLog

    sLog = ""

    Call fnAddLog(idDemo,Now,"新增",auCommon.Logon_UID,sLog)

    AddDemo = idDemo

End Function

]]>

</script>