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")
会出现什么结果?
单从程序上解释。
我调试得到的结果后来说
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")
会出现什么结果?
单从程序上解释。
我调试得到的结果后来说
解决方案 »
- VB6.0为什么打开工程会出现下列情况,求解:
- VB:如何从全局的角度捕捉每处可能发生的异常?
- 如果能让 text1 内含有空格删除?
- 实时监控
- Updown控件怎样按住鼠标, 数值自动不断增加?
- VB也会执行非法操作。
- 请教:datagrid控件的第一行第一列为什么为空?
- 存储过程问题
- what is creating shaped ADO Recordsets?
- Collection was modified; enumeration operation may not execute.错误求解决方法。
- 难,郁闷中,求解,高分,不够另开!
- 求助:两个表之间的查询统计,a表是总体,b表是详细记录,
true
true
false
false
false
false
true
true
true or false (视(mvarXMLString=""))
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的。