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

解决方案 »

  1.   

    貌似没人看得懂,自己顶下http://www.ahuing.com
      

  2.   

    你这个是asp下东西,在VB6下不能直接用,
    我替你大体修改如下,细节你自做吧: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
      

  3.   

    大哥,我就是用asp的,不好意思发到这个论坛了,你看问题是在哪
      

  4.   

    查检asp环境配置是否正确,然后单调试,不知道你用什么来写asp.