dim strDownload
dim objXML
Dim ahuing_objRS1
Dim strSourceFile, objRootList, iii
Dim tmp_title,tmp_link,tmp_time,tmp_info,tmp_name
strSourceFile = Server.MapPath("Ahuing_download.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootList = objXML.documentElement.selectSingleNode("channel")
For iii = 0 To objRootList.childNodes.Length -1
tmp_title = objRootList.childNodes.Item(iii).childNodes.Item(0).text
tmp_link = objRootList.childNodes.Item(iii).childNodes.Item(1).text
tmp_name = objRootList.childNodes.Item(iii).childNodes.Item(2).text
strDownload=strDownload & "<li>"&tmp_title&"<a href="""&tmp_link&""">"&tmp_name&"</a></li>"
next
ahuing_objRS1.Close
Set ahuing_objRS1=Nothing
strDownload=TransferHTML(strDownload,"[no-asp]")
Call SaveToFile(BlogPath & "/include/download.asp",strDownload,"utf-8",True)
这是一个从xml中读取数据生成静态文件的程序,不知道为什么不能运行
http://www.ahuing.com
dim objXML
Dim ahuing_objRS1
Dim strSourceFile, objRootList, iii
Dim tmp_title,tmp_link,tmp_time,tmp_info,tmp_name
strSourceFile = Server.MapPath("Ahuing_download.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootList = objXML.documentElement.selectSingleNode("channel")
For iii = 0 To objRootList.childNodes.Length -1
tmp_title = objRootList.childNodes.Item(iii).childNodes.Item(0).text
tmp_link = objRootList.childNodes.Item(iii).childNodes.Item(1).text
tmp_name = objRootList.childNodes.Item(iii).childNodes.Item(2).text
strDownload=strDownload & "<li>"&tmp_title&"<a href="""&tmp_link&""">"&tmp_name&"</a></li>"
next
ahuing_objRS1.Close
Set ahuing_objRS1=Nothing
strDownload=TransferHTML(strDownload,"[no-asp]")
Call SaveToFile(BlogPath & "/include/download.asp",strDownload,"utf-8",True)
这是一个从xml中读取数据生成静态文件的程序,不知道为什么不能运行
http://www.ahuing.com
我替你大体修改如下,细节你自做吧:Private Sub Command1_Click()
Dim objXML As Object, objRootList As Object
Dim tmp_title As String, tmp_link As String, tmp_name As String
Dim strDownload As String, iii As Long
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.Load "Ahuing_download.xml"
Set objRootList = objXML.documentElement.selectSingleNode("channel")
For iii = 0 To objRootList.childNodes.length - 1
tmp_title = objRootList.childNodes.Item(iii).childNodes.Item(0).Text
tmp_link = objRootList.childNodes.Item(iii).childNodes.Item(1).Text
tmp_name = objRootList.childNodes.Item(iii).childNodes.Item(2).Text
strDownload = strDownload & "<li>" & tmp_title & "<a href=" & tmp_link & ">" & tmp_name & "</a></li>"
Next
Set objXML = Nothing
Open "123.txt" For Output As #1
Print #1, strDownload
Close #1
End Sub