Beranda>Tutorial Pemrograman Jaringan>tutorial ASP

Penggantian ASP dan Menyimpan Kode Implementasi Gambar Jarak Jauh

Penulis：Eve Cole Waktu Pembaruan：2025-03-12 17:48:02

Artikel ini terutama membagikan kode fungsi untuk penggantian ASP dan menyimpan gambar jarak jauh.

ASP menggunakan fungsi untuk mengganti dan menyimpan gambar jarak jauh, melengkapi fungsi mengumpulkan dan mengekstraksi gambar secara otomatis, secara otomatis menilai gambar berulang dalam fungsi, menganalisis jalur tautan secara cerdas, dan mengubahnya menjadi alamat gambar relatif dan menyimpannya di direktori situs web Anda Ditentukan. Kami dapat menggunakan fungsi ini di editor latar belakang. Pada saat yang sama, kode ini juga merupakan fungsi pemrosesan penting dalam program pengumpulan.

  1. FunctionReplaceseMoteFile (Constr, Strinstalldir, Strchanneldir, Savetf, Tisturl)
  2. Ifconstr = $ false $ orconstr = orstrinstalldir = orstrchanneldir = lalu
  3. REPLACESAVEREMOTEFILE = CONTR
  4. Fungsi keluar
  5. Endif
  6. DiMTempstr, Temppstr2, 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 (constr)
  12. ForeachMatchInmatches
  13. Iftempstr <> lalu
  14. Tempstr = Tempstr & $ Array $ & Match.Value
  15. Kalau tidak
  16. Tempstr = Match.Value
  17. Endif
  18. Berikutnya
  19. Iftempstr <> lalu
  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 <> lalu
  27. Tempstr = Tempstr & $ Array $ & Match.Value
  28. Kalau tidak
  29. Tempstr = Match.Value
  30. Endif
  31. Berikutnya
  32. Berikutnya
  33. Endif
  34. Iftempstr <> lalu
  35. Re.pattern = src/s*=/s*
  36. Tempstr = re.replace (tempstr,)
  37. Endif
  38. SetMatches = tidak ada
  39. Setre = tidak ada
  40. Iftempstr = orisnull (tempstr) = truethen
  41. REPLACESAVEREMOTEFILE = CONTR
  42. Fungsi keluar
  43. Endif
  44. Tempstr = ganti (tempstr ,,)
  45. Tempstr = ganti (tempstr, ',)
  46. Tempstr = ganti (tempstr ,,)
  47. DimremoteFileUrl, savePath, pathtemp, dtnow, strfilename, strfileType, arrsavefilename, rannum, arr_path
  48. Dtnow = sekarang ()
  49. Ifsavetf = truethen
  50. SavePath = strchanneldir &/& tahun (dtnow) & kanan (0 & bulan (dtnow), 2) &/
  51. response.write link path: & 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) lalu
  58. Keluar
  59. Kalau tidak
  60. Pathtemp = pathtemp & arr_path (tempi) &/
  61. Endif
  62. Ifcheckdir (pathtemp) = falsethen
  63. Ifmakenewsdir (pathtemp) = falsethen
  64. Savetf = false
  65. Keluar
  66. Endif
  67. Endif
  68. Berikutnya
  69. Endif
  70. 'Hapus gambar duplikat
  71. Temparray = split (tempstr, $ array $)
  72. Tempstr =
  73. Fortempi = 0toubound (Temparray)
  74. Ifinstr (lcase (temppstr), lcase (temparray (temppi))) <1then
  75. Tempstr = Tempstr & $ Array $ & Temparray (Temppi)
  76. Endif
  77. Berikutnya
  78. Tempstr = kanan (tempstr, len (tempstr) -7)
  79. Temparray = split (tempstr, $ array $)
  80. 'Konversi alamat gambar relatif
  81. Tempstr =
  82. Fortempi = 0toubound (Temparray)
  83. Tempstr = Tempstr & $ Array $ & DefiniteUrl (Temparray (Temppi), Tisturl)
  84. Berikutnya
  85. Tempstr = kanan (tempstr, len (tempstr) -7)
  86. Tempstr = ganti (tempstr, chr (0),)
  87. Temparray2 = split (tempstr, $ array $)
  88. Tempstr =
  89. 'Penggantian Gambar/Simpan
  90. Setre = newregexp
  91. Re.ignorecase = true
  92. Re.global = true
  93. Fortempi = 0toubound (Temparray2)
  94. RemoteFileUrl = Temparray2 (Tempi)
  95. IfremoteFileUrl <> $ false $ andsavetf = gambar truethen'save
  96. Arrsavefilename = split (remoteFileUrl,.)
  97. strfileType = lcase (arrsavefilename (ubound (arrsaveFileName)))) 'jenis file
  98. Ifstrfiletype = aspoStrfileType = asAorStrFileType = aspxorStrFileType = cerorstrfileType = cdxorStrFileType = exeorstrfileType = raroStrFileType = zipthen
  99. Unggahfiles =
  100. REPLACESAVEREMOTEFILE = CONTR
  101. Fungsi keluar
  102. Endif
  104. Mengacak
  105. Rannum = int (900*rnd) +100
  106. StrfileName = Tahun (DTNow) & Kanan (0 & Bulan (Dtnow), 2) & kanan (0 & hari (DTNOW), 2) & kanan (0 & jam (DTNOW), 2) & kanan (0 & menit (DTNOW), 2) & kanan (0 & kedua (DTNOW), 2 ) & kanan (0 & kedua (dtnow), 2) & rannum &. & StrfileType
  107. Re.pattern = temparray (tempi)
  108. Ifsaveremotefile (savePath & strfileName, remoteFileUrl) = truethen
  109. '************************************
  110. PathTemp = SavePath & StrfileName
  111. Constr = re.replace (constr, pathtemp)
  112. Re.pattern = strinstalldir & strchanneldir &/
  113. Unggahfiles = unggahfile & | & re.replace (savePath & strfilename,)
  114. Kalau tidak
  115. PathTemp = RemoteFileUrl
  116. Constr = re.replace (constr, pathtemp)
  117. 'Unggahfiles = unggahanfiles & | & remoteFileUrl
  118. Endif
  119. ElseifremoteFileUrl <> $ false $ andsavetf = falsethen 'tidak menyimpan gambar
  120. Re.pattern = temparray (tempi)
  121. Constr = Re.replace (Constr, RemoteFileUrl)
  122. UploadFiles = UploadFiles & | & RemoteFileUrl
  123. Endif
  124. Berikutnya
  125. Setre = tidak ada
  126. IfUploadFiles <> lalu
  127. Unggahfiles = kanan (unggahfiles, len (unggahan) -1)
  128. Endif
  129. REPLACESAVEREMOTEFILE = CONTR
  130. Fungsi endfungsi

Parameter Fungsi Deskripsi:

Constr: String yang akan diganti

Parameter: SAVETF: Apakah akan menyimpan file, false tidak menyimpan, true save

Parameter: Tisturl: Alamat halaman web saat ini

Di atas adalah kode untuk penggantian ASP dan menyimpan fungsi gambar jarak jauh, saya harap ini akan membantu untuk pembelajaran semua orang.

Artikel Terkait