หน้าแรก>บทช่วยสอนการเขียนโปรแกรมเครือข่าย>กวดวิชา ASP

การเปลี่ยน ASP และการบันทึกรหัสการใช้งานภาพระยะไกล

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-03-12 17:48:02

บทความนี้ส่วนใหญ่แบ่งปันรหัสฟังก์ชั่นสำหรับการเปลี่ยน ASP และบันทึกรูปภาพระยะไกล

ASP ใช้ฟังก์ชั่นเพื่อแทนที่และบันทึกรูปภาพระยะไกลให้สมบูรณ์ฟังก์ชั่นของการรวบรวมและแยกรูปภาพโดยอัตโนมัติตัดสินภาพซ้ำ ๆ ในฟังก์ชั่นวิเคราะห์เส้นทางลิงค์อย่างชาญฉลาดและแปลงเป็นที่อยู่ภาพสัมพัทธ์และบันทึกไว้ในไดเรกทอรีเว็บไซต์คุณ ระบุ ในเวลาเดียวกันรหัสนี้ยังเป็นฟังก์ชั่นการประมวลผลที่สำคัญในโปรแกรมการรวบรวม

  1. FunctionReplacesaveremoteFile (cronst, strinstalldir, strchanneldir, savetf, tisturl)
  2. ifconstr = $ false $ orconstr = orstrinstalldir = orstrchanneldir = จากนั้น
  3. แทนที่
  4. exitfunction
  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 (ข้อ จำกัด )
  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*.+?/. (gif | jpg | bmp | jpeg | psd | png | svg | dxf | wmf | tiff)
  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 (tempstr) = truethen
  41. แทนที่
  42. exitfunction
  43. endif
  44. TempStr = แทนที่ (Tempstr ,,)
  45. TempStr = แทนที่ (tempstr, ',)
  46. TempStr = แทนที่ (Tempstr ,,)
  47. DimremoteFileUrl, SavePath, PathTemp, Dtnow, strfilename, strfileType, arrsavefilename, Rannum, arr_path
  48. dtnow = ตอนนี้ ()
  49. ifsavetf = truethen
  50. savepath = strchanneldir &/& ปี (dtnow) & ขวา (0 & เดือน (dtnow), 2) &/
  51. Response.write Link Path: & SavePath &
  52. arr_path = split (savepath,/)
  53. pathtemp =
  54. fortempi = 0toubound (arr_path)
  55. iftempi = 0 แล้ว
  56. pathTemp = arr_path (0) &/
  57. ElesIftEmpi = ubound (arr_path) แล้ว
  58. ออกจาก
  59. อื่น
  60. pathTemp = pathTemp & arr_path (tempi) &/
  61. endif
  62. ifcheckdir (pathtemp) = falsethen
  63. ifmakenewsdir (pathtemp) = falsethen
  64. savetf = false
  65. ออกจาก
  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))) <1 จากนั้น
  75. tempstr = tempstr & $ array $ & temparray (temppi)
  76. endif
  77. ต่อไป
  78. tempstr = ขวา (Tempstr, len (tempstr) -7)
  79. temparray = split (tempstr, $ array $)
  80. 'แปลงที่อยู่ภาพสัมพัทธ์
  81. tempstr =
  82. fortempi = 0toubound (Temparray)
  83. tempstr = tempstr & $ array $ & definiteurl (temparray (temppi), tisturl)
  84. ต่อไป
  85. tempstr = ขวา (Tempstr, len (tempstr) -7)
  86. TempStr = แทนที่ (Tempstr, Chr (0),)
  87. Temparray2 = แยก (Tempstr, $ array $)
  88. tempstr =
  89. 'การแทนที่ภาพ/บันทึก
  90. setre = newregexp
  91. re.ignorecase = true
  92. re.global = true
  93. fortempi = 0toubound (Temparray2)
  94. RemoteFileUrl = Temparray2 (Tempi)
  95. ifremoteFileUrl <> $ false $ และ savetf = ภาพ truethen'save
  96. arrsavefilename = split (remotefileurl,.)
  97. strfileType = lcase (arrsavefilename (ubound (arrsavefilename))) 'ประเภทไฟล์
  98. ifstrFileType = aspOStrFileType = asaorstRfileType = aspxoRstRfileType = cerorstRfileType = cdxoRstRfileType = exeOrStrFileType = rarostRfileType = zipthen
  99. uploadfiles =
  100. แทนที่
  101. exitfunction
  102. endif
  104. สุ่ม
  105. rannum = int (900*rnd) +100
  106. strfilename = ปี (dtnow) & ขวา (0 & เดือน (dtnow), 2) & ขวา (0 & วัน (dtnow), 2) & ขวา (0 & ชั่วโมง (dtnow), 2) & ขวา (0 & นาที (dtnow), 2) & ขวา (0 & second (dtnow), 2) ) & ขวา (0 & second (dtnow), 2) & rannum &. & strfileType
  107. re.pattern = temparray (tempi)
  108. ifsaveremotefile (savepath & strfilename, remotefileurl) = truethen
  109. -
  110. pathtemp = savepath & strfilename
  111. cronst = re.replace (cronst, pathtemp)
  112. re.pattern = strinstalldir & strchanneldir &//
  113. uploadfiles = uploadfiles & | & re.replace (savepath & strfilename,)
  114. อื่น
  115. pathtemp = remotefileurl
  116. cronst = re.replace (cronst, pathtemp)
  117. 'uploadfiles = uploadfiles & | & remotefileurl
  118. endif
  119. elseifremotefileUrl <> $ talse $ และ savetf = falsethen 'ไม่ได้บันทึกภาพ
  120. re.pattern = temparray (tempi)
  121. cronst = re.replace (cronst, remotefileurl)
  122. uploadfiles = uploadfiles & | & remotefileurl
  123. endif
  124. ต่อไป
  125. setre = ไม่มีอะไร
  126. ifuploadfiles <> จากนั้น
  127. uploadFiles = ขวา (uploadfiles, len (uploadfiles) -1)
  128. endif
  129. แทนที่
  130. endfunction

ฟังก์ชั่นพารามิเตอร์คำอธิบาย:

ข้อ จำกัด : สตริงที่จะแทนที่

พารามิเตอร์: Savetf: ไม่ว่าจะบันทึกไฟล์เท็จไม่บันทึกจริงบันทึกจริง

พารามิเตอร์: Tisturl: ที่อยู่หน้าเว็บปัจจุบัน

ด้านบนเป็นรหัสสำหรับการแทนที่ ASP และการบันทึกฟังก์ชั่นรูปภาพระยะไกลฉันหวังว่ามันจะเป็นประโยชน์ต่อการเรียนรู้ของทุกคน

บทความที่เกี่ยวข้อง