Set fungsi ASP
'========== DAPATKAN URL dengan Port, disarankan untuk menggunakan ======================
Functionget_scriptnameurl ()
Ifrequest.serverVariable ("server_port") = "80" Lalu
Get_scriptnameUrl = "http: //" & request.serverVariable ("server_name") & lcase (request.servervariable ("script_name")))
Kalau tidak
Get_scriptnameurl = "http: //" & request.serverVariable ("server_name") & ":" & request.servaribles ("server_port") & lcase (request.servariables ("script_name")))
Endif
Fungsi endfungsi
'====================== Fungsi untuk menyoroti kata -kata yang ditemukan dalam string dengan ekspresi reguler ===================================
FunctionBoldword (Strcontent, Word)
Ifword = "" lalu
Boldword = Strcontent
Fungsi keluar
Endif
dimobjregexp
Setobjregexp = newregexp
objregexp.ignorecase = true
objregexp.global = true
objregexp.pattern = "(" & word & ")"
strcontent = objregexp.replace (strcontent, "<fontcolor =" "#ff0000" "> <b> $ 1 </b> </font>")
Setobjregexp = tidak ada
Boldword = Strcontent
Fungsi endfungsi
'======================= DAPATKAN ALAMAT IP Pengguna saat ini =====================
Functiongetip ()
uip = request.serverVariable ("http_x_forwarded_for")
Ifuip = "" thenuip = request.serverVariables ("remote_addr")
Getip = uip
Fungsi endfungsi
'==================== DAPATKAN PATH SCRIPT PROGRAM SAAT INI ======================
FunctionScriptName ()
ScriptAddress = cstr (request.serverVariable ("script_name")) 'Dapatkan alamat saat ini
If (request.querystring <> "") lalu
ScriptAddress = scriptAddress & "?" & Server.htmlencode (request.querystring) 'Dapatkan alamat dengan parameter
Endif
Iflen (scriptAddress)> 250ThenscriptAddress = kiri (sciptaddress, 250) & "..." 'untuk pencegahan jalur, dengan maksimum 250 karakter
GetScriptName = scriptAddress
Fungsi endfungsi
'================ Return url dengan parameter, digunakan saat menyortir beberapa kata kunci ======================
'Parameter Disistus Dinas: Parameter yang perlu dihapus dari URL dapat berupa banyak, silakan pisahkan dengan koma di tengah.
FunctionkeepUrlStr (removelist)
ScriptAddress = cstr (request.serverVariable ("script_name")) & "?" 'Dapatkan alamat saat ini dan tambahkan "?" simbol
M_itemurl = ""
Foreachm_iteminrequest.querystring
Ifinstr (removelist, m_item) = 0then
M_itemurl = m_itemurl & m_item & "=" & server.urlencode (request.querystring ("" & m_item & "")) & "&"