Direkomendasikan: Cara Menerapkan Kompresi RAR dan dekompresi kode sumber di ASP ASP mengimplementasikan kompresi RAR dan dekompresi kode sumber, dan dapat dilakukan hanya dengan satu file. ASP mengompres direktori atau file, mendekompres file RAR, menghapus file tertentu dan fungsi lainnya. Kode sumber ini nyaman bagi semua orang untuk mengembangkan sekunder dan membagikannya. Berikut ini adalah WinRar.asp Code:
Fungsi: Gunakan program ASP untuk menghasilkan format gambar untuk nomor telepon di halaman.
Berikut ini adalah cuplikan yang dikutip:
Berikut ini adalah konten yang dikutip:
<%
Hubungi com_createValidCode (request.querystring (tel))
Sub Com_CreateValidCode publik (PTEL)
'-------------------------------------------------------------------------------------------------------------------------
Response.expires = 0
Response.addheader Pragma, tanpa cache
Response.addheader cache-ctrol, tanpa cache
Response.contentType = gambar/BMP
Mengacak
Redup i, ii, iii, rndcolor, strlen, sql, rs
Const Codds = 5 '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Const str = 0123456789-
strlen = len (ptel)
rndcolor = chrb (cint (rnd*255)) & chrb (cint (rnd*255)) & chrb (cint (rnd*255))
'-------------------------------------------------------------------------------------------------------------------------
Redup vcolordata (1)
'vcolordata (0) = chrb (0) & chrb (0) & chrb (0)' ----- biru 0, hijau 0, merah 0 (hitam)
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'vcolordata (0) = chrb (197) & chrb (106) & chrb (49)' --- biru 0, hijau 0, merah 0 (hitam)
'vcolordata (1) = chrb (238) & chrb (210) & chrb (193)' ------- biru 250, hijau 236, merah 211 (biru muda)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------
Mengacak
Redup vcode ()
redim vcode (strlen-1)
Untuk i = 0 ke strlen-1
vcode (i) = instr (1, str, mid (ptel, i 1,1), 1) -1
Berikutnya
'-------------------------------------------------------------------------------------------------------------------------
Redup vnumberberdata (11)
'Verdana Font
Vnumberberdata (0) = 1111111111101111111111111111111111111111111111111111111111111111111
Vnumberberdata (1) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
VNumberberdata (2) = 1111111111101111111111111111111111111111111111111111111111111111111111111111111111111111111
Vnumberberdata (3) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
VNumberberdata (4) = 11111111111111111111111111111111111111111111111111111111110000111111111111
VNumberberdata (5) = 111111111000001111111111111111000011111111111111111111111111111111111111111111111111
VNumberberdata (6) = 11111111111011111111111.0001111111111111111111111111111111111111111111111111111
VNumberberdata (7) = 11111111110000011101111111111111111111111111111111111111111111111111111111111111
VNumberberdata (8) = 11111111111011111111111111111100011111111111111111111111111111111
VNumberberdata (9) = 111111111110111111111111111111111111111111111.0001111111111111111
Vnumberberdata (10) = 111111111111111111111111111111111111111100000.000111111111111111111111111111111111
VNumberberdata (11) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
'-------------------------------------------------------------------------------------------------------------------------
Response.binarywrite chrb (66) & chrb (77) & chrb (((strlen*8*10*3 54) mod 256)) & chrb (((strlen*8*10*10*54)/ 256) Mod 256) & Chrb ((((Strlen*8*10*3 54)/ 256)/ 256)/ 256)/ 86)/ 2)/ 256) & Chrb ((Strlen*8*10*3 54)/ 256)/ 256)
Chrb (0) & chrb (0) & chrb (54) & chrb (0) & chrb (0) & chrb (0) & chrb (40) & chrb (0) & _
Chrb (0) & chrb (0) & chrb (strlen*8) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (10) & chrb (0) & _
Chrb (0) & chrb (0) & chrb (1) & chrb (0)
'-------------------------------------------------------------------------------------------------------------------------
Response.binarywrite chrb (24) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & _
Chrb ((strlen*8*10*3) mod 256) & chrb (((strlen*8*10*3)/256) mod 256) & chrb (((((strlen*8*10*3)/256)/256) Mod 256) & chrb ((((strlen*8*10*3)/256)//256)/MOD ((((Strlen*8*10*3)/256)//256)//)
Chrb (196) & chrb (14) & chrb (0) & chrb (0) & chrb (196) & chrb (14) & chrb (0) & chrb (0) & _
Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0)
Untuk i = 9 hingga 0 langkah -1 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Untuk ii = 0 ke strlen-1 '--------- Setelah semua kata
Untuk III = 1 hingga 8 '---------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Jika rnd * 99 1 <codds maka '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Response.binarywrite rndcolor
Kalau tidak
Response.binarywrite vcolordata (mid (vnumberberdata (vcode (ii)), i * 8 iii, 1))
Akhiri jika
Berikutnya
Berikutnya
Berikutnya
Akhir sub
%>
Simpan kode di atas sebagai img.asp, dan masukkan <img src = img.asp? Tel = 010-000000> di lokasi di mana nomor telepon ditampilkan.
Bagikan: ASP Menerapkan Operasi Penambahan dan Pengurangan dalam Format Tanggal Pernyataan SQL Saya mengalami masalah di tempat kerja hari ini, dan saya perlu meminta demi waktu, tetapi hasil kueri ditampilkan secara tidak benar. Misalnya, untuk mengetahui anggota yang terdaftar di situs web antara 2007-10-12 dan 2007-10-31, setelah memilih tanggal, klik "Query & R