แนะนำ: การรวบรวมฟังก์ชั่นที่เป็นประโยชน์ในการพัฒนา ASP (3) คอลเลกชันของฟังก์ชั่นที่มีประโยชน์ในการพัฒนา ASP นั้นมีประโยชน์มากโปรดเก็บไว้! '*************************************' การแยกเนื้อหาตามบรรทัด '************************************************************************ นาม
คอลเลกชันของฟังก์ชั่นที่มีประโยชน์ในการพัฒนา ASP นั้นมีประโยชน์มากโปรดเก็บไว้!
-
'ไฮเปอร์ลิงก์กรอง
-
ฟังก์ชั่น checkurl (byval chkstr)
Dim Str: str = chkstr
str = trim (str)
ถ้า isnull (str) แล้ว
checkurl =
ฟังก์ชั่นออก
สิ้นสุดถ้า
Dim re
ตั้งค่า re = ใหม่ regexp
re.ignorecase = true
re.global = true
re.pattern = (d) (ocument/.cookie)
str = re.replace (Str, 1ocument Cookie)
re.pattern = (d) (ocument/.write)
str = re.replace (str, 1ocument write)
re.pattern = (s) (สคริปต์ :)
str = re.replace (str, 1script)
re.pattern = (s) (สคริปต์)
str = re.replace (str, 1script)
re.pattern = (o) (bject)
str = re.replace (str, 1bject)
re.pattern = (a) (pplet)
str = re.replace (str, 1pplet)
re.pattern = (e) (mbed)
str = re.replace (str, 1mbed)
ตั้งค่า re = ไม่มีอะไร
str = แทนที่ (str,>,>)
str = แทนที่ (str, <, <)
checkurl = str
ฟังก์ชันสิ้นสุด
-
'ชื่อไฟล์ตัวกรอง
-
ฟังก์ชั่น fixname (upfileext)
ถ้า isempty (upfileext) จากนั้นออกจากฟังก์ชัน
fixname = ucase (upfileext)
fixname = แทนที่ (fixname, chr (0),)
fixname = แทนที่ (fixname,.,)
fixname = แทนที่ (fixname, asp,)
fixname = แทนที่ (fixname, asa,)
fixname = แทนที่ (fixname, aspx,)
fixname = แทนที่ (fixname, cer,)
fixname = แทนที่ (fixname, cdx,)
fixname = แทนที่ (fixname, htr,)
ฟังก์ชันสิ้นสุด
-
'ตัวกรองอักขระพิเศษ
-
ฟังก์ชั่น Checkstr (byval chkstr)
Dim Str: str = chkstr
ถ้า isnull (str) แล้ว
checkstr =
ฟังก์ชั่นออก
สิ้นสุดถ้า
str = แทนที่ (str, &, &)
str = แทนที่ (str, ',')
str = แทนที่ (str ,,)
Dim re
ตั้งค่า re = ใหม่ regexp
re.ignorecase = true
re.global = true
re.pattern = (w) (ที่นี่)
str = re.replace (str, 1here)
re.pattern = (s) (เลือก)
str = re.replace (str, 1elect)
re.pattern = (i) (nsert)
str = re.replace (str, 1nsert)
re.pattern = (c) (reate)
str = re.replace (str, 1 reate)
re.pattern = (d) (rop)
str = re.replace (str, 1rop)
re.pattern = (a) (lter)
str = re.replace (str, 1lter)
re.pattern = (d) (Elete)
str = re.replace (str, 1elete)
re.pattern = (u) (pdate)
str = re.replace (str, 1pdate)
re.pattern = (/s) (หรือ)
str = re.replace (str, 1or)
ตั้งค่า re = ไม่มีอะไร
checkstr = str
ฟังก์ชันสิ้นสุด
-
'คืนค่าอักขระพิเศษ
-
ฟังก์ชั่น uncheckstr (byval str)
ถ้า isnull (str) แล้ว
uncheckstr =
ฟังก์ชั่นออก
สิ้นสุดถ้า
str = แทนที่ (str, ',')
str = แทนที่ (str ,,)
Dim re
ตั้งค่า re = ใหม่ regexp
re.ignorecase = true
re.global = true
re.pattern = (w) (ที่นี่)
str = re.replace (str, 1here)
re.pattern = (s) (เลือก)
str = re.replace (str, 1elect)
re.pattern = (i) (nsert)
str = re.replace (str, 1nsert)
re.pattern = (c) (reate)
str = re.replace (str, 1 reate)
re.pattern = (d) (rop)
str = re.replace (str, 1rop)
re.pattern = (a) (lter)
str = re.replace (str, 1lter)
re.pattern = (d) (Elete)
str = re.replace (str, 1elete)
re.pattern = (u) (pdate)
str = re.replace (str, 1pdate)
re.pattern = (/s) (หรือ)
str = re.replace (str, 1or)
ตั้งค่า re = ไม่มีอะไร
str = แทนที่ (str, &, &)
uncheckstr = str
ฟังก์ชันสิ้นสุด
-
'แปลงรหัส HTML
-
ฟังก์ชั่น htmlencode (การยับยั้ง byval)
Dim str: str = การยับยั้ง
ถ้าไม่ใช่ isnull (str) แล้ว
str = แทนที่ (str,>,>)
str = แทนที่ (str, <, <)
str = แทนที่ (str, chr (9),)
str = แทนที่ (str, chr (32),)
str = แทนที่ (str, chr (39), ')
str = แทนที่ (str, chr (34),)
str = แทนที่ (str, chr (13),)
str = แทนที่ (str, chr (10), <br/>)
htmlencode = str
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'รหัสการแปลงผกผัน HTML
-
ฟังก์ชั่น htmldecode (การยับยั้ง byval)
Dim str: str = การยับยั้ง
ถ้าไม่ใช่ isnull (str) แล้ว
str = แทนที่ (str,>,>)
str = แทนที่ (str, <, <)
str = แทนที่ (str ,, chr (9))
str = แทนที่ (str ,, chr (32))
str = แทนที่ (str, ', Chr (39))
str = แทนที่ (str ,, ch (34))
str = แทนที่ (str ,, chr (13))
str = แทนที่ (str, <br/>, chr (10))
htmldecode = str
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'กู้คืนและตัวละคร
-
ฟังก์ชั่น Clearhtml (การยับยั้ง byval)
Dim str: str = การยับยั้ง
ถ้าไม่ใช่ isnull (str) แล้ว
str = แทนที่ (str, &, &)
clearhtml = str
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'ตัวกรอง textarea
-
ฟังก์ชั่น ubbfilter (การยับยั้ง byval)
Dim str: str = การยับยั้ง
ถ้าไม่ใช่ isnull (str) แล้ว
str = แทนที่ (str, </textarea>, </textarea>)
ubbfilter = str
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'ตัวกรองรหัส HTML
-
ฟังก์ชั่น editdehtml (เนื้อหา byval)
editDehtml = เนื้อหา
ถ้าไม่ใช่ isnull (editdehtml) แล้ว
editdehtml = uncheckstr (editdehtml)
editdehtml = แทนที่ (editdehtml, &, &)
editdehtml = แทนที่ (editdehtml, <, <)
editdehtml = แทนที่ (editdehtml,>,>)
editdehtml = แทนที่ (editdehtml, chr (34),)
editdehtml = แทนที่ (editdehtml, chr (39), ')
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'ฟังก์ชั่นการแปลงวันที่
-
ฟังก์ชั่น DatetOstr (DateTime, ShowType)
Dim DateMonth, วันที่, วันที่, dateminute, dateWeek, datesecond
Dim Fullweekday, Shortweekday, Fullmonth, Shortmonth, Timezone1, Timezone2
Timezone1 =+0800
Timezone2 =+08: 00
Fullweekday = Array (วันอาทิตย์, วันจันทร์, วันอังคาร, วันพุธ, วันศุกร์, วันเสาร์, วันเสาร์)
shortweekday = Array (Sun, Mon, Tue, Wed, Thu, Fri, Sat)
FullMonth = Array (มกราคม, กุมภาพันธ์, มีนาคม, เมษายน, พฤษภาคม, มิถุนายน, กรกฎาคม, สิงหาคม, กันยายน, ตุลาคม, พฤศจิกายน, ธันวาคม)
shortmonth = array (ม.ค. , ก.พ. , มี.ค. , เม.ย. , พฤษภาคม, มิ.ย. , ก.ค. , สิงหาคม, ก.ย. , ตุลาคม, พฤศจิกายน, ธ.ค. )
DateMonth = เดือน (DateTime)
วันที่ = วัน (วันที่)
DateHour = ชั่วโมง (DateTime)
Dateminute = นาที (DateTime)
dateWeek = วันธรรมดา (วันหยุด)
datesecond = วินาที (DateTime)
ถ้า len (dateMonth) <2 แล้ว dateMonth = 0 & dateMonth
ถ้า LEN (วันที่) <2 แล้ววันที่ = 0 & วันที่
ถ้า len (dateminute) <2 แล้ว dateminute = 0 & dateminute
เลือก case showtype
กรณี ymd
DateToStr = ปี (DateTime)-& DateMonth- & Dateday
กรณี ymd h: ia
Dim Dateampm
ถ้าวันที่> 12 แล้ว
DateHour = DateHour-12
dateampm = pm
อื่น
DateHour = DateHour
dateampm = am
สิ้นสุดถ้า
ถ้า LEN (DateHour) <2 แล้ว DateHour = 0 & DateHour
DateToStr = ปี (DateTime)-& DateMonth- & Dateay & DateHour: & DateMinute & Dateampm
กรณี ymd h: i: s
ถ้า LEN (DateHour) <2 แล้ว DateHour = 0 & DateHour
ถ้า len (datesecond) <2 ดังนั้น datesecond = 0 & datesecond
DateToStr = ปี (DateTime)-& DateMonth- & Dateay & DateHour: & DateMinute: & Datesecond
กรณี ymdhis
datesecond = วินาที (DateTime)
ถ้า LEN (DateHour) <2 แล้ว DateHour = 0 & DateHour
ถ้า len (datesecond) <2 ดังนั้น datesecond = 0 & datesecond
DateToStr = ปี (DateTime) & DateMonth & Dateay & DateHour & DateMinute & Datesecond
กรณี ym
dateToStr = Right (ปี (DateTime), 2) และ DateMonth
กรณี D
dateToStr = วันที่
กรณี ymd
DateToStr = Right (ปี (DateTime), 4) & DateMonth & Dateday
กรณี mdy
สลัวในเวลากลางวัน
เลือกกรณีวันที่
กรณีที่ 1
กลางวัน = เซนต์
กรณีที่ 2
กลางวัน = nd
กรณีที่ 3
กลางวัน = RD
กรณีอื่น
กลางวัน = TH
สิ้นสุดเลือก
DateToStr = FullMonth (DateMonth-1) และ Dayay & Dayend & Right (ปี (DateTime), 4)
กรณี w, dmy h: i: s
datesecond = วินาที (DateTime)
ถ้า LEN (DateHour) <2 แล้ว DateHour = 0 & DateHour
ถ้า len (datesecond) <2 ดังนั้น datesecond = 0 & datesecond
dateToStr = shortweekday (dateWeek-1), & วันที่ & ซ้าย (FullMonth (DateMonth-1), 3) & Right (ปี (DateTime), 4) & DateHour: & DateMinute: & Datesecond & Timezone1
กรณี ym-dth: i: s
ถ้า LEN (DateHour) <2 แล้ว DateHour = 0 & DateHour
ถ้า len (datesecond) <2 ดังนั้น datesecond = 0 & datesecond
DateToStr = ปี (DateTime)-& DateMonth- & Dateayt & DateHour: & DateMinute: & Datesecond & Timezone22
กรณีอื่น
ถ้า LEN (DateHour) <2 แล้ว DateHour = 0 & DateHour
DateToStr = ปี (DateTime)-& DateMonth- & Dateay & DateHour: & DateMinute
สิ้นสุดเลือก
ฟังก์ชันสิ้นสุด
-
'ฟังก์ชั่นการปนเปื้อน
-
Dim Firstshortcut ทางลัด
FIRSTSHORTCUT = FALSE
ฟังก์ชั่นหลายฟังก์ชัน (ตัวเลข, perpage, curpage, url_add, aname, style)
curpage = int (curpage)
numbers = int (ตัวเลข)
url หรี่
url = request.serverVariables (script_name) & url_add
multipage =
หน้าสลัว, ออฟเซ็ต, pagei
'ถ้า int (ตัวเลข)> int (perpage) แล้ว
หน้า = 9
ชดเชย = 4
หน้าสลัว, จากหน้า, topage
ถ้าตัวเลข mod cint (perpage) = 0 แล้ว
หน้า = int (ตัวเลข/perpage)
อื่น
หน้า = int (ตัวเลข/perpage) +1
สิ้นสุดถ้า
frompage = curpage-offset
topage = curpage+page-offset-1
ถ้าหน้า> หน้าแล้ว
FromPage = 1
topage = หน้า
อื่น
ถ้า FromPage <1 แล้ว
topage = curpage+1-frompage
FromPage = 1
if (topage-frompage) <หน้าและ (topage-frompage) <หน้าแล้ว topage = page
TOWAGE ELLSIF> หน้า
FromPage = Curpage-Pages +Topage
topage = หน้า
if (topage-frompage) <หน้าและ (topage-frompage) <หน้าจากนั้น FromPage = หน้าหน้า+1
สิ้นสุดถ้า
สิ้นสุดถ้า
multipage = <div class = page style = & style> <ul>
'ถ้า curpage <> 1 แล้ว multiPage = multiPage & <li class = pagel> <a href = & url & page = 1 class = pagelButton title = หน้าแรก> </a> </li>
multipage = multiPage <li class = pagenumber>
ถ้า curpage <> 1 จากนั้น multiPage = multiPage <a href = & urlPage = 1 title = title = หน้าแรกสไตล์ = การกำหนดข้อความ: ไม่มี> <</a> |
ถ้าไม่ใช่ FirstShortCut ทางลัด = AccessKey =, ทางลัดอื่น ๆ =
ถ้า curpage <> 1 แล้ว multiPage = multiPage <a href = & urlPage = & curpage-1 title = previous pagestyle = text-decoration: none; & ทางลัด> </a>
สำหรับ pagei = frompage ถึง topage
ถ้า pagei <> curpage แล้ว
MultiPage = MultiPage <a href = & urlpage = & pagei & aname> & pagei </a> |
อื่น
MultiPage = MultiPage <strong> & Pagei </strong>
ถ้า pagei <> pages แล้ว multiPage = multiPage |
สิ้นสุดถ้า
ต่อไป
ถ้าไม่ใช่ FirstShortcut ให้ทางลัด = AccessKey = ทางลัดอื่น =
ถ้า curpage <> หน้าแล้ว multipage = multipage <a href = & urlpage = & curpage+1 title = next pagestyle = การกำหนดข้อความ: ไม่มี & ทางลัด> </a>
ถ้า curpage <> หน้าแล้ว multiPage = multiPage <a href = & urlPage = & pages & aname title = หน้าสุดท้าย style = text-decoration: ไม่มี >> </a>
MultiPage = MultiPage </li>
'ถ้า int (หน้า)> int (หน้า) แล้ว
'multipage = multiPage & <li> ... </li> <li> <a href = & url & page = & pages & aname &> & pages & </a> </li>
'สิ้นสุดถ้า
'ถ้า curpage <> หน้าแล้ว multiPage = multiPage & <li class = pager> <a href = & url & page = & pages & aname & class = pagerbutton title = หน้าสุดท้าย> </a> </li>
MultiPage = MultiPage </ul> </div>
'สิ้นสุดถ้า
FIRSTSHORTCUT = จริง
ฟังก์ชันสิ้นสุด
แชร์: ฟังก์ชั่นทั่วไปของ ASP เพื่อพิจารณาว่าค่าฐานข้อมูลว่างเปล่า เนื่องจากคุณสมบัติที่แตกต่างกันของฟิลด์ต่าง ๆ วิธีการในการพิจารณาว่าฟิลด์ว่างเปล่านั้นแตกต่างกันหรือไม่ ต่อไปนี้เป็นฟังก์ชั่นทั่วไปซึ่งหลีกเลี่ยงความเจ็บปวดของประเภทสนาม 'ตรวจสอบตัวแปรไม่ใช่ฟังก์ชั่นว่างเปล่า Isblank (Byref Tempvar)' โดยค่าเริ่มต้นสมมติว่ามันไม่ใช่ isblank = false 'ตอนนี้ตรวจสอบโดยตัวแปร t