通过xmlhttp传送XML格式数据(VB.net)

最新推荐文章于 2025-06-03 16:55:46 发布

weixin_30548917

最新推荐文章于 2025-06-03 16:55:46 发布

阅读量563

点赞数

CC 4.0 BY-SA版权

文章标签：网络数据库

原文链接：http://www.cnblogs.com/vboy/archive/2007/05/22/755317.html

本文介绍了一种使用VBScript在客户端发起HTTP POST请求的方法，并展示了如何从前台调用该脚本及后台如何接收请求数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

客户端VBScript脚本

'//客户端VBScript脚本

Function sendHttp(sURL,sArg)

On Error Resume Next

Set sendHttp = Nothing

IF Not navigator.onLine Then

Exit Function

End IF

Dim xmlhttp

Set xmlhttp = CreateObject("Microsoft.XMLHTTP")

xmlhttp.Open "POST", sURL,false

xmlhttp.Send sArg

IF xmlhttp.responseXML Is Nothing Then

Set xmlhttp = Nothing

Exit Function

End IF

IF xmlhttp.responseXML.xml = "" Then

Set xmlhttp = Nothing

Exit Function

End IF

Set sendHttp = xmlhttp.responseXML

Set xmlhttp = Nothing

End Function

前台调用：

var url ;

url="CSvr.aspx?Key=<%=Request.QueryString("Key")%>&iMode=" +iMode ;

var oxml = sendHttp(url,"") ;

后台接收：

        Dim instream As System.IO.Stream = Page.Request.InputStream
        Dim br As System.IO.BinaryReader = New System.IO.BinaryReader(instream, System.Text.Encoding.UTF8)
        Dim byt() As Byte = br.ReadBytes(CInt(instream.Length))
        Dim sourceXML As String = System.Text.Encoding.UTF8.GetString(byt)

转载于:https://www.cnblogs.com/vboy/archive/2007/05/22/755317.html