网站推广-网站优化-合肥久飞SEO论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 6016|回复: 0

给个ASP读取存储数据为XML的例子

[复制链接]
合肥网络公司 该用户已被删除
发表于 2009-11-4 12:34:33 | 显示全部楼层 |阅读模式
  1. <?xml version="1.0" encoding="gb2312"?>
  2. <ftp ip="10.1.228.228">
  3. <DIR path="Game">
  4. <DIR path="久久网络(save)">
  5. <file size="346294">complete_camel.rar</file>
  6. <file size="1886286">complete_funlove.rar</file>
  7. </DIR>
  8. </DIR>
  9. </ftp>

  10. 以上为要生成的.xml文件,下面为make_file_list.asp文件,里面参考代码为:


  11. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  12. <%
  13. '######################################'
  14. '## Copyright (C) 2003 醉雨梧桐 All rights reserved. ##'
  15. '## Powered by 醉雨梧桐 ##'
  16. '## http://btyz.51web.cn/ ##'
  17. '## winterfire@163.com ##'
  18. '######################################'
  19. Dim objFo,objF,objAF,objFxml
  20. set objFo=CreateObject("Scripting.FileSystemObject") '对象
  21. set objFxml=objFo.OpenTextFile("G:\My Documents\http\Personal Works\FTP_Search\ftp.xml",2) '打开文件
  22. objFxml.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>")
  23. objFxml.WriteLine("<ftp ip=""10.1.228.228"">")
  24. Call xml_list("F:") '开始列表
  25. objFxml.WriteLine("</ftp>")
  26. Response.Write("List is OK!) '列表成功
  27. Function xml_list(DirName)
  28. set objFS=objFo.GetFolder(DirName)
  29. set objASD=objFS.SubFolders
  30. For Each OneDir in objASD
  31. strFdName=Trim(OneDir.Name)
  32. '下面所列的文件夹不生成在列表中(系统文件或者隐藏文件)
  33. If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then
  34. OneDirName=xml_format(OneDir.Name) '对&进行转义
  35. objFxml.WriteLine("<DIR path="""&OneDirName&""">") '生成<DIR path="文件夹"></DIR>
  36. SDirName=DirName&""&OneDir.Name '下一个递归的地址
  37. Call xml_list(SDirName) '调用递归
  38. objFxml.WriteLine("</DIR>")
  39. End If '结束判断
  40. Next
  41. set objSF=objFS.Files
  42. For Each OneFile in objSF '列出文件
  43. objFxml.WriteLine("<file size="""&OneFile.size&""">"&OneFile.Name&"</file>") '生成<file>文件名</file>
  44. Next
  45. End Function
  46. '去掉XML不允许的字符
  47. Function xml_format(strDirName)
  48. strDirName=Replace(strDirName,"&","&") '把半角的&转化为&
  49. xml_format=strDirName
  50. End Function
  51. %
复制代码

本文地址: https://jiufei.net/bbs/thread-1493-1-1.html
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|合肥网站优化,合肥百度优化,合肥网络推广,合肥SEO优化论坛 ( 皖ICP备2022014487号-2 )

GMT+8, 2025-1-31 11:21 , Processed in 0.083492 second(s), 20 queries , File On.

Powered by jiufei X3.4

© 2008-2020 www.jiufei.net

快速回复 返回顶部 返回列表