<%@Language = "vbscript" codepage = "936"%>
<%
StartTime = timer () 'Deteksi Waktu Eksekusi Program
'##########################################################. ############################################################################################## ############################################################. ##############################################################################################
'┌────── teks acoran──── Chasan 4 Choll 4 Choll 4 Chack 4 Chsmoc olakkan
'│vibostudio semua hak dilindungi undang -undang
'└───── teksIL acocok dengan───── Chasanmirim tolasanarmaskan 4 Ch
'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) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Makenewsdir (FolderName) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CreateHtmlPage (fileName, FileData, C_MODE) menghasilkan file