<% @ Lingots = "vbscript" codepage = "936"%>
<%
StartTime = Timer () 'Détection du temps d'exécution du programme
'############################################################## ################################################################ ############################################################### ################################################################
`` ┌fiques
'│vibostudio Tous droits réservés│
`` '' ''Aving
'Auteur: Vibo
'Courriel: [email protected]
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'OpenDB (vdata_url) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getip () ---------------------------------- Obtenez la vraie propriété intellectuelle
'getIPAdress(sip)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Ip2num (sip) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'chkfrom () -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getys () -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetBrowser () ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetSearcher()------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Checkstr (byValchkstr) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckSql()------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'UnCheckStr(Str)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Checkstr(Str)------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Htmlencode (Restring) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'DateToStr(DateTime,ShowType)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Date2Chinese(iDate)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'lenStr(str)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
`` CreatEarr (Str) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'ShowRsArr(rsArr)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'sendmail (to_email, from_email, from_name, mail_subject, mail_body, mail_htmlbody) ------' Le composant jmail envoie le courrier
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IsvalidUrl (URL) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Gethtmlpage (nom de fichier) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckFile(FilePath)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckDir (Folderpath) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'MakeNewsDir(foldername)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CreateHtmlPage (nom de fichier, filedata, c_mode) génère un fichier