服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - ASP采集入库生成本地文件的几个函数

ASP采集入库生成本地文件的几个函数

2019-11-04 12:21asp教程网 ASP教程

ASP采集入库生成本地文件的几个函数

  1. '*****************************************************************  
  2. function  
  3. ' 作用 :利用流保存文件  
  4. ' 参数 :from(远程文件地址),tofile(保存文件位置)  
  5. '*****************************************************************  
  6. Private Function SaveFiles(byref from,byref tofile)  
  7. Dim Datas  
  8. Datas=GetData(from,0)  
  9. Response.Write "保存成功:"&formatnumber(len(Datas)/1024*2,2)&"Kb"  
  10. response.Flush  
  11. if formatnumber(len(Datas)/1024*2,2)>1 then  
  12. ADOS.Type = 1  
  13. ADOS.Mode =3  
  14. ADOS.Open  
  15. ADOS.write Datas  
  16. ADOS.SaveToFile server.mappath(tofile),2  
  17. ADOS.Close()  
  18. else  
  19. Response.Write "保存失败:文件大小"&formatnumber(len(imgs)/1024*2,2)&"Kb,小于1K"  
  20. response.Flush  
  21. end if  
  22. end function  
  23.  
  24. '*****************************************************************  
  25. function(私有)  
  26. ' 作用 :利用fso检测文件是否存在,存在返回true,不存在返回false  
  27. ' 参数 :filespes(文件位置)  
  28. '*****************************************************************  
  29. Private Function IsExists(byref filespec)   
  30. If (FSO.FileExists(server.MapPath(filespec))) Then  
  31. IsExists = True  
  32. Else  
  33. IsExists = False  
  34. End If  
  35. End Function  
  36.  
  37. '*****************************************************************  
  38. function(私有)  
  39. ' 作用 :利用fso检测文件夹是否存在,存在返回true,不存在返回false  
  40. ' 参数 :folder(文件夹位置)  
  41. '*****************************************************************  
  42. Private Function IsFolder(byref Folder)  
  43. If FSO.FolderExists(server.MapPath(Folder)) Then   
  44. IsFolder = True  
  45. Else  
  46. IsFolder = False  
  47. End If  
  48. End Function  
  49.  
  50. '*****************************************************************  
  51. function(私有)  
  52. ' 作用 :利用fso创建文件夹  
  53. ' 参数 :fldr(文件夹位置)  
  54. '*****************************************************************  
  55. Private Function CreateFolder(byref fldr)   
  56. Dim f  
  57. Set f = FSO.CreateFolder(Server.MapPath(fldr))  
  58. CreateFolder = f.Path  
  59. Set f=nothing  
  60. End Function  
  61.  
  62. '*****************************************************************  
  63. function(公有)  
  64. ' 作用 :保存文件,并自动创建多级文件夹  
  65. ' 参数 :fromurl(远程文件地址),tofiles (保存位置)  
  66. '*****************************************************************  
  67. Public Function SaveData(byref FromUrl,byref ToFiles)  
  68. ToFiles=trim(Replace(ToFiles,"//","/"))  
  69. flName=ToFiles  
  70. fldr=""  
  71. If IsExists(flName)=false then   
  72. GetNewsFold=split(flName,"/")  
  73. For i=0 to Ubound(GetNewsFold)-1  
  74. if fldr="" then  
  75. fldr=GetNewsFold(i)  
  76. else  
  77. fldr=fldr&"\"&GetNewsFold(i)  
  78. end if  
  79. If IsFolder(fldr)=false then  
  80. CreateFolder fldr  
  81. End if  
  82. Next  
  83. SaveFiles FromUrl,flName  
  84. End if  
  85. End function  
  86. '*****************************************************************  
  87. function(公有)  
  88. ' 作用 :取得远程数据  
  89. ' 参数 :url(远程文件地址),getmode (模式:0为二进制,1为中文编码)  
  90. '*****************************************************************  
  91. Public Function GetData(byref url,byref GetMode)   
  92. 'on error resume next   
  93. SourceCode = OXML.open ("GET",url,false)  
  94. OXML.send()   
  95. if OXML.readystate<>4 then exit function  
  96. if GetMode=0 then  
  97. GetData = OXML.responseBody  
  98. else  
  99. GetData = BytesToBstr(OXML.responseBody)  
  100. end if  
  101. if err.number<>0 then err.Clear  
  102. End Function  
  103.  
  104. '*****************************************************************  
  105. function(公有)  
  106. ' 作用 :格式化远程图片地址为本地位置  
  107. ' 参数 :imgurl(远程图片地址),imgfolder (本地图片目录),fristname(加入的前缀名称)  
  108. '*****************************************************************  
  109. Public Function FormatImgPath(byref ImgUrl,byref ImgFolder,byref FristName,byref noimg)  
  110. strpath=""  
  111. ImgUrl=ImgUrl  
  112. if instr(ImgUrl,"Nophoto") or lenb(GetData(ImgUrl,0))<=0 then  
  113. strpath=noimg  
  114. Response.Write ""&strpath&"" &vbcrlf  
  115. else  
  116. if Instr(ImgUrl,".asp") then  
  117. strpath=FristName&"_"&Mid(ImgUrl, InStrRev(ImgUrl, "=")+1)&".jpg"  
  118. else  
  119. strpath=FristName&"_"&Mid(ImgUrl, InStrRev(ImgUrl, "/")+1)  
  120. end if  
  121. strpath = ImgFolder&"/"&strpath  
  122. strpath = Replace(strpath,"//","/")  
  123. if left(strpath,1)="/" then strpath=right(strpath,len(strpath)-1)  
  124. strpath = trim(strpath)  
  125. Response.Write ""&strpath&"" &vbcrlf  
  126. savedata ImgUrl,strpath  
  127. end if  
  128. FormatImgPath = strpath  
  129. End function 

延伸 · 阅读

精彩推荐