返回列表 回复 发帖
猪猪

论坛-管理员

终身成就勋章优秀管理勋章核心成员
1#
打印
tT
发表于 2007-2-12 23:38 | 只看该作者

支持非80端口的文件绝对路径的获取脚本程序代码

信息来源：黑客基地

得到当前asp执行文件所在的绝对路径（支持带端口的绝对路径）以'/'结束　
在解决一些XML文档调用时有用．或应用到小偷程序中

程序如下
  1. //powered By Airzen
  2. //qq:39192170
  3. //e_mail:airzen@sohu.com
  4. //date:2004-12-03
  5. //转贴请保留作者信息

  7. FUNCTION GetFullPath()
  8. dim path,host_name,host_port,url_path
  9. path=request.ServerVariables("PATH_INFO")
  10. path=left(path,instrrev(path,"/"))
  11. host_name=request.ServerVariables("SERVER_NAME")
  12. host_port=request.ServerVariables("SERVER_PORT")
  13. if host_port<>"80" then host_name=host_name&":"&host_port
  14. GetFullPath="http://"&host_name&path
  15. End Function

  17. Function GetPage(url)
  18. IF url="" then exit function
  19. Set Retrieval = CreateObject("Microsoft.XMLHTTP")
  20. With Retrieval
  21. .Open "Get", url, False, "", ""
  22. .Send
  23. GetPage = BytesToBstr(.ResponseBody)
  24. End With
  25. Set Retrieval = Nothing
  26. End Function

  28. Function BytesToBstr(body)
  29. dim objstream
  30. set objstream = Server.CreateObject("adodb.stream")
  31. objstream.Type = 1
  32. objstream.Mode =3
  33. objstream.Open
  34. objstream.Write body
  35. objstream.Position = 0
  36. objstream.Type = 2
  37. objstream.Charset = "GB2312"
  38. BytesToBstr = objstream.ReadText
  39. objstream.Close
  40. set objstream = nothing
  41. End Function

  43. Function WriteToFile(fil,wstr)
  44. Dim fso, f
  45. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  46. Set f = fso.CreateTextFile(Server.MapPath(fil),True)
  47. f.Write wstr
  48. Set f = nothing
  49. Set fso = nothing
  50. End function

  52. Function ReadAllTextFile(filespec)
  53. Dim fso, f
  54. Set fso = CreateObject("Scripting.FileSystemObject")
  55. Set f = fso.OpenTextFile(server.MapPath(filespec), 1)
  56. ReadAllTextFile = f.ReadAll
  57. Set f=nothing
  58. Set fso=nothing
  59. End Function

  61. Function IsExists(filespec)
  62. Dim fso
  63. Set fso = CreateObject("Scripting.FileSystemObject")
  64. If (fso.FileExists(server.MapPath(filespec))) Then
  65. IsExists = True
  66. Else
  67. IsExists = False
  68. End If
  69. End Function


  72. MakeXML.ASP
  73. ----------------------------------------------------------------------------------------------------------
  74. <p><a href="?MakeFile=address.xml&SeedFile=listAddress.asp" >点击生成客户XML文件</a>（address.xml）</p>
  75. <p><a href="?MakeFile=brand.xml&SeedFile=listBrand.asp">点击生成产品XML文件</a>（brand.xml）</p>
  76. <!-- #include file="Module/func.asp"-->
  77. <%
  78. '///////////////////////////////////////
  79. '   MakeXML.asp
  80. 'coder   :airzen
  81. 'date :Nov 15,2004
  82. 'descript :MAKE THE XML FILE "Address.xml" "Brand.xml"
  83. 'email :airzen@sohu.com
  84. 'qq   :39192170
  85. 'Create Date:2004 11.5
  86. 'Modified History:2004 11.15
  87. '///////////////////////////////////////

  89. 'on error resume next
  90. SUB MakeXML(byVal make_fileName,byVal seed_ASPfile)
  91. IF IsExists(seed_ASPfile) THEN
  92.   url_path=GetFullPath()&seed_ASPfile
  93. 'response.write url_path

  95. make_content=GetPage(url_path)
  96. call WriteToFile(make_fileName,make_content)

  98. if err.number>0 then
  99.   response.write "<BR>File Generate Failed!"
  100. else
  101.   'response.write make_content
  102.   response.write "<BR>OK!! the File [ <font color=red>"&make_fileName&"</font> ] has Generated!"
  103. end if
  104. ELSE
  105. RESPONSE.WRITE("参数错误")
  106. END IF

  108. END SUB

  110. make_fileName=request.QueryString("MakeFile")
  111. seed_ASPfile=request.QueryString("SeedFile")
  112. IF request.ServerVariables("QUERY_STRING")>"" then
  113. CALL MakeXML(make_fileName,seed_ASPfile)
  114. END IF
  115. %>
复制代码
收藏 分享 评分
回复 引用

订阅 TOP

返回列表