เพื่อนที่ใช้ ASP ในการพัฒนาเว็บไซต์สามารถเรียนรู้จากฟังก์ชั่น ASP ของเขาเพื่ออำนวยความสะดวกในการเรียนรู้และปรับปรุงประสิทธิภาพการพัฒนา คัดลอกโค้ดดังนี้:
-
-
'Tianfeng ASP class v1.0 รวมฟังก์ชัน asp ทั่วไปเข้าไว้ด้วยกัน
'เทียนเฟิงสงวนลิขสิทธิ์
'QQ:76994859 อีเมล์:[email protected]
'ชื่อฟังก์ชันทั้งหมดมีดังนี้:
' StrLength(str) รับค่าความยาวของสตริง
' CutStr(str,strlen) การตัดความยาวสตริง
' CheckIsEmpty(tstr) ตรวจสอบว่าว่างเปล่าหรือไม่
' การทดสอบจำนวนเต็ม isInteger(para)
' CheckName(str) ตรวจสอบอักขระชื่อ
' ตรวจสอบรหัสผ่าน CheckPassword(str)
' CheckEmail(อีเมล) ตรวจสอบรูปแบบอีเมล
'Alert(msg,goUrl) ปรากฏขึ้นพร้อมท์กล่องโต้ตอบ
' ข้อความแสดงข้อผิดพลาด GoBack(Str1,Str2,isback)
' ข้อความแจ้งความสำเร็จในการดำเนินการ Suc(str1,str2,url)
' ChkPost() ตรวจพบว่าแบบฟอร์มถูกส่งไปนอกไซต์หรือไม่
' PSql() ป้องกันการฉีด sql
' FiltrateHtmlCode(Str) ป้องกันไม่ให้สร้าง HTML
' HtmlCode(str) กรอง HTML
'แทนที่html(tstr) ล้าง HTML'
'GetIP() รับ IP ไคลเอ็นต์
'GetBrowser รับข้อมูลเบราว์เซอร์ไคลเอ็นต์
' GetSystem รับระบบปฏิบัติการไคลเอนต์
'GetUrl() รับ URL ของหน้าปัจจุบันรวมทั้งพารามิเตอร์
'CURL() รับ URL ของหน้าปัจจุบัน
' GetExtend รับนามสกุลไฟล์
' CheckExist(table,fieldname,fieldcontent,isblur) ตรวจสอบว่ามีเนื้อหาของฟิลด์ในตารางอยู่หรือไม่
' GetNum(table,fieldname,resulttype,args) ตรวจจับจำนวนฟิลด์ในตาราง ค่าสูงสุด ค่าต่ำสุด ฯลฯ
' GetFolderSize(Folderpath) คำนวณขนาดของโฟลเดอร์
' GetFileSize(Filename) คำนวณขนาดของไฟล์
' IsObjInstalled(strClassString) ตรวจพบว่ามีการติดตั้งส่วนประกอบหรือไม่
'SendMail JMAILส่งเมล
'ResponseCookies เขียนคุกกี้'
' CleanCookies ล้างคุกกี้
' GetTimeover รับเวลาดำเนินการหน้าโปรแกรม
'การจัดรูปแบบขนาด FormatSize
'การจัดรูปแบบเวลา FormatTime
' ราศีได้รับราศี
' กลุ่มดาวได้รับกลุ่มดาว
-
คลาส Cls_fun
' `
'************************************************ * **
'ชื่อฟังก์ชัน: StrLength
'ฟังก์ชั่น: รับความยาวของสตริง (ตัวอักษรจีนคือ 2)
'พารามิเตอร์: str ---- เนื้อหาสตริง
'ค่าที่ส่งคืน: ความยาวสตริง'
'************************************************ * **
ฟังก์ชั่นสาธารณะ StrLength(str)
Dim Rep, เลนส์, i
ตั้งค่า rep=new regexp
ตัวแทน Global=true
ตัวแทน IgnoreCase=true
ตัวแทนรูปแบบ=[/u4E00-/u9FA5/uF900-/uFA2D]
สำหรับแต่ละ i ใน rep.Execute(str)
เลนส์=เลนส์+1
ต่อไป
ตั้งค่าตัวแทน = ไม่มีอะไร
เลนส์ = เลนส์ + เลน (str)
strLength=เลนส์
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: CutStr
'ฟังก์ชัน: ตัดความยาวของสตริง และแสดงวงรีหากเกินความยาว
'พารามิเตอร์: str ---- เนื้อหาสตริง
' strlen ------ ความยาวที่จะแสดง
'ค่าส่งคืน: เนื้อหาสตริงหลังการตัด'
'************************************************ * **
ฟังก์ชั่นสาธารณะ CutStr (str, strlen)
หรี่ l,t,i,c
ถ้า str= แล้ว
ตัดstr=
ออกจากฟังก์ชัน
สิ้นสุดถ้า
str=แทนที่(แทนที่(แทนที่(แทนที่(แทนที่(str, , ),,Chr(34)),>,>),<,<),|,|)
l=เลน(str)
เสื้อ=0
สำหรับ i=1 ถึง l
c=Abs(Asc(กลาง(str,i,1)))
ถ้า c>255 แล้ว
เสื้อ=t+2
อื่น
เสื้อ=t+1
สิ้นสุดถ้า
ถ้า t>=strlen แล้ว
cutstr=ซ้าย(str,i) & ...
ออกเพื่อ
อื่น
ตัดstr=str
สิ้นสุดถ้า
ต่อไป
cutstr=แทนที่(แทนที่(แทนที่(แทนที่(แทนที่(cutstr, , ),Chr(34),),>,>),<,<),|,|)
ฟังก์ชันสิ้นสุด
' ー ー ー ー ー 〜 ー ー ー การตรวจสอบซีรี่ส์ ー ー ー ー ー ー 〜 〜 〜 〜 〜 〜 〜 ー ー ー ー
'************************************************ * **
'ชื่อฟังก์ชัน: CheckIsEmpty
'ฟังก์ชัน: ตรวจสอบว่าว่างเปล่าหรือไม่'
'พารามิเตอร์: tstr ---- สตริง
'ค่าที่ส่งคืน: จริงไม่ว่างเปล่า เท็จว่างเปล่า
'************************************************ * **
ฟังก์ชั่นสาธารณะ CheckIsEmpty (tstr)
CheckIsEmpty=false
ถ้า IsNull(tstr) หรือ Tstr= ให้ออกจากฟังก์ชัน
Dim Str ใหม่
Str=Tstr
ตั้งค่าใหม่ = RegExp ใหม่
re.IgnoreCase = จริง
re.Global=จริง
str= แทนที่ (str, vbNewLine, )
str = แทนที่ (str, Chr (9), )
str = แทนที่ (str, , )
str = แทนที่ (str, , )
re.Pattern=<img(.[^>]*)>
str =re.แทนที่(Str,94kk)
re.Pattern=<(.[^>]*)>
Str=re.แทนที่(Str,)
ตั้งค่า Re=Nothing
ถ้า Str<> ดังนั้น CheckIsEmpty=true
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: isInteger
'ฟังก์ชัน: การทดสอบจำนวนเต็ม
'พารามิเตอร์: tstr ---- อักขระ
'ค่าที่ส่งคืน: จริงเป็นจำนวนเต็ม เท็จไม่ใช่จำนวนเต็ม
'************************************************ * **
ฟังก์ชั่นสาธารณะ isInteger (ย่อหน้า)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อ ถัดไป
ดิมสต
ดิม ล, ไอ
ถ้า isNUll(para) แล้ว
isInteger=เท็จ
ฟังก์ชั่นทางออก
จบถ้า
str=cstr(พารา)
ถ้า trim(str)= แล้ว
isInteger=เท็จ
ฟังก์ชั่นทางออก
จบถ้า
l=เลน(str)
สำหรับ i=1 ถึง l
ถ้า mid(str,i,1)>9 หรือ mid(str,i,1)<0 แล้ว
isInteger=เท็จ
ฟังก์ชั่นทางออก
จบถ้า
ต่อไป
เป็นจำนวนเต็ม=true
ถ้า err.number<>0 แสดงว่า err.clear
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: CheckName
'ฟังก์ชัน: ตรวจสอบอักขระชื่อ'
'พารามิเตอร์: str ---- สตริง
'ค่าที่ส่งคืน: จริงถูกต้อง เท็จไม่ถูกต้อง
'************************************************ * **
ชื่อตรวจสอบฟังก์ชันสาธารณะ(Str)
ชื่อเช็ค=true
ตัวแทนติ่ม ผ่าน
ตั้งค่าตัวแทน=RegExp ใหม่
Rep.Global=จริง
Rep.IgnoreCase=จริง
'จับคู่ตัวอักษร ตัวเลข ขีดล่าง ตัวอักษรจีน และต้องขึ้นต้นด้วยตัวอักษรหรือขีดล่าง หรือตัวอักษรจีน
รูปแบบตัวแทน=^[a-zA-Z_u4e00-/u9fa5][/w/u4e00-/u9fa5]+$
ตั้งค่าผ่าน=Rep.Execute(Str)
ถ้า pass.count=0 ดังนั้น CheckName=false
ตั้งค่าตัวแทน = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: ตรวจสอบรหัสผ่าน'
'ฟังก์ชัน: การยืนยันรหัสผ่าน'
'พารามิเตอร์: str ---- สตริง
'ค่าที่ส่งคืน: จริงถูกต้อง เท็จไม่ถูกต้อง
'************************************************ * **
รหัสผ่านตรวจสอบฟังก์ชันสาธารณะ(Str)
สลัวผ่าน
ตรวจสอบรหัสผ่าน=จริง
ถ้า Str <> แล้ว
ตัวแทนติ่ม
ตั้งค่าตัวแทน = RegExp ใหม่
ตัวแทน Global = True
Rep.IgnoreCase = จริง
'จับคู่ตัวอักษร ตัวเลข ขีดล่าง จุด'
รูปแบบตัวแทน=[a-zA-Z0-9_/.]+$
ผ่าน=การทดสอบตัวแทน(Str)
ตั้งค่า Rep=nothing
ถ้าไม่ผ่านก็ CheckPassword=false
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: CheckEmail
'ฟังก์ชัน: การตรวจจับรูปแบบอีเมล
'พารามิเตอร์: str ---- ที่อยู่อีเมล
'ค่าที่ส่งคืน: จริงถูกต้อง เท็จไม่ถูกต้อง
'************************************************ * **
ฟังก์ชั่นสาธารณะ CheckEmail(อีเมล)
ตรวจสอบอีเมล=true
ตัวแทนติ่ม
ตั้งค่าตัวแทน = RegExp ใหม่
ตัวแทนรูปแบบ=([/.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(/.([a-zA- Z0-9]){2,}){1,4}$
ผ่าน = rep.Test (อีเมล)
ตั้งค่าตัวแทน = ไม่มีอะไร
ถ้าไม่ผ่านให้ CheckEmail=false
สิ้นสุดฟังก์ชัน
' ー ー ー ー ー 〜 ー ー ー ข้อมูลพร้อมท์ ー ー ー ー ー ー 〜 〜 〜 〜 〜 〜 〜 ー ー ー ー ー
'************************************************ * **
'ชื่อฟังก์ชั่น: การแจ้งเตือน
'ฟังก์ชั่น: ป๊อปอัปกล่องโต้ตอบพร้อมท์
'พารามิเตอร์: msg ---- ข้อมูลกล่องโต้ตอบ
' gourl ---- จะหันไปที่ไหนหลังจากแจ้ง
'มูลค่าที่ส่งคืน: ไม่มี'
'************************************************ * **
การแจ้งเตือนฟังก์ชันสาธารณะ(msg,goUrl)
msg = แทนที่(msg,',/')
ถ้า goUrl= จากนั้น
goUrl=history.go(-1);
อื่น
goUrl=window.location.href='&goUrl&'
สิ้นสุด ถ้า
Response.Write (<script language=JavaScript type=text/javascript>&vbNewLine&alert(' & msg & ');&goUrl&vbNewLine&</script>)
การตอบสนองสิ้นสุด
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชั่น: GoBack
'ฟังก์ชัน: พร้อมท์ข้อความแสดงข้อผิดพลาด'
'พารามิเตอร์: str1 ---- ชื่อพร้อมท์ข้อมูล
' str2 ---- เนื้อหาแจ้งข้อมูล
'isback ---- ไม่ว่าจะแสดงผลตอบแทน
'มูลค่าที่ส่งคืน: ไม่มี'
'************************************************ * **
ฟังก์ชั่นสาธารณะ GoBack (Str1, Str2, isback)
ถ้า Str1= ดังนั้น Str1=ข้อความแสดงข้อผิดพลาด
ถ้า Str2= ดังนั้น Str2=กรุณากรอกข้อมูลในช่องที่ต้องกรอกทั้งหมด
ถ้า isback= แล้ว
Str2=Str2& <a href=javascript:history.go(-1)>กลับไปเติมเงิน</a></li>
อื่น
Str2=Str2
สิ้นสุดถ้า
Response.Write<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color : white;font-size:14px;พื้นหลัง:#799AE1;พื้นหลัง:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;พื้นหลัง:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>×</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
การตอบสนองสิ้นสุด
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: Suc
'ฟังก์ชัน: ข้อมูลแจ้งความสำเร็จ'
'พารามิเตอร์: str1 ---- ชื่อพร้อมท์ข้อมูล
' str2 ---- เนื้อหาแจ้งข้อมูล
' url ---- ที่อยู่ผู้ส่ง
'มูลค่าที่ส่งคืน: ไม่มี'
'************************************************ * **
ฟังก์ชั่นสาธารณะ Suc(str1,str2,url)
ถ้า str1= ดังนั้น Str1=การดำเนินการสำเร็จ
ถ้า str2= ดังนั้น Str2=การดำเนินการนี้เสร็จสมบูรณ์!
ถ้า url= ดังนั้น url=javascript:history.go(-1)
str2=str2& <a href=&url& >กลับไปจัดการต่อ</a>
Response.Write<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color : white;font-size:14px;พื้นหลัง:#799AE1;พื้นหลัง:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;พื้นหลัง:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>√</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
ฟังก์ชันสิ้นสุด
' ー ー ー ー ー ー ー ー ー การจัดการอย่างปลอดภัย ー ー ー ー ー ー 〜 〜 〜 〜 〜 〜 〜 ー ー ー ー
'************************************************ * **
'ชื่อฟังก์ชั่น: ChkPost
'ฟังก์ชัน: ห้ามส่งแบบฟอร์มนอกไซต์'
'ค่าตอบแทน: จริงสำหรับการส่งนอกสถานที่, เท็จสำหรับการส่งนอกสถานที่
'************************************************ * **
ฟังก์ชั่นสาธารณะ ChkPost()
หรี่ url1, url2
ช่องโพสต์=true
url1=Cstr(Request.ServerVariables(HTTP_REFERER))
url2=Cstr(Request.ServerVariables(SERVER_NAME))
ถ้ากลาง(url1,8,Len(url2))<>url2 แล้ว
chkpost=false
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
'************************************************ * **
'ชื่อฟังก์ชัน: PSql
'ฟังก์ชัน: ป้องกันการฉีด SQL'
'ค่าที่ส่งคืน: หากว่างเปล่า จะไม่มีการเติมเข้าไป หากไม่ว่างเปล่า จะถูกฉีด และอักขระที่ฉีดจะถูกส่งกลับ'
'************************************************ * **
ฟังก์ชั่นสาธารณะ PSql()
พีเอสเคแอล=
badwords= 'anti' anti; anti และ anti exec anti insert anti เลือก anti update anti ลบ anti count anti * anti % anti chr anti mid anti master anti ตัด anti char anti ประกาศ anti |
badword=split(คำไม่ดี,การป้องกัน)
ถ้า Request.Form<> จากนั้น
สำหรับแต่ละ TF_Post ในแบบฟอร์มคำขอ
สำหรับ i=0 ถึง Ubound(badword)
ถ้า Instr(LCase(Request.Form(TF_Post)),badword(i))>0 แล้ว
Psql=คำที่ไม่ดี(i)
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
ต่อไป
ต่อไป
สิ้นสุดถ้า
ถ้า Request.QueryString<> จากนั้น
สำหรับแต่ละ TF_Get ใน Request.QueryString
สำหรับ i=0 ถึง Ubound(badword)
ถ้า Instr(LCase(Request.QueryString(TF_Get)),badword(i))>0 จากนั้น
Psql=คำที่ไม่ดี(i)
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
ต่อไป
ต่อไป
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: FiltrateHtmlCode
'ฟังก์ชั่น: ป้องกันการสร้างโค้ด html'
'พารามิเตอร์: str ---- สตริง
'************************************************ * **
ฟังก์ชั่นสาธารณะ FiltrateHtmlCode(Str)
ถ้าไม่ใช่ isnull(str) และ str<> แล้ว
Str=แทนที่(Str,Chr(9),)
Str=แทนที่(Str,|,|)
Str=แทนที่(Str,chr(39),')
Str=แทนที่(Str,<,<)
Str=แทนที่(Str,>,>)
Str = แทนที่ (str, CHR (13),)
Str = แทนที่ (str, CHR (10),)
FiltrateHtmlCode=Str
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: HtmlCode
'ฟังก์ชัน: กรองแท็ก Html'
'พารามิเตอร์: str ---- สตริง
'************************************************ * **
ฟังก์ชั่นสาธารณะ HtmlCode(str)
ถ้าไม่ใช่ isnull(str) และ str<> แล้ว
str = แทนที่ (str, >, >)
str = แทนที่ (str, <, <)
str = แทนที่ (str, CHR (32), )
str = แทนที่ (str, CHR (9), )
str = แทนที่ (str, CHR (34), )
str = แทนที่ (str, CHR (39), ')
str = แทนที่ (str, CHR (13), )
str = แทนที่ (str, CHR (10), )
str = แทนที่ (str, สคริปต์, สคริปต์)
HtmlCode = str
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: แทนที่html
'ฟังก์ชัน: ล้าง html'
'พารามิเตอร์: tstr ---- สตริง
'************************************************ * **
ฟังก์ชั่นสาธารณะแทนที่html(tstr)
Dim Str ใหม่
Str=Tstr
ตั้งค่าใหม่ = RegExp ใหม่
re.IgnoreCase = จริง
re.Global=จริง
re.Pattern=<(p|//p|br)>
Str=re.แทนที่(Str,vbNewLine)
re.Pattern=<img.[^>]*src(=| )(.[^>]*)>
str=re.replace(str,[img]$2[/img])
re.Pattern=<(.[^>]*)>
Str=re.แทนที่(Str,)
ตั้งค่า Re=Nothing
แทนที่html=Str
ฟังก์ชันสิ้นสุด
'------------รับข้อมูลเกี่ยวกับไคลเอนต์และเซิร์ฟเวอร์------------------
'************************************************ * **
'ชื่อฟังก์ชัน: GetIP
'ฟังก์ชั่น: รับที่อยู่ IP ของลูกค้า'
'ค่าส่งคืน: ที่อยู่ IP ของลูกค้า
'************************************************ * **
ฟังก์ชั่นสาธารณะ GetIP()
อุณหภูมิสลัว
Temp = Request.ServerVariables (HTTP_X_FORWARDED_FOR)
ถ้า Temp = หรือ isnull(Temp) หรือ isEmpty(Temp) ดังนั้น Temp = Request.ServerVariables(REMOTE_ADDR)
ถ้า Instr(Temp,')>0 ดังนั้น Temp=0.0.0.0
GetIP=อุณหภูมิ
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: GetBrowser
'ฟังก์ชั่น: รับข้อมูลเบราว์เซอร์ไคลเอนต์
'ค่าส่งคืน: ข้อมูลเบราว์เซอร์ไคลเอนต์'
'************************************************ * **
ฟังก์ชั่นสาธารณะ GetBrowser()
ข้อมูล=Request.ServerVariables(HTTP_USER_AGENT)
ถ้า Instr(info,NetCaptor 6.5.0)>0 แล้ว
เบราว์เซอร์=NetCaptor 6.5.0
elseif Instr(info,MyIe 3.1)>0 แล้ว
เบราว์เซอร์ = MyIe 3.1
elseif Instr(info,NetCaptor 6.5.0RC1)>0 แล้ว
เบราว์เซอร์=NetCaptor 6.5.0RC1
elseif Instr(info,NetCaptor 6.5.PB1)>0 แล้ว
เบราว์เซอร์ = NetCaptor 6.5.PB1
elseif Instr(info,MSIE 5.5)>0 แล้ว
เบราว์เซอร์ = Internet Explorer 5.5
elseif Instr(info,MSIE 6.0)>0 แล้ว
เบราว์เซอร์ = Internet Explorer 6.0
elseif Instr(info,MSIE 6.0b)>0 แล้ว
เบราว์เซอร์=Internet Explorer 6.0b
elseif Instr(info,MSIE 5.01)>0 แล้ว
เบราว์เซอร์=Internet Explorer 5.01
elseif Instr(info,MSIE 5.0)>0 แล้ว
เบราว์เซอร์=Internet Explorer 5.00
elseif Instr(info,MSIE 4.0)>0 แล้ว
เบราว์เซอร์ = Internet Explorer 4.01
อื่น
เบราว์เซอร์ = อื่น ๆ
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: GetSystem
'ฟังก์ชัน: รับระบบปฏิบัติการไคลเอ็นต์'
'ค่าตอบแทน: ระบบปฏิบัติการไคลเอนต์
'************************************************ * **
ฟังก์ชัน GetSystem()
ข้อมูล=Request.ServerVariables(HTTP_USER_AGENT)
ถ้า Instr(info,NT 5.1)>0 แล้ว
ระบบ=วินโดว์ XP
elseif Instr(info,Tel)>0 แล้ว
ระบบ=เทเลพอร์ต
elseif Instr(info,webzip)>0 แล้ว
system=webzip
elseif Instr(info,flashget)>0 แล้ว
system=flashget
elseif Instr(ข้อมูล,ออฟไลน์)>0 แล้ว
ระบบ=ออฟไลน์
elseif Instr(info,NT 5)>0 แล้ว
ระบบ=วินโดว์ 2000
elseif Instr(info,NT 4)>0 แล้ว
ระบบ=วินโดว์ NT4
elseif Instr(info,98)>0 แล้ว
ระบบ=วินโดว์ 98
elseif Instr(info,95)>0 แล้ว
ระบบ=วินโดว์ 95
elseif instr(info,unix) หรือ instr(info,linux) หรือ instr(info,SunOS) หรือ instr(info,BSD) แล้ว
system=เหมือนยูนิกซ์
elseif instr(thesoft,Mac) แล้ว
ระบบ=แมค
อื่น
ระบบ=อื่นๆ
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: GetUrl
'ฟังก์ชั่น: รับ URL รวมถึงพารามิเตอร์'
'ค่าที่ส่งคืน: รับ URL รวมถึงพารามิเตอร์
'************************************************ * **
ฟังก์ชั่นสาธารณะ GetUrl()
Dim strTemp
strTemp=Request.ServerVariables(Script_Name)
ถ้า Trim(Request.QueryString)<> จากนั้น
strTemp=strTemp&?
สำหรับแต่ละรายการ M_item ใน Request.QueryString
strTemp=strTemp&M_item&=&Server.UrlEncode(ตัดแต่ง(Request.QueryString(&M_item&)))
ต่อไป
สิ้นสุดถ้า
GetUrl=strTemp
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: CURl
'ฟังก์ชั่น: ฟังก์ชั่นรับ URL ของหน้าปัจจุบัน
'ค่าที่ส่งคืน: ฟังก์ชันของ URL ของหน้าปัจจุบัน
'************************************************ * **
ฟังก์ชั่นCURL()
Domain_Name = LCase (Request.ServerVariables (Server_Name))
Page_Name = LCase (Request.ServerVariables (Script_Name))
Quary_Name = LCase (Request.ServerVariables (Quary_String))
ถ้า Quary_Name = จากนั้น
CURL = http://&Domain_Name&Page_Name
อื่น
CURl = http://&Domain_Name&Page_Name&?&Quary_Name
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: GetExtend
'ฟังก์ชัน: รับนามสกุลไฟล์'
'พารามิเตอร์: ชื่อไฟล์ ---- ชื่อไฟล์'
'************************************************ * **
ฟังก์ชั่นสาธารณะ GetExtend (ชื่อไฟล์)
ทีเอ็มพีสลัว
ถ้าชื่อไฟล์<> แล้ว
tmp=mid(ชื่อไฟล์,instrrev(ชื่อไฟล์,.)+1,len(ชื่อไฟล์)-instrrev(ชื่อไฟล์,.))
tmp=LCase(tmp)
ถ้า instr(1,tmp,asp)>0 หรือ instr(1,tmp,php)>0 หรือ instr(1,tmp,php3)>0 หรือ instr(1,tmp,aspx)>0 แล้ว
getextend=txt
อื่น
getextend=tmp
สิ้นสุดถ้า
อื่น
getextend=
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
' `
'************************************************ * **
'ชื่อฟังก์ชัน: CheckExist
'ฟังก์ชัน: ตรวจสอบว่ามีเนื้อหาบางอย่างอยู่ในฟิลด์ใดฟิลด์หนึ่งในตารางบางตารางหรือไม่
'พารามิเตอร์: ตาราง ---- ชื่อตาราง
'ชื่อฟิลด์ ---- ชื่อฟิลด์
'เนื้อหาภาคสนาม ---- เนื้อหาภาคสนาม
' isblur ---- ไม่ว่าจะจับคู่คลุมเครือ
'ค่าที่ส่งคืน: ไม่มีเท็จ มีอยู่จริง
'************************************************ * **
ฟังก์ชั่น CheckExist (ตาราง, ชื่อฟิลด์, เนื้อหาฟิลด์, isblur)
CheckExist=เท็จ
ถ้า isblur=1 แล้ว
ตั้งค่า rsCheckExist=conn.execute (เลือก * จาก &table& โดยที่ &fieldname& เช่น '%&fieldcontent&%')
อื่น
ตั้งค่า rsCheckExist=conn.execute (เลือก * จาก &table& โดยที่ &fieldname&= '&fieldcontent&')
จบถ้า
ถ้าไม่ใช่ (rsCheckExist.eof และ rsCheckExist.bof) ดังนั้น CheckExist=true
rsCheckExist.ปิด
ตั้งค่า rsCheckExist=nothing
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: GetNum
'ฟังก์ชั่น: ตรวจจับตัวเลข ค่าสูงสุดหรือต่ำสุดของฟิลด์บางฟิลด์ในตาราง
'พารามิเตอร์: ตาราง ---- ชื่อตาราง
'ชื่อฟิลด์ ---- ชื่อฟิลด์
'resulttype ---- ส่งคืนผลลัพธ์ (จำนวน/สูงสุด/นาที)
' args ---- การมีส่วนร่วมเพิ่มเติม (สั่งซื้อโดย ... )
'ค่าที่ส่งคืน: ค่าตัวเลข'
'************************************************ * **
ฟังก์ชัน GetNum(ตาราง,ชื่อฟิลด์,ประเภทผลลัพธ์,args)
GetFieldContentNum=0
ถ้า fieldname= แล้ว fieldname=*
sqlGetFieldContentNum=select &resulttype&(&fieldname&) จาก &table& args
ตั้งค่า rsGetFieldContentNum=conn.execute(sqlGetFieldContentNum)
ถ้าไม่ใช่ (rsGetFieldContentNum.eof และ rsGetFieldContentNum.bof) ดังนั้น GetFieldContentNum=rsGetFieldContentNum(0)
rsGetFieldContentNum.close
ตั้งค่า rsGetFieldContentNum=nothing
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: UpdateValue
'ฟังก์ชัน: อัปเดตค่าของฟิลด์บางฟิลด์ในตาราง
'พารามิเตอร์: ตาราง ---- ชื่อตาราง
'ชื่อฟิลด์ ---- ชื่อฟิลด์
'fieldvalue ---- ค่าที่อัปเดตแล้ว'
'ไอดี ----ไอดี'
' url ------- ที่อยู่เปลี่ยนเส้นทางหลังการอัปเดต
'มูลค่าที่ส่งคืน: ไม่มี'
'************************************************ * **
ฟังก์ชั่นสาธารณะ UpdateValue (ตาราง, ชื่อฟิลด์, ค่าฟิลด์, id, url)
conn.Execute(อัพเดต &table& set &fieldname&=&fieldvalue& โดยที่ id=&CLng(trim(id)))
ถ้า url<> ดังนั้น response.redirect url
ฟังก์ชันสิ้นสุด
' ー ー ー ー ー ー ー ー ข้อมูลเซิร์ฟเวอร์และการดำเนินงาน ー ー ー ー ー 〜 〜 ー ー ー ー ー ー ー
'************************************************ * **
'ชื่อฟังก์ชัน: GetFolderSize
'ฟังก์ชัน: คำนวณขนาดของโฟลเดอร์'
'พารามิเตอร์: ชื่อไฟล์ ---- เส้นทางโฟลเดอร์และชื่อโฟลเดอร์
'ค่าที่ส่งคืน: ค่าตัวเลข'
'************************************************ * **
ฟังก์ชั่นสาธารณะ GetFolderSize (เส้นทางโฟลเดอร์)
fso,d,ขนาด,ขนาดโชว์
ตั้งค่า fso=server.createobject (scripting.filesystemobject)
drvpath=server.mappath (โฟลเดอร์)
ถ้า fso.FolderExists (drvpath) แล้ว
ตั้ง d=fso.getfolder (drvpath)
ขนาด=ง.ขนาด
GetFolderSize=ขนาดรูปแบบ(ขนาด)
อื่น
GetFolderSize=Folderpath&Folder ไม่มีอยู่
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: GetFileSize
'ฟังก์ชัน: คำนวณขนาดของไฟล์'
'พารามิเตอร์: ชื่อไฟล์ ---- เส้นทางไฟล์และชื่อไฟล์
'ค่าที่ส่งคืน: ค่าตัวเลข'
'************************************************ * **
ฟังก์ชั่นสาธารณะ GetFileSize (ชื่อไฟล์)
Dim fso, drvpath, d, ขนาด, ขนาดการแสดง
ตั้งค่า fso=server.createobject (scripting.filesystemobject)
filepath=server.mappath (ชื่อไฟล์)
ถ้า fso.FileExists(filepath) แล้ว
ชุด d=fso.getfile (เส้นทางไฟล์)
ขนาด=ง.ขนาด
GetFileSize=ขนาดรูปแบบ(ขนาด)
อื่น
GetFileSize=FileName&File ไม่มีอยู่
สิ้นสุดถ้า
ตั้งค่า fso=nothing
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: IsObjInstalled'
'ฟังก์ชั่น: ตรวจสอบว่ามีการติดตั้งส่วนประกอบหรือไม่
'พารามิเตอร์: strClassString ---- ชื่อส่วนประกอบ
'ค่าที่ส่งคืน: ไม่มีเท็จ มีอยู่จริง
'************************************************ * **
ฟังก์ชั่นสาธารณะ IsObjInstalled (strClassString)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
IsObjInstalled=เท็จ
ข้อผิดพลาด=0
DimxTestObj
ตั้งค่า xTestObj=Server.CreateObject(strClassString)
ถ้า 0=Err แล้ว IsObjInstalled=True
ตั้งค่า xTestObj=ไม่มีอะไร
ข้อผิดพลาด=0
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: SendMail
'ฟังก์ชัน: ใช้ส่วนประกอบ Jmail เพื่อส่งอีเมล'
'พารามิเตอร์: ที่อยู่เซิร์ฟเวอร์ ---- ที่อยู่เซิร์ฟเวอร์
'เพิ่มผู้รับ ---- ที่อยู่ผู้รับ
' หัวเรื่อง ---- หัวเรื่อง
'เนื้อหา ---- เนื้อหาตัวอักษร
'ผู้ส่ง ---- ที่อยู่ของผู้ส่ง
'************************************************ * **
ฟังก์ชั่นสาธารณะ SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
ดิม เจเมล
ตั้งค่า JMail=Server.CreateObject(JMail.SMTPMail)
ถ้าทำผิด
SendMail= ไม่ได้ติดตั้งส่วนประกอบ JMail
ผิดพลาดชัดเจน
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
JMail.Logging=จริง
JMail.Charset=gb2312
JMail.ContentType = ข้อความ/html
JMail.ServerAddress=เมลเซิร์ฟเวอร์แอดเดรส
JMail.AddRecipient=AddRecipient
JMail.Subject=หัวเรื่อง
JMail.Body=เมลบอดี้
JMail.Sender=ผู้ส่ง
JMail.From = เมลจาก
JMail.ลำดับความสำคัญ=1
JMail.ดำเนินการ
ตั้ง JMail=nothing
ถ้าทำผิด
SendMail=err.คำอธิบาย
ผิดพลาดชัดเจน
อื่น
SendMail=ตกลง
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: ResponseCookies
'ฟังก์ชัน: เขียนคุกกี้'
'พารามิเตอร์: คีย์ ---- ชื่อคุกกี้
' ค่า ---- ค่าคุกกี้
' หมดอายุ ---- เวลาหมดอายุของคุกกี้
'************************************************ * **
คุกกี้ตอบสนองฟังก์ชั่นสาธารณะ (คีย์, ค่า, หมดอายุ)
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Response.Cookies(Key)=&ค่า&
ถ้าหมดอายุ<>0 ดังนั้น Response.Cookies(Key).Expires=date+Expires
Response.Cookies(Key).Path=DomainPath
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: CleanCookies
'ฟังก์ชัน: ล้างคุกกี้'
'************************************************ * **
ฟังก์ชั่นสาธารณะ CleanCookies()
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
สำหรับแต่ละ objCookie ในคำขอคุกกี้
Response.Cookies(objCookie)=
Response.Cookies(objCookie).Path=DomainPath
ต่อไป
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: GetTimeOver
'ฟังก์ชัน: ล้างคุกกี้'
'พารามิเตอร์: flag --- หน่วยเวลาที่แสดง 1=วินาที มิฉะนั้นจะเป็นมิลลิวินาที
'************************************************ * **
ฟังก์ชั่นสาธารณะ GetTimeOver (ตั้งค่าสถานะ)
DimEndTime
ถ้าแฟล็ก = 1 แล้ว
EndTime=FormatNumber(Timer() - เวลาเริ่มต้น, 6, จริง)
getTimeOver = เวลาดำเนินการของหน้านี้: & เวลาสิ้นสุด & วินาที
อื่น
EndTime=FormatNumber((Timer() - StartTime) * 1000, 3, จริง)
getTimeOver = เวลาดำเนินการของหน้านี้: & เวลาสิ้นสุด & มิลลิวินาที
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
' `
'************************************************ * **
'ชื่อฟังก์ชัน: FormatSize
'ฟังก์ชั่น: การจัดรูปแบบขนาด
'พารามิเตอร์: ขนาด ---- ขนาดที่จะจัดรูปแบบ
'************************************************ * **
ฟังก์ชั่นสาธารณะ FormatSize(dsize)
ถ้า dsize>=1073741824 แล้ว
FormatSize=Formatnumber(dsize/1073741824,2) & GB
elseif dsize>=1048576 แล้ว
FormatSize=Formatnumber(dsize/1048576,2) & MB
elseif dsize>=1024 แล้ว
FormatSize=Formatnumber(dsize/1024,2) & KB
อื่น
FormatSize=dsize & ไบต์
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: FormatTime
'ฟังก์ชัน: การจัดรูปแบบเวลา'
'พารามิเตอร์: DateTime ---- เวลาที่จะจัดรูปแบบ
'รูปแบบ ---- รูปแบบรูปแบบ
'************************************************ * **
ฟังก์ชั่นสาธารณะ FormatTime (DateTime, Format)
เลือกรูปแบบกรณี
กรณีที่ 1
FormatTime=&ปี(DateTime)&ปี&เดือน(DateTime)&เดือน&วัน(DateTime)&日
กรณีที่ 2
FormatTime=&เดือน(DateTime)&เดือน&วัน(DateTime)&日
กรณีที่ 3
FormatTime=&ปี(DateTime)&/&เดือน(DateTime)&/&วัน(DateTime)&
กรณีที่ 4
FormatTime=&เดือน(DateTime)&/&วัน(DateTime)&
กรณีที่ 5
FormatTime=&เดือน(DateTime)&เดือน&วัน(DateTime)&日&FormatDateTime(DateTime,4)&
กรณีที่ 6
temp=วันอาทิตย์ วันจันทร์ วันอังคาร วันพุธ วันพฤหัสบดี วันศุกร์ วันเสาร์
อุณหภูมิ = แยก (อุณหภูมิ ,,)
FormatTime=temp(วันธรรมดา(DateTime)-1)
กรณีอื่น
FormatTime=วันที่และเวลา
สิ้นสุดการเลือก
ฟังก์ชันสิ้นสุด
'--------------------เบ็ดเตล็ด--------------------
'************************************************ * **
'ชื่อฟังก์ชั่น: นักษัตร
'หน้าที่: ได้รับชีวิตและความตาย
'พารามิเตอร์: วันเกิด ---- วันเกิด
'************************************************ * **
ราศีฟังก์ชั่นสาธารณะ(วันเกิด)
ถ้า IsDate (วันเกิด) แล้ว
ปีเกิด=ปี(วันเกิด)
ZodiacList=array(ลิง ไก่ สุนัข หมู หนู วัว เสือ กระต่าย มังกร งู ม้า แกะ)
Zodiac=ZodiacList(ปีเกิด mod 12)
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * **
'ชื่อฟังก์ชัน: กลุ่มดาว
'ฟังก์ชั่น: รับกลุ่มดาว
'พารามิเตอร์: วันเกิด ---- วันเกิด
'************************************************ * **
กลุ่มดาวฟังก์ชั่นสาธารณะ(วันเกิด)
ถ้า IsDate (วันเกิด) แล้ว
ConstellationMon=เดือน(วันเกิด)
วันนักษัตร = วัน (วันเกิด)
ถ้า Len(ConstellationMon)<2 แล้ว ConstellationMon=0&ConstellationMon
ถ้า Len(ConstellationDay)<2 แล้ว ConstellationDay=0&ConstellationDay
MyConstellation=กลุ่มดาวจันทร์และวันกลุ่มดาว
ถ้า MyConstellation < 0120 แล้ว
constellation=<img src=images/Constellation/g.gif />elseif MyConstellation < 0219 แล้ว
constellation=<img src=images/Constellation/h.gif />elseif MyConstellation < 0321 แล้ว
constellation=<img src=images/Constellation/i.gif />elseif MyConstellation < 0420 แล้ว
constellation=<img src=images/Constellation/^.gif />elseif MyConstellation < 0521 แล้ว
constellation=<img src=images/Constellation/_.gif />elseif MyConstellation < 0622 แล้ว
constellation=<img src=images/Constellation/`.gif />elseif MyConstellation < 0723 แล้ว
constellation=<img src=images/Constellation/a.gif />elseif MyConstellation < 0823 แล้ว
constellation=<img src=images/Constellation/b.gif />elseif MyConstellation < 0923 แล้ว
constellation=<img src=images/Constellation/c.gif />elseif MyConstellation < 1024 แล้ว
constellation=<img src=images/Constellation/d.gif />elseif MyConstellation < 1122 แล้ว
constellation=<img src=images/Constellation/e.gif />elseif MyConstellation < 1222 แล้ว
constellation=<img src=images/Constellation/f.gif />elseif MyConstellation > 1221 แล้ว
constellation=<img src=images/Constellation/g.gif />สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'ชื่อฟังก์ชัน: หน้าอัตโนมัติ'
'ฟังก์ชั่น: การแบ่งหน้าอัตโนมัติของบทความยาว ๆ
'พารามิเตอร์: id, เนื้อหา, urlact
-
ฟังก์ชั่น AutoPage (เนื้อหา, พารามิเตอร์, pagevar)
contentStr=split(เนื้อหา,pagevar)
ขนาดหน้า = ubound (contentStr)
ถ้าขนาดหน้า>0 แล้ว
ถ้า Int(Request(page))= หรือ Int(Request(page))=0 จากนั้น
หน้าหมายเลข=1
อื่น
pageNum=คำขอ(หน้า)
จบถ้า
ถ้า pageNum-1<=pagesize แล้ว
AutoPage=AutoPage&contentStr(pageNum-1)
AutoPage=AutoPage&<div style=margin-top:10px;text-align:right;padding-right:15px;><font color=blue>หมายเลขหน้า:</font><font color=red>
สำหรับ i=0 ถึงขนาดหน้า
ถ้า i=pageNum-1 แล้ว
AutoPage=AutoPage&[<font color=red>&i+1&</font>]
อื่น
ถ้า instr(paramater,?)>0 แล้ว
AutoPage=AutoPage&<a href=¶mater&&page=&i+1&>[&(i+1)&]</a>
อื่น
AutoPage=AutoPage&<a href=¶mater&?page=&i+1&>[&(i+1)&]</a>
สิ้นสุดถ้า
สิ้นสุดถ้า
ต่อไป
AutoPage=เพจอัตโนมัติ&</font></div>
อื่น
AutoPage=เพจอัตโนมัติ&การดำเนินการที่ผิดกฎหมาย! เกินเลขหน้า! <a href=javascript:history.back(-1)><u>ย้อนกลับ</u></a>
สิ้นสุดถ้า
อื่น
หน้าอัตโนมัติ=เนื้อหา
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
จบคลาส
-