Sekarang saya tidak akan menulis ASP lagi. Kali ini saya akan membagikan beberapa pustaka fungsi yang telah saya kumpulkan sebelumnya dengan Anda. Saya berharap ini akan memberikan inspirasi bagi pemula dan membantu veteran. Terima kasih atas dukungan Anda sebelumnya!
<%@Language = "vbscript" codepage = "936"%>
<%
StartTime = timer () 'Deteksi Waktu Eksekusi Program
'###########################################################
'┌─ Miss vibo───── tekstar - Miss padamans──ILirim tolasanasanasanaskanirim tolasan tolasanasanaskan
'│vibostudio semua hak dilindungi undang -undang
'└────── teks acoran──── Chasan 4 Choll 4 Choll 4 Chack 4 Chsmoc olakkan
'Penulis: Vibo
'Email: [email protected]
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'OpenDB(vdata_url)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getip () ---------------------------------- Dapatkan IP asli
'getIPAdress(sip)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IP2NUM (SIP) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CHKFROM () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getsys () ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Getbrowser () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Getsearcher () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Checkstr (BYVALCHKSTR) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Checksql () ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Uncheckstr (str) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Checkstr (str) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Htmlencode (pembatasan) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'DatetoStr (Datetime, ShowType) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Date2Chinese(iDate)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'lenStr(str)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CreateArr (str) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Showrsarr (rsarr) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'sendmail (to_email, from_email, from_name, mail_subject, mail_body, mail_htmlbody) ------' komponen jmail mengirim email
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IsvaluraS (URL) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getHTMLPage(filename)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Checkfile (FilePath) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckDir (FolderPath) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------