홈페이지>네트워크 프로그래밍 튜토리얼>ASP 튜토리얼

ASP 교체 및 저장 원격 이미지 구현 코드

저자：Eve Cole 업데이트 시간：2025-03-12 17:48:02

이 기사는 주로 ASP 교체 및 원격 사진 저장에 대한 기능 코드를 공유합니다

ASP는 기능을 사용하여 원격 그림을 교체하고 저장하고, 사진을 자동으로 수집하고 추출하는 기능을 완성하고, 기능의 반복 사진을 자동으로 판단하고, 링크 경로를 지능적으로 분석하고, 상대 사진 주소로 변환하고 웹 사이트 디렉토리에 저장합니다. 지정. 우리는 배경 편집기에서 기능을 사용하면이 코드가 자동으로 사진을 업로드합니다. 동시에이 코드는 컬렉션 프로그램에서 중요한 처리 기능입니다.

  1. functionReplacesaverEmoteFile (Constr, Strinstalldir, StrChannelDir, Savetf, Tisturl)
  2. ifconst = $ false $ orconst = orstrinstalldir = orstrchanneldir = 그런 다음
  3. replacesaveremotefile = constr
  4. 종료 기능
  5. endif
  6. dimtempstr, tempstr2, tempstr3, re, matches, match, temppi, temparray, temparray2
  7. setre = newRegexp
  8. re.ignorecase = true
  9. re.global = true
  10. re.pattern =]>
  11. setMatches = re.Execute (constrs)
  12. foreachMatchInMatches
  13. iftempstr <>
  14. tempstr = tempstr & $ array $ & match.value
  15. 또 다른
  16. tempstr = match.value
  17. endif
  18. 다음
  19. iftempstr <>
  20. temparray = split (tempstr, $ array $)
  21. tempstr =
  22. fortempi = 0toubound (temparray)
  23. re.pattern = src/s*=/s*.+?/.
  24. setMatches = re.Execute (temparray (tempi))
  25. foreachMatchInMatches
  26. iftempstr <>
  27. tempstr = tempstr & $ array $ & match.value
  28. 또 다른
  29. tempstr = match.value
  30. endif
  31. 다음
  32. 다음
  33. endif
  34. iftempstr <>
  35. re.pattern = src/s*=/s*
  36. tempstr = re.replace (tempstr,)
  37. endif
  38. setMatches = 아무것도
  39. setre = 아무것도
  40. iftempstr = orisnull (tempst) = truethen
  41. replacesaveremotefile = constr
  42. 종료 기능
  43. endif
  44. tempstr = replace (tempstr ,,)
  45. tempstr = replace (tempstr, ',)
  46. tempstr = replace (tempstr ,,)
  47. DimRemoteFileUrl, SavePath, PathTemp, Dtnow, strfilename, strfiletype, arrsavefilename, rannum, arr_path
  48. dtnow = now ()
  49. ifsavetf = truethen
  50. SavePath = StrChannelDir &/& Year (Dtnow) 및 오른쪽 (0 & Month (Dtnow), 2) 및///
  51. 응답. 링크 경로 작성 : & savepath &
  52. arr_path = split (savepath,/)
  53. pathtemp =
  54. FORTEMPI = 0TOUBOUND (ARR_PATH)
  55. iftempi = 0then
  56. pathtemp = arr_path (0) &/
  57. elseiftempi = ubound (arr_path)
  58. exitfor
  59. 또 다른
  60. pathtemp = pathtemp & arr_path (tempi) &/
  61. endif
  62. ifcheckdir (pathtemp) = falsethen
  63. ifmakenewsdir (pathtemp) = falsethen
  64. savetf = false
  65. exitfor
  66. endif
  67. endif
  68. 다음
  69. endif
  70. '중복 사진을 제거하십시오
  71. temparray = split (tempstr, $ array $)
  72. tempstr =
  73. fortempi = 0toubound (temparray)
  74. ifinstr (lcase (tempstr), lcase (temparray (temppi))) <1then
  75. tempstr = tempstr & $ array $ & temparray (temppi)
  76. endif
  77. 다음
  78. tempstr = right (tempstr, len (tempst) -7)
  79. temparray = split (tempstr, $ array $)
  80. '상대 사진 주소를 변환하십시오
  81. tempstr =
  82. fortempi = 0toubound (temparray)
  83. tempstr = tempstr & $ array $ & decompitiiteurl (temparray (temppi), tisturl)
  84. 다음
  85. tempstr = right (tempstr, len (tempst) -7)
  86. tempstr = replace (tempstr, chr (0),)
  87. temparray2 = split (tempstr, $ array $)
  88. tempstr =
  89. '이미지 교체/저장
  90. setre = newRegexp
  91. re.ignorecase = true
  92. re.global = true
  93. fortempi = 0toubound (temparray2)
  94. implefileurl = temparray2 (tempi)
  95. ifremotefileurl <> $ false $ andsavetf = truethen'save 이미지
  96. arrsavefilename = split (remotefileurl,.)
  97. strfiletype = lcase (arrsavefilename (ubound (arrsavefilename))) '파일 유형
  98. ifStrFileType = aspostrFileType = asaorstrFileType = aspxorstrFileType = cerorstrFileType = cdxorStrFileType = exeorstrFileType = raroStrFileType = ZipThen
  99. 업로드 파일 =
  100. replacesaveremotefile = constr
  101. 종료 기능
  102. endif
  104. 무작위 화
  105. rannum = int (900*rnd) +100
  106. strfilename = Year (dtnow) & right (0 & month (dtnow), 2) & 오른쪽 (0 & day (dtnow), 2) & 오른쪽 (0 & hour (dtnow), 2) 및 오른쪽 (0 & minute (dtnow), 2) & 오른쪽 (0 & second (dtnow), 2 ) & 오른쪽 (0 & Second (dtnow), 2) & rannum &. & strfiletype
  107. re.pattern = temparray (tempi)
  108. ifsaveremotefile (savepath & strfilename, implefileurl) = truethen
  109. '*****************************************
  110. pathtemp = savepath & strfilename
  111. constr = re.replace (constr, pathtemp)
  112. re.pattern = strinstalldir & strchanneldir &/
  113. uploadfiles = uploadfiles & | & re.replace (savepath & strfilename,)
  114. 또 다른
  115. pathtemp = remoteFileUrl
  116. constr = re.replace (constr, pathtemp)
  117. 'uploadfiles = uploadfiles & | & remotefileurl
  118. endif
  119. elseifremotefileurl <> $ false $ andsavetf = falsethen '은 이미지를 저장하지 않습니다
  120. re.pattern = temparray (tempi)
  121. ress = re.replace (constr, ormetfileurl)
  122. uploadfiles = uploadfiles & | & remotefileurl
  123. endif
  124. 다음
  125. setre = 아무것도
  126. 그런 다음 ifuploadfiles <>
  127. uploadfiles = right (uploadfiles, len (uploadfiles) -1)
  128. endif
  129. replacesaveremotefile = constr
  130. 최종 기능 장애

함수 매개 변수 설명 :

SPOST : 교체 할 문자열

매개 변수 : Savetf : 파일 저장 여부, False는 저장되지 않음, True Save

매개 변수 : tisturl : 현재 웹 페이지 주소

위의 것은 ASP 교체 및 원격 사진 기능을 저장하는 코드입니다. 모든 사람의 학습에 도움이되기를 바랍니다.

관련 기사