<%@Sprache = "vbscript" Codepage = "936"%>
<%
StartTime = Timer () 'Programmausführungszeiterkennung
############################################################################################################################################## zuichter ####################################################################################################################################################################################### zuichter ######################################################################################################################################### zuichter ####################################################################################################################################################################################### zuichter
'┌──ºeicht deskst
│Vibostudio Alle Rechte vorbehalten│
'└──ºeicht deskst
'Autor: Vibo
'E -Mail: [email protected]
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'OpendB (vdata_url) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Getip () ---------------------------------- Holen Sie sich die echte IP
'GetipaDress (SIP) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IP2Num(sip)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'chkfrom () --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getsys() ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetBrowser () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetSearcher () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
''
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckStr(byValChkStr)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
»ChecksQL () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Unreformer (str) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
»Checkstr (STR) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Htmlencode (resting) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'DateToStr (DateTime, ShowType) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Date2Chinese (idate) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Lenstr (STR) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CreateArr(str)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Showrsarr (rsarr) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'sendmail (to_email, from_email, from_name, mail_subject, mail_body, mail_htmlbody) ------' Jmail-Komponente sendet Mails
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IsValidUrl(url)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GethtmlPage (Dateiname) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
»Checkfile (Filepath) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckDir(FolderPath)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Makenewsdir (Folderame) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CreateHtmlPage (Dateiname, fehlgeschlagen, c_mode) generiert Datei