合肥儿童医院全面照片:vb难题 关于 XMLHttpRequest
来源:百度文库 编辑:高校问答 时间:2024/05/11 20:13:45
发送到 asp 网页里面 再用vbScript 代码 在网页里面读出xml文件的内容
~~
这个问题要用到什么方法???
大家有这样的示例的具体代码吗??
谢谢大家~~~
劝你使用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