ตอนนี้ฉันจะไม่เขียน ASP อีกต่อไป ครั้งนี้ฉันจะแบ่งปันไลบรารีฟังก์ชั่นบางอย่างที่ฉันได้สะสมมาก่อนกับคุณ ฉันหวังว่ามันจะให้แรงบันดาลใจแก่ผู้เริ่มต้นและช่วยเหลือทหารผ่านศึก ขอบคุณสำหรับการสนับสนุนล่วงหน้า!
<%@language = "vbscript" codePage = "936"%>
-
startTime = timer () 'การตรวจจับการดำเนินการโปรแกรม
-
'┌──Viboseg
'│Vibostudioสงวนลิขสิทธิ์│
'
'ผู้แต่ง: Vibo
'อีเมล: [email protected]
-
'Opendb (VDATA_URL) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getip () ------------------------------ รับ IP จริง
'Getipadress (SIP) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'ip2num (SIP) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'ChkFrom () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Getseys () ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetBrowser () --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GetSearcher () ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-
'CheckSstr (byvalchkstr) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'ChecksQl () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'uncheckstr (str) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckSstr (Str) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'HTMLENCODE (การยับยั้ง) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'DateToStr (DateTime, ShowType) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'date2chinese (idate) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Lenstr (Str) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'creatiarr (str) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'showrsarr (rsarr) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
'sendmail (to_email, from_email, from_name, mail_subject, mail_body, mail_htmlbody) ------' JMail Component ส่งอีเมล
-
'Isvalidurl (URL) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'GethtmlPage (ชื่อไฟล์) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CheckFile (FilePath) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Checkdir (FolderPath) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------