Теперь я больше не буду писать ASP. На этот раз я поделюсь некоторыми функциональными библиотеками, которые я накопил с вами ранее. Я надеюсь, что это вдохновляет начинающих и поможет ветеранам. Спасибо за вашу поддержку заранее!
<%@Language = "vbscript" codepage = "936"%>
<%
StartTime = timer () 'Обнаружение времени выполнения программы
'###############################################################
'┌-- -inviboíbkeyonbese
'│vibostudio все права защищены │
'└acindyacside
Автор: Vibo
«Электронная почта: [email protected]
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'OpenDB(vdata_url)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getip () ---------------------------------- Получите настоящий 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 отправляет почту
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'IsValidUrl(url)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getHTMLPage(filename)---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckFile(FilePath)--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckDir(FolderPath)-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------