乱斗西游青狮精打法:vb难题 关于 XMLHttpRequest

劝你使用VB.NET，VB.NET的类库提供了相应方法，把你所需要操作的文件串行化发送过去再反串行化的方法。另外，网页本来就能显示XML文件的内容，不需要你去用VBSCRIPT代码操作

以下是串行化示例（VB.NET/VB2005）
Public Class Form1

Private Sub CmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSend.Click
Dim Order As New Order
OrderFromFrom(Order)
Dim FileName As String = DataFileName
Order.SaveXmlFile(FileName)
MsgBox("Send to " & FileName)

End Sub

Public ReadOnly Property DataFileName() As String
Get
'Dim Folder As String
Return "D:\Test.xml"

End Get
End Property

Public Sub OrderFromFrom(ByVal Order As Order)
Order.CustomerNo = TextBox1.Text
Order.CompanyName = TextBox2.Text
Order.Quantity = TextBox3.Text
Order.ShippingMethod = TextBox4.Text
Order.City = TextBox5.Text
Order.Region = TextBox6.Text
Order.PostalCode = TextBox7.Text
Order.Country = TextBox8.Text
Order.EMail = TextBox9.Text

End Sub

Private Sub CmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNew.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""

End Sub
End Class

Public Class Order
Inherits SerializeData

Public CustomerNo As String
Public CompanyName As String
Public ShippingMethod As String
Public Quantity As String
Public City As String
Public Region As String
Public PostalCode As String
Public Country As String
Public EMail As String

End Class
Imports System.IO
Imports System.Xml.Serialization

Public Class SerializeData

Public Sub SaveXmlFile(ByVal FileName As String)
Dim TempFileName As String

TempFileName = FileName & "tmp"

Dim TempFileInfo As New FileInfo(TempFileName)

If TempFileInfo.Exists Then TempFileInfo.Delete()

Dim Stream As New FileStream(TempFileName, FileMode.Create)

SaveXmlFile(Stream)
Stream.Close()
TempFileInfo.CopyTo(FileName, True)
TempFileInfo.Delete()

End Sub

Public Sub SaveXmlFile(ByVal Stream As FileStream)
Dim Serializer As New XmlSerializer(Me.GetType)

Serializer.Serialize(Stream, Me)

End Sub
End Class