ConvertToString 方法范例 (VBScript)

Sub QueryRecordset_OnClick()

   Dim objADORs

      strServer = "http://<%=Request.ServerVariables("SERVER_NAME")%>"

      Set ADF = ADS1.CreateObject _

      ("RDSServer.DataFactory", strServer)

   Set objADORs = ADF.Query _

   (txtConnect.Value,txtQueryRecordset.Value)

ADF.ConvertToString(objADORs)

End Sub