โพสต์นี้จะรวบรวมและเรียกร้องฟังก์ชั่นการใช้งานทั่วไปที่ครอบคลุมที่สุดในแอปพลิเคชันการเขียนโปรแกรม ASP ทุกคนสำหรับฉันฉันมีไว้สำหรับทุกคน :)
ตราบใดที่คุณแต่ละคนให้ฟังก์ชั่นทั่วไปทั่วไปหนึ่งหรือสองฟังก์ชั่นที่คุณรวบรวมมาเป็นเวลานานฉันคิดว่าโพสต์นี้จะช่วยได้ดีมากสำหรับผู้ที่ชื่นชอบการเขียนโปรแกรม ASP และคนงานจำนวนมากและจะกลายเป็นชุดของฟังก์ชั่นที่จำเป็นสำหรับการเขียนโปรแกรม ASP ของทุกคน
ตรวจสอบไลบรารีฟังก์ชั่นของคุณเองอย่างรวดเร็วและดูว่าคุณมีพวกเราที่นี่หรือไม่?
หากคุณพบว่ามีฟังก์ชั่นเล็ก ๆ น้อย ๆ หนึ่งหรือสองฟังก์ชั่นในไลบรารีฟังก์ชั่นของคุณจากนั้นตอบกลับในรูปแบบต่อไปนี้
เผยแพร่รูปแบบโพสต์ฟังก์ชั่นทั่วไป:
การคัดลอกรหัสมีดังนี้:
-
-
'ฟังก์ชั่น: functionrndip (s)
'พารามิเตอร์: S, ส่วนหัว IP ที่สร้างขึ้นแบบสุ่มสี่แบบเช่น "218 $ 211 $ 61 $ 221"
'ผู้แต่ง: Alixi
'วันที่: 2007/7/12
'คำอธิบาย: การสร้างที่อยู่ IP แบบสุ่มส่งคืนค่าที่อยู่ IP แบบสุ่ม
'ตัวอย่าง: <%= rndip ("218 $ 211 $ 61 $ 221")%>
-
functionrndip (s)
onerrorresumenext
dimip, ip1, ip2, ip3, a, b, c
ifs = "" orubund (split (s, "$")) <> 3 จากนั้น
Response.write "การตั้งค่าพารามิเตอร์คำนำหน้า IP ไม่ถูกต้องโปรดกลับไปรีสตาร์ทโปรแกรมหลังจากรีเซ็ต"
Response.end
endif
สุ่ม
IP1 = CINT (254*RND)
IP2 = CINT (254*RND)
IP3 = CINT (254*RND)
b = int ((3*rnd) +1)
a = split (s, "$")
c = a (b)
rndip = (c & "." & ip1 & "." & ip2 & "." & ip3)
endfunction
-
ตัวกรองที่ใช้กันทั่วไปอักขระที่ผิดกฎหมาย
การคัดลอกรหัสมีดังนี้:
-
-
'ฟังก์ชั่น: แทนที่แบดคาร์ (strchar)
'อาร์กิวเมนต์: strchar, ตัวละครที่จะกรอง
'ผู้แต่ง: Alixi
'วันที่: 2007/7/12
'คำอธิบาย: การกรองอักขระที่ผิดกฎหมายที่ใช้กันทั่วไป
'ตัวอย่าง: <%= replactbadchar ("มี'*ตัวอย่าง ')%>
-
FunctionReplaceBadchar (strchar)
ifstrchar = "" แล้ว
แทนที่ badchar = ""
อื่น
แทนที่ badchar = แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (strchar, "" ""), "*", ""), "?"? "),"? ")," <"," ")," <"," ",", ")
endif
endfunction
-
รูปแบบการแสดงอักขระ HTML
การคัดลอกรหัสมีดังนี้:
-
-
'ฟังก์ชั่น: htmlencode (fstring)
'อาร์กิวเมนต์: fstring, สตริงที่จะจัดรูปแบบ
'ผู้แต่ง: Alixi
'วันที่: 2007/7/12
'คำอธิบาย: รูปแบบการแสดงอักขระ HTML
'ตัวอย่าง: <%= htmlencode (fstring)%>
-
functionhtmlencode (fstring)
ifnotisnull (fstring) จากนั้น
fstring = แทนที่ (fstring, ">", ">")
fstring = แทนที่ (fstring, "<", "<")