Direkomendasikan: Kumpulan fungsi yang berguna dalam pengembangan ASP (2) Kumpulan fungsi yang berguna dalam pengembangan ASP cukup berguna, harap simpan! '*************************************' menyaring hyperlink '***************************** Fungsi checkurl (byval chkstr) redup str: str = chkstr str = trim (str) if isnull (str) kemudian chktr
Kumpulan fungsi yang berguna dalam pengembangan ASP cukup berguna! Saya harap semua orang menyimpannya!
<%
'**************************************
'Cegah pengiriman eksternal
'**************************************
fungsi chkpost ()
Dim Server_V1, Server_V2
chkpost = false
server_v1 = cstr (request.serverVariable (http_referer))
server_v2 = cstr (request.serverVariable (server_name))
Jika mid (server_v1,8, len (server_v2)) <> server_v2 lalu
chkpost = false
kalau tidak
chkpost = true
akhiri jika
fungsi akhir
'**************************************
'Penyaringan IP
'**************************************
Function Matchip (IP)
pada kesalahan resume berikutnya
Matchip = false
Redup sip, splitip
Untuk setiap SIP di filterip
Sip = ganti (sip,*,/d*)
Splitip = split (sip,)
Redup, strmatchs, strip
Setel RE = RegExp baru
re.ignorecase = true
re.global = true
re.pattern = (& splitip (0) |). (& splitip (1) |). (& splitip (2) |). (& splitip (3) |)
Set Strmatchs = re.execute (IP)
strip = strmatchs (0) .submatches (0) &. & Strmatchs (0) .submatches (1) &. & strmatchs (0) .submatches (2) &. & strmatchs (0) .submatches (3)
jika strip = ip maka matchip = true: fungsi keluar
Atur strmatchs = tidak ada
Atur re = tidak ada
Berikutnya
fungsi akhir
'**************************************
'Dapatkan kode pendaftaran
'**************************************
Fungsi getCode ()
getCode = <img src = common/getCode.asp alt = style = margin-right: 40px;/>
Fungsi akhir
'**************************************
'Batasi jenis file
'**************************************
Fungsi isValidFile (file_type)
IsValidFile = false
Redup gname
Untuk setiap gname di up_filetype
Jika file_type = gname lalu
IsValidFile = true
Keluar untuk
Akhiri jika
Berikutnya
Fungsi akhir
'**************************************
'Deteksi apakah hanya bahasa Inggris dan angka yang disertakan
'**************************************
Function isValidchars (str)
Redup, chkstr
Setel RE = RegExp baru
re.ignorecase = true
re.global = true
re.pattern = [^_/. a-za-z/d]
IsValidChars = true
chkstr = re.replace (str,)
Jika chkstr <> str maka isValidChars = false
atur re = tidak ada
Fungsi akhir
'**************************************
'Deteksi apakah hanya bahasa Inggris dan angka yang disertakan
'**************************************
Fungsi isValidValue (arrayn, str)
IsValidValue = false
Redup gname
Untuk setiap gname di arrayn
Jika str = gname maka
IsValidValue = true
Keluar untuk
Akhiri jika
Berikutnya
Fungsi akhir
'**************************************
'Mendeteksi apakah nomor tersebut valid
'**************************************
Fungsi IsInteger (Para)
IsInteger = false
Jika tidak (isnull (paragril) atau trim (paragranya) = atau tidak isnumeric (paragel)) kemudian
IsInteger = true
Akhiri jika
Fungsi akhir
'**************************************
'Deteksi Nama Pengguna
'**************************************
Fungsi isValidusername (nama pengguna Byval)
pada kesalahan resume berikutnya
Redup i, c
Redup vusername
IsValidusername = true
Untuk i = 1 ke len (nama pengguna)
c = lcase (mid (nama pengguna, i, 1))
If instr (! <>?#^%@~ `&*() ;:+= ', c)> 0 lalu
IsValidusername = false
Fungsi keluar
Akhiri jika
Berikutnya
Untuk setiap nama vusern di register_username
Jika nama pengguna = nama vusern
IsValidusername = false
Keluar untuk
Akhiri jika
Berikutnya
Fungsi akhir
'**************************************
'Periksa apakah alamat email itu valid
'**************************************
Fungsi isvalidemail (email)
Nama redup, nama, i, c
IsValidemail = true
Nama = split (email, @)
Jika ubound (nama) <> 1 lalu
IsValidemail = false
Fungsi keluar
Akhiri jika
Untuk setiap nama dalam nama
Jika len (nama) <= 0 lalu
IsValidemail = false
Fungsi keluar
Akhiri jika
Untuk i = 1 ke len (nama)
c = lcase (mid, i, 1))
If instr (abcdefghijklmnopqrstuvwxyz_-., C) <= 0 dan bukan isnumeric (c) kemudian
IsValidemail = false
Fungsi keluar
Akhiri jika
Berikutnya
Jika dibiarkan (nama, 1) =. atau benar (nama, 1) =. Kemudian
IsValidemail = false
Fungsi keluar
Akhiri jika
Berikutnya
If instr (names (1) ,.) <= 0 lalu
IsValidemail = false
Fungsi keluar
Akhiri jika
i = len (nama (1)) - instrrev (nama (1) ,.)
Jika saya <> 2 dan saya <> 3 maka
IsValidemail = false
Fungsi keluar
Akhiri jika
If instr (email, ..)> 0 lalu
IsValidemail = false
Akhiri jika
Fungsi akhir
'**************************************
'Sorot kata kunci
'**************************************
Sorotan fungsi (Byval Strcontent, Byref Arraywords)
DIM INTCOUNTER, STRTEMP, INTPOS, Inttaglength, IntKeyWordLength, Bupdate
jika len (arraywords) <1 maka sorot = strcontent: fungsi keluar
Untuk intpos = 1 ke len (strcontent)
bupdate = false
Jika mid (strcontent, intpos, 1) = <lalu
Pada kesalahan resume berikutnya
inttaglength = (instr (intpos, strcontent,>, 1) - intpos)
Jika err maka
Sorotan = Strcontent
err.clear
akhiri jika
strtemp = strtemp & mid (strcontent, intpos, inttaglength)
intpos = intpos + intraglength
Akhiri jika
Jika arraywords <> lalu
IntKeywordLength = len (arraywords)
Jika LCase (Mid (Strcontent, IntPos, IntKeyWordLength)) = LCase (Arraywords) lalu
strtemp = strtemp & <span class = high1> & mid (strcontent, intpos, inteywordlength) & </span>
intpos = intpos + intkeywordlength - 1
bupdate = true
Akhiri jika
Akhiri jika
Jika bupdate = false maka
strtemp = strtemp & mid (strcontent, intpos, 1)
Akhiri jika
Berikutnya
Sorotan = strtemp
Fungsi akhir
Bagikan: Kumpulan fungsi yang berguna dalam pengembangan ASP (3) Kumpulan fungsi yang berguna dalam pengembangan ASP cukup berguna, harap simpan! '*************************************' Slice Content-split dengan baris '************************** Fungsi splitlines (konten byval, byval contentnums) redup ts, i, l contentnums = int (