推荐订阅源

客户端VBScript脚本

前台调用：

  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)