<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
StartTime=timer()' program execution time detection
'#############################################################################################################################################################################################################################################################
'┌───────────────────────┐
'│VIBOSTUDIO All Rights Reserved│
'└────────────────────┘
'Author:Vibo
'Email:[email protected]
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'OpenDB(vdata_url)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getIp()----------------------------------Get the real IP
'getIPAdress(sip)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IP2Num(sip)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'chkFrom()-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getsys() ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'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)------'Jmail component sends mail
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IsValidUrl(url)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getHTMLPage(filename)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckFile(FilePath)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckDir(FolderPath)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'MakeNewsDir(foldername)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CreateHTMLPage(filename,FileData,C_mode) generates file