Option Explicit
Private Rs As New ADODB.RecordsetPrivate ScriptingContext As ScriptingContext
Private Response As ResponsePrivate mvarXMLString As StringPublic Property Let XMLString(ByVal vData As String)
    mvarXMLString = vData
End Property
Public Property Get XMLString() As String
    XMLString = mvarXMLString
End PropertyPublic Sub Init(Optional ByVal sXML As String = Empty, Optional ByVal Table_Name As String, Optional ByVal sWhere As String)
    Response.Write "IsEmpty(sxml):" & IsEmpty(sXML) & "<br>"
    Response.Write "IsEmpty(Table_Name):" & IsEmpty(Table_Name) & "<br>"
    Response.Write "IsEmpty(sWhere):" & IsEmpty(sWhere) & "<br>"
    Response.Write "IsNull(sxml):" & IsNull(sXML) & "<br>"
    Response.Write "IsNull(Table_Name):" & IsNull(Table_Name) & "<br>"
    Response.Write "IsNull(sWhere):" & IsNull(sWhere) & "<br>"
    Response.Write "IsMissing(sxml):" & IsMissing(sXML) & "<br>"
    Response.Write "IsMissing(Table_Name):" & IsMissing(Table_Name) & "<br>"
    Response.Write "IsMissing(sWhere):" & IsMissing(sWhere) & "<br>"
    Response.Write "IsEmpty(mvarXMLString):" & IsEmpty(mvarXMLString) & "<br>"
    Init = False
End SubPublic Sub OnStartPage(PassedScriptingContext As ScriptingContext)
    Set ScriptingContext = PassedScriptingContext
    Set Response = ScriptingContext.Response
End Sub
Private Sub Class_Terminate()
    Set Rs = Nothing
    Set ScriptingContext = Nothing
    Set Response = Nothing
End Sub如果我调用的时候是Call Init("XMLtest")
会出现什么结果?
单从程序上解释。
我调试得到的结果后来说

解决方案 »

  1.   

    false
    true
    true
    false
    false
    false
    false
    true
    true
    true or false  (视(mvarXMLString=""))
      

  2.   

    IsEmpty(sxml):False
    IsEmpty(Table_Name):False
    IsEmpty(sWhere):False
    IsNull(sxml):False
    IsNull(Table_Name):False
    IsNull(sWhere):False
    IsMissing(sxml):False
    IsMissing(Table_Name):False
    IsMissing(sWhere):False
    IsEmpty(mvarXMLString):Falsed以上是我调试的结果。
    为什么会这样啊?不清楚。
    我的ISmissing函数没有一次是输出True的。