Now I won’t write asp anymore. This time I will share some of the function libraries I have accumulated before with you. I hope it will give inspiration to beginners and help veterans. Thank you for your support in advance!
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
StartTime=timer()' program execution time detection
'###############################################################
'┌──VIBO───────────────────┐
'│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)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------