Posting ini akan mengumpulkan dan meminta fungsi fungsional umum yang paling komprehensif dalam aplikasi pemrograman ASP, semua orang adalah untuk saya, saya untuk semua orang :)
Selama Anda masing -masing memberikan satu atau dua fungsi umum klasik yang telah Anda kumpulkan sejak lama, saya pikir posting ini akan sangat membantu bagi banyak penggemar pemrograman ASP dan pekerja, dan juga akan menjadi serangkaian fungsi yang diperlukan untuk pemrograman ASP semua orang.
Periksa pustaka fungsi Anda sendiri dengan cepat dan lihat apakah Anda memiliki salah satu dari kami di sini?
Jika Anda menemukan bahwa ada satu atau dua fungsi yang sedikit diketahui di pustaka fungsi Anda, maka balas dalam format berikut.
Publikasikan format posting fungsi umum:
Salinan kode adalah sebagai berikut:
<%
'***********************************
'Fungsi: functionRndip (s)
'Parameter: S, empat header IP yang dihasilkan secara acak, seperti "218 $ 211 $ 61 $ 221"
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: pembuatan alamat IP acak, kembalikan nilai alamat IP acak
'Contoh: <%= rndip ("218 $ 211 $ 61 $ 221")%>
'***********************************
Functionrndip (s)
OnerrorresumeNext
DIMIP, IP1, IP2, IP3, A, B, C.
ifs = "" orubund (split (s, "$")) <> 3then
Response.write "Pengaturan parameter awalan IP salah, silakan kembali untuk memulai kembali program setelah mengatur ulang."
respons.end
endif
Mengacak
ip1 = cint (254*rnd)
ip2 = cint (254*rnd)
IP3 = CINT (254*rnd)
b = int ((3*rnd) +1)
a = split (s, "$")
c = a (b)
Rndip = (c & "." & Ip1 & "." & Ip2 & "." & Ip3)
Fungsi endfungsi
%>
Filter karakter ilegal yang biasa digunakan
Salinan kode adalah sebagai berikut:
<%
'***********************************
'Fungsi: gantibadchar (strchar)
'Argumen: strchar, karakter yang akan difilter
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Menyaring karakter ilegal yang biasa digunakan
'Contoh: <%= gantibadchar ("berisi'*contoh ')%>
'***********************************
FunctionReplacebadchar (STRCHAR)
ifstrchar = "" lalu
Gantibadchar = ""
kalau tidak
Gantibadchar = ganti (ganti (ganti (ganti (ganti (ganti (ganti (ganti (ganti (ganti (ganti (ganti (strchar, "'", ""), "*", ""), "?"? "),"? ")," "," ")," "," "," ")," "" "" ")," "" ""
endif
fungsi endfungsi
%>
Format Tampilan Karakter HTML
Salinan kode adalah sebagai berikut:
<%
'***********************************
'Fungsi: htmlencode (fString)
'Argumen: fString, string untuk diformat
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Format Tampilan Karakter HTML
'Contoh: <%= htmlencode (fString)%>
'***********************************
functionHtmlencode (FString)
IFNOTISNULL (FString) lalu
fString = ganti (fstring, ">", ">")
fString = ganti (fstring, "<", "<")