<%@Idioma = "vBscript" Codepage = "936"%>
<%
Starttime = timer () 'Detección de tiempo de ejecución del programa
'########################################################. ##########################################################. #########################################################. ##########################################################.
'┌─── razón
'│Vibostudio Todos los derechos reservados│
'└─── razón
'Autor: Vibo
'Correo electrónico: [email protected]
'-----------------------------------------------------------------------------------------------
'OpenDB (VData_url) -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getip () ---------------------------------- Obtenga la IP real
'GetIpadress (SIP) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IP2NUM (SIP) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'chkfrom () -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getSys () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetBrowser () -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetSearcher () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------------------
'Checkstr (byvalchkstr) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckSql () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Uncheckstr (STR) -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Checkstr (str) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Htmlencode (restringir) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'DataToStr (DateTime, ShowType) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Date2Chinese (idate) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Lenstr (STR) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Createarr (STR) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Showrsarr (rsarr) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------
'sendmail (to_email, from_email, from_name, mail_subject, mail_body, mail_htmlbody) ------' componente jmail envía correo
'-----------------------------------------------------------------------------------------------
'IsValidurl (URL) -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'gethtmlpage (nombre de archivo) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckFile (FilePath) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckDir (FolderPath) -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'MakenewsDir (Nombre FolderN) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CreateHtmlPage (nombre de archivo, fileData, c_mode) genera archivo