แนะนำ: ฟังก์ชั่นทั่วไปของ ASP เพื่อตรวจสอบว่าค่าฐานข้อมูลว่างเปล่า เนื่องจากคุณสมบัติที่แตกต่างกันของฟิลด์ต่าง ๆ วิธีการในการพิจารณาว่าฟิลด์ว่างเปล่านั้นแตกต่างกันหรือไม่ ต่อไปนี้เป็นฟังก์ชั่นทั่วไปซึ่งหลีกเลี่ยงความเจ็บปวดของประเภทสนาม 'ตรวจสอบตัวแปรไม่ใช่ฟังก์ชั่นว่างเปล่า Isblank (Byref Tempvar)' โดยค่าเริ่มต้นสมมติว่ามันไม่ใช่ isblank = false 'ตอนนี้ตรวจสอบโดยตัวแปร t
คอลเลกชันของฟังก์ชั่นที่มีประโยชน์ในการพัฒนา ASP นั้นมีประโยชน์มากโปรดเก็บไว้!
-
'ตัดเนื้อหา - แยกตามสาย
-
ฟังก์ชัน SplitLines (เนื้อหา byval, byval contentNums)
สลัว ts, i, l
ContentNums = int (ContentNums)
ถ้า isnull (เนื้อหา) จากนั้นออกจากฟังก์ชัน
i = 1
ts = 0
สำหรับ i = 1 ถึง len (เนื้อหา)
l = lcase (กลาง (เนื้อหา, i, 5))
ถ้า l = <br/> แล้ว
ts = ts+1
สิ้นสุดถ้า
l = lcase (กลาง (เนื้อหา, i, 4))
ถ้า l = <br> แล้ว
ts = ts+1
สิ้นสุดถ้า
l = lcase (กลาง (เนื้อหา, i, 3))
ถ้า l = <p> แล้ว
ts = ts+1
สิ้นสุดถ้า
ถ้า ts> contentNums ออกจาก
ต่อไป
ถ้า ts> contentNums แล้ว
เนื้อหา = ซ้าย (เนื้อหา, I-1)
สิ้นสุดถ้า
SplitLines = เนื้อหา
ฟังก์ชันสิ้นสุด
-
'เนื้อหาตัด - แยกตามอักขระ
-
ฟังก์ชั่น cutstr (byval str, byval strlen)
สลัว l, t, c, i
ถ้า isnull (str) จากนั้น cutstr =: ฟังก์ชันออก
l = len (str)
strlen = int (strlen)
t = 0
สำหรับ i = 1 ถึง l
c = asc (mid (str, i, 1))
ถ้า c <0 หรือ c> 255 แล้ว t = t+2 else t = t+1
ถ้า t> = strlen แล้ว
cutstr = ซ้าย (str, i) ...
ออกจาก
อื่น
cutstr = str
สิ้นสุดถ้า
ต่อไป
ฟังก์ชันสิ้นสุด
-
'ลบแท็กอ้างอิง
-
ฟังก์ชั่น delquote (strcontent)
ถ้า isnull (strcontent) จากนั้นออกจากฟังก์ชัน
Dim re
ตั้งค่า re = ใหม่ regexp
re.ignorecase = true
re.global = true
re.pattern =/[quote/เหมือน(. ardment^/เหมือนกัน*?)/ [[///- ใบเสนอราคา/]
strcontent = re.replace (strcontent,)
re.pattern =/[quote = (. [^/]]*)/] (. [^/]]*?)/[// quote/]]]*?)/[// quote/]
strcontent = re.replace (strcontent,)
ตั้งค่า re = ไม่มีอะไร
delquote = strcontent
ฟังก์ชันสิ้นสุด
-
'รับ ip ไคลเอนต์
-
ฟังก์ชั่น getip ()
Dim Strip, ip_ary, strip_list
strip_list = แทนที่ (request.serverVariables (http_x_forwarded_for), ',)
ถ้า instr (strip_list ,,) <> 0 แล้ว
ip_ary = split (strip_list ,,)
strip = ip_ary (0)
อื่น
strip = strip_list
สิ้นสุดถ้า
ถ้า strip = ว่างแล้ว strip = แทนที่ (request.serverVariables (remote_addr), ',)
getip = strip
ฟังก์ชันสิ้นสุด
บทความนี้รวบรวมและรวบรวมโดย Design Home
-
'รับข้อมูลเบราว์เซอร์ลูกค้า
-
ฟังก์ชั่น getBrowser (strua)
Dim Arrinfo, strtype, temp1, temp2
strtype =
strua = lcase (strua)
arrinfo = array (unkown, unkown)
'การตัดสินเบราว์เซอร์
ถ้า instr (strua, mozilla)> 0 จากนั้น arrinfo (0) = mozilla
ถ้า instr (strua, icab)> 0 จากนั้น arrinfo (0) = icab
ถ้า instr (strua, lynx)> 0 จากนั้น arrinfo (0) = lynx
ถ้า instr (strua, ลิงก์)> 0 จากนั้น arrinfo (0) = ลิงก์
ถ้า instr (strua, elinks)> 0 จากนั้น arrinfo (0) = elinks
ถ้า instr (strua, jbrowser)> 0 แล้ว arrinfo (0) = jbrowser
ถ้า instr (strua, konqueror)> 0 แล้ว arrinfo (0) = konqueror
ถ้า instr (strua, wget)> 0 แล้ว arrinfo (0) = wget
ถ้า instr (strua, ถาม jeeves)> 0 หรือ instr (strua, teoma)> 0 จากนั้น arrinfo (0) = ถาม jeeves/teoma
ถ้า instr (strua, wget)> 0 แล้ว arrinfo (0) = wget
ถ้า instr (strua, opera)> 0 จากนั้น arrinfo (0) = opera
ถ้า instr (strua, gecko)> 0 แล้ว
strtype = [gecko]
arrinfo (0) = mozilla
ถ้า instr (strua, aol)> 0 จากนั้น arrinfo (0) = aol
ถ้า instr (strua, netscape)> 0 แล้ว arrinfo (0) = netscape
ถ้า instr (strua, firefox)> 0 จากนั้น arrinfo (0) = firefox
ถ้า instr (strua, chimera)> 0 แล้ว arrinfo (0) = chimera
ถ้า instr (strua, camino)> 0 จากนั้น arrinfo (0) = camineo
ถ้า instr (strua, galeon)> 0 จากนั้น arrinfo (0) = galeon
ถ้า instr (strua, k-meleon)> 0 แล้ว arrinfo (0) = k-meleon
arrinfo (0) = arrinfo (0)+strtype
สิ้นสุดถ้า
ถ้า instr (strua, bot)> 0 หรือ instr (strua, รวบรวมข้อมูล)> 0 แล้ว
strtype = [bot/crawler]
arrinfo (0) =
ถ้า instr (strua, grub)> 0 จากนั้น arrinfo (0) = grub
ถ้า instr (strua, googlebot)> 0 แล้ว arrinfo (0) = googlebot
ถ้า instr (strua, msnbot)> 0 แล้ว arrinfo (0) = msn bot
ถ้า instr (strua, slurp)> 0 แล้ว arrinfo (0) = yahoo! slurp
arrinfo (0) = arrinfo (0)+strtype
สิ้นสุดถ้า
ถ้า Instr (strua, applewebkit)> 0 แล้ว
strtype = [applewebkit]
arrinfo (0) =
ถ้า instr (strua, omniweb)> 0 แล้ว arrinfo (0) = omniweb
ถ้า instr (strua, safari)> 0 จากนั้น arrinfo (0) = safari
arrinfo (0) = arrinfo (0)+strtype
สิ้นสุดถ้า
ถ้า Instr (strua, msie)> 0 แล้ว
strtype = [msie
temp1 = mid (strua, (strua, msie) +4), 6)
temp2 = instr (temp1,;)
temp1 = ซ้าย (temp1, temp2-1)
strtype = strtype & temp1]
Arrinfo (0) = Internet Explorer
ถ้า instr (strua, msn)> 0 จากนั้น arrinfo (0) = msn
ถ้า instr (strua, aol)> 0 จากนั้น arrinfo (0) = aol
ถ้า instr (strua, webtv)> 0 จากนั้น arrinfo (0) = webtv
ถ้า instr (strua, myie2)> 0 แล้ว arrinfo (0) = myie2
ถ้า instr (strua, maxthon)> 0 แล้ว arrinfo (0) = maxthon
ถ้า instr (strua, gosurf)> 0 แล้ว arrinfo (0) = gosurf
ถ้า instr (strua, netcaptor)> 0 แล้ว arrinfo (0) = netcaptor
ถ้า instr (strua, sleipnir)> 0 แล้ว arrinfo (0) = sleipnir
ถ้า instr (strua, เบราว์เซอร์เปรี้ยว)> 0 แล้ว arrinfo (0) = avantbrowser
ถ้า instr (strua, greenbrowser)> 0 แล้ว arrinfo (0) = GreenBrowser
ถ้า instr (strua, slimbrowser)> 0 แล้ว arrinfo (0) = slimbrowser
arrinfo (0) = arrinfo (0)+strtype
สิ้นสุดถ้า
'การตัดสินของระบบปฏิบัติการ
ถ้า instr (strua, windows)> 0 จากนั้น arrinfo (1) = windows
ถ้า instr (strua, windows ce)> 0 จากนั้น arrinfo (1) = windows ce
ถ้า instr (strua, windows 95)> 0 จากนั้น arrinfo (1) = windows 95
ถ้า instr (strua, win98)> 0 จากนั้น arrinfo (1) = windows 98
ถ้า instr (strua, windows 98)> 0 จากนั้น arrinfo (1) = windows 98
ถ้า instr (strua, windows 2000)> 0 จากนั้น arrinfo (1) = windows 2000
ถ้า instr (strua, windows xp)> 0 จากนั้น arrinfo (1) = windows xp
ถ้า instr (strua, windows nt)> 0 แล้ว
arrinfo (1) = windows nt
ถ้า instr (strua, windows nt 5.0)> 0 จากนั้น arrinfo (1) = windows 2000
ถ้า instr (strua, windows nt 5.1)> 0 จากนั้น arrinfo (1) = windows xp
ถ้า instr (strua, windows nt 5.2)> 0 จากนั้น arrinfo (1) = windows 2003
สิ้นสุดถ้า
ถ้า instr (strua, x11)> 0 หรือ instr (strua, unix)> 0 จากนั้น arrinfo (1) = unix
ถ้า instr (strua, sunos)> 0 หรือ instr (strua, sun os)> 0 จากนั้น arrinfo (1) = sun os
ถ้า instr (strua, powerpc)> 0 หรือ instr (strua, ppc)> 0 จากนั้น arrinfo (1) = powerpc
ถ้า instr (strua, macintosh)> 0 จากนั้น arrinfo (1) = mac
ถ้า instr (strua, mac osx)> 0 จากนั้น arrinfo (1) = macoSx
ถ้า instr (strua, freeBSD)> 0 จากนั้น arrinfo (1) = freeBSD
ถ้า instr (strua, linux)> 0 จากนั้น arrinfo (1) = linux
ถ้า instr (strua, palmsource)> 0 หรือ instr (strua, palmos)> 0 จากนั้น arrinfo (1) = palmos
ถ้า instr (strua, wap)> 0 จากนั้น arrinfo (1) = wap
'arrinfo (0) = strua
getBrowser = arrinfo
ฟังก์ชันสิ้นสุด
-
'การคำนวณตัวเลขสุ่ม
-
ฟังก์ชั่นสุ่ม (intlength)
สลัว strseed, ต้นกล้า, pos, str, i
strseed = abcdefghijklmnopqrstuvwxyz1234567890
seedlength = len (strseed)
str =
สุ่ม
สำหรับ i = 1 ถึง intlength
str = str+mid (strseed, int (seedlength*rnd) +1,1)
ต่อไป
randomstr = str
ฟังก์ชันสิ้นสุด
-
'ปิด UBB โดยอัตโนมัติ
-
ฟังก์ชั่นปิดบัญชี (strcontent)
Dim arrtags, I, OpenPos, ClosePos, RE, StrMatchs, J, Match
ตั้งค่า re = ใหม่ regexp
re.ignorecase = true
re.global = true
arrtags = array (รหัส, ใบเสนอราคา, รายการ, สี, จัดตำแหน่ง, แบบอักษร, ขนาด, b, i, u, html)
สำหรับ i = 0 ถึง ubund (arrtags)
OpenPos = 0
closepos = 0
re.pattern =/[+arrtags (i)+(= [^/[/]]+|)/]
ตั้งค่า strmatchs = re.execute (strcontent)
สำหรับการจับคู่แต่ละครั้งใน strmatchs
OpenPos = OpenPos+1
ต่อไป
re.pattern =/[/+arrtags (i)+/]
ตั้งค่า strmatchs = re.execute (strcontent)
สำหรับการจับคู่แต่ละครั้งใน strmatchs
closepos = closepos+1
ต่อไป
สำหรับ j = 1 ถึง openpos-closepos
strContent = strContent+[/+arrtags (i)+]
ต่อไป
ต่อไป
closeBb = strcontent
ฟังก์ชันสิ้นสุด
-
'ปิด HTML โดยอัตโนมัติ
-
ฟังก์ชั่น CloseHtml (strcontent)
Dim arrtags, I, OpenPos, ClosePos, RE, StrMatchs, J, Match
ตั้งค่า re = ใหม่ regexp
re.ignorecase = true
re.global = true
arrtags = array (p, div, span, ตาราง, ul, font, b, u, i, h1, h2, h3, h4, h5, h6)
สำหรับ i = 0 ถึง ubund (arrtags)
OpenPos = 0
closepos = 0
re.pattern =/<+arrtags (i)+([^/</>]+|)/
ตั้งค่า strmatchs = re.execute (strcontent)
สำหรับการจับคู่แต่ละครั้งใน strmatchs
OpenPos = OpenPos+1
ต่อไป
re.pattern =/</+arrtags (i)+//>
ตั้งค่า strmatchs = re.execute (strcontent)
สำหรับการจับคู่แต่ละครั้งใน strmatchs
closepos = closepos+1
ต่อไป
สำหรับ j = 1 ถึง openpos-closepos
strContent = strContent+</+arrtags (i)+>
ต่อไป
ต่อไป
closeHtml = strContent
ฟังก์ชันสิ้นสุด
-
'อ่านไฟล์
-
ฟังก์ชั่น loadfromfile (ไฟล์ byval)
สลัว objstream
สลัว rtext
rtext = array (0,)
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า objstream = server.createObject (adodb.stream)
ถ้าเอ่อแล้ว
rtext = array (err.number, err.description)
loadFromFile = rtext
err.lear
ฟังก์ชั่นออก
สิ้นสุดถ้า
กับ objstream
.Type = 2
.Mode = 3
.เปิด
.Charset = UTF-8
.position = objstream.size
.loadFromFile Server.Mappath (ไฟล์)
ถ้า err.number <> 0 แล้ว
rtext = array (err.number, err.description)
loadFromFile = rtext
err.lear
ฟังก์ชั่นออก
สิ้นสุดถ้า
rtext = array (0, .readText)
.ปิด
จบลงด้วย
loadFromFile = rtext
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'บันทึกไฟล์
-
ฟังก์ชั่น savetofile (byval strbody, ไฟล์ byval)
สลัว objstream
สลัว rtext
rtext = array (0,)
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า objstream = server.createObject (adodb.stream)
ถ้าเอ่อแล้ว
rtext = array (err.number, err.description)
err.lear
ฟังก์ชั่นออก
สิ้นสุดถ้า
กับ objstream
.Type = 2
.เปิด
.Charset = UTF-8
.position = objstream.size
.writeText = strbody
.Savetofile Server.Mappath (ไฟล์), 2
.ปิด
จบลงด้วย
rtext = array (0, บันทึกไฟล์สำเร็จ!)
savetofile = rtext
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'การดำเนินการปรับเปลี่ยนโดเมน
-
ฟังก์ชั่น dbQuest (ตาราง, dbarray, การกระทำ)
Dim addCount, tempdb, i, v
หากการดำเนินการ <> แทรกหรือการกระทำ <> อัปเดตแล้ว action = แทรก
ถ้า action = แทรกแล้ว v = 2 else v = 3
ถ้าไม่ใช่ isarray (dbarray) แล้ว
dbQuest = -1
ฟังก์ชั่นออก
อื่น
ตั้งค่า tempdb = server.createObject (adodb.recordset)
เมื่อเกิดข้อผิดพลาดต่อไป
Tempdb.open Table, Conn, 1, V
ถ้าเอ่อแล้ว
dbQuest = -2
ฟังก์ชั่นออก
สิ้นสุดถ้า
ถ้า action = แทรกแล้ว tempdb.addnew
addCount = ubound (dbarray, 1)
สำหรับ i = 0 ถึง addCount
tempdb (dbarray (i) (0)) = dbarray (i) (1)
ต่อไป
tempdb.update
tempdb.close
ตั้งค่า tempdb = ไม่มีอะไร
dbQuest = 0
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'ตรวจสอบว่ามีการติดตั้งส่วนประกอบระบบหรือไม่
-
ฟังก์ชั่น checkobjinstalled (strclassstring)
เมื่อเกิดข้อผิดพลาดต่อไป
อุณหภูมิหรี่
err = 0
dim tmpobj
ตั้งค่า tmpoBj = server.createObject (strClassString)
Temp = Err
ถ้าอุณหภูมิ = 0 หรืออุณหภูมิ = -2147221477 แล้ว
checkobjinstalled = true
elseif temp = 1 หรือ temp = -2147221005 แล้ว
checkobjinstalled = false
สิ้นสุดถ้า
err.lear
ตั้งค่า tmpoBj = ไม่มีอะไร
err = 0
ฟังก์ชันสิ้นสุด
-
'Judge Server Microsoft.xmldom
-
ฟังก์ชั่น getxmldom
เมื่อเกิดข้อผิดพลาดต่อไป
อุณหภูมิหรี่
getxMldom = microsoft.xmldom
err = 0
dim tmpobj
ตั้งค่า tmpoBj = server.createObject (getxmldom)
Temp = Err
ถ้าอุณหภูมิ = 1 หรืออุณหภูมิ = -2147221005 แล้ว
getXmldom = msxml2.domDocument.5.0
สิ้นสุดถ้า
err.lear
ตั้งค่า tmpoBj = ไม่มีอะไร
err = 0
ฟังก์ชันสิ้นสุด
-
'Judge Server msxml2.serverxmlhttp
-
ฟังก์ชั่น getxmlhttp
เมื่อเกิดข้อผิดพลาดต่อไป
อุณหภูมิหรี่
getXmlhttp = msxml2.serverxmlhttp
err = 0
dim tmpobj
ตั้งค่า tmpoBj = server.createObject (getxmlhttp)
Temp = Err
ถ้าอุณหภูมิ = 1 หรืออุณหภูมิ = -2147221005 แล้ว
getXmlhttp = msxml2.serverxmlhttp.5.0
สิ้นสุดถ้า
err.lear
ตั้งค่า tmpoBj = ไม่มีอะไร
err = 0
ฟังก์ชันสิ้นสุด
-
'การกรองคำหลักขยะ
-
ฟังก์ชั่น Filterspam (Str, Path)
เมื่อเกิดข้อผิดพลาดต่อไป
filterspam = false
สลัว spamxml, spamitem
ตั้งค่า spamxml = server.createObject (getxmldom)
ถ้าเอ่อแล้ว
err.lear
ฟังก์ชั่นออก
สิ้นสุดถ้า
spamxml.async = false
spamxml.load (server.mappath (path))
ถ้า spamxml.parseerror.errorCode = 0 แล้ว
สำหรับ spamitem แต่ละตัวใน spamxml.selectnodes (// key)
ถ้า instr (lcase (str), lcase (spamitem.text)) <> 0 แล้ว
Filterspam = true
ฟังก์ชั่นออก
สิ้นสุดถ้า
ต่อไป
สิ้นสุดถ้า
ตั้งค่า spamxml = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'วัตถุประสงค์: ตรวจสอบแบบฟอร์มปกติ
'Enter: id
'return: ความสำเร็จเป็นจริง
-
ฟังก์ชั่น checkregexp (แหล่งที่มา para)
ถ้า para = [ชื่อผู้ใช้] แล้ว
para =^[. a-za-z0-9/u4e00-/u9fa5]+
สิ้นสุดถ้า
ถ้า para = [รหัสผ่าน] แล้ว
para =^[a-z0-9]+
สิ้นสุดถ้า
ถ้า para = [อีเมล] แล้ว
para =^([0-9a-za-z] ([-./w]*[0-9a-za-z])*@([0-9a-za-z] [-/w]*/.)+[a-za-z]*)
สิ้นสุดถ้า
ถ้า para = [โฮมเพจ] แล้ว
para =^[a-za-z]+: // [a-za-z0-9 /-/./]+?/*
สิ้นสุดถ้า
ถ้า para = [nojapan] แล้ว
para = [/u3040-/u30ff]+
สิ้นสุดถ้า
ถ้า para = [guid] แล้ว
para =^/w {8}/-/w {4}/-/w {4}/-/w {4}/-/w {4}/-/w {12}
สิ้นสุดถ้า
Dim re
ตั้งค่า re = ใหม่ regexp
re.global = true
re.pattern = para
re.ignorecase = false
checkregexp = re.test (แหล่งที่มา)
ฟังก์ชันสิ้นสุด
-
'รับจำนวนคนออนไลน์
-
ฟังก์ชั่น getOnline
getOnline = 1
ถ้า len (แอปพลิเคชัน (space_cookiename_onlinecount))> 0 แล้ว
ถ้า datediff (s, แอปพลิเคชัน (space_cookiename_useronlineCountTime), ตอนนี้ ())> 60 แล้ว
Application.lock ()
แอปพลิเคชัน (space_cookiename_online) = แอปพลิเคชัน (space_cookiename_onlinecount)
แอปพลิเคชัน (space_cookiename_onlinecount) = 1
แอปพลิเคชัน (space_cookiename_onlinecountkey) = randstr (2)
แอปพลิเคชัน (space_cookiename_useronlinecounttime) = ตอนนี้ ()
application.unlock ()
อื่น
ถ้าเซสชัน (space_cookienameuseronlinekey) <> แอปพลิเคชัน (space_cookiename_onlinecountkey) แล้ว
Application.lock ()
แอปพลิเคชัน (space_cookiename_onlinecount) = แอปพลิเคชัน (space_cookiename_onlinecount) +1
application.unlock ()
เซสชัน (space_cookienameuseronlinekey) = แอปพลิเคชัน (space_cookiename_onlinecountkey)
สิ้นสุดถ้า
สิ้นสุดถ้า
อื่น
application.lock
แอปพลิเคชัน (space_cookiename_online) = 1
แอปพลิเคชัน (space_cookiename_onlinecount) = 1
แอปพลิเคชัน (space_cookiename_onlinecountkey) = randstr (2)
แอปพลิเคชัน (space_cookiename_useronlinecounttime) = ตอนนี้ ()
application.unlock
สิ้นสุดถ้า
getOnline = แอปพลิเคชัน (space_cookiename_online)
ฟังก์ชันสิ้นสุด
-
บทความนี้รวบรวมและรวบรวมโดย Design Home
แบ่งปัน: ASP ส่งออกข้อมูลจากฐานข้อมูลไปยังตาราง Excel รหัสอินสแตนซ์ ASP ส่งออกข้อมูลโดยตรงในฐานข้อมูลไปยังสเปรดชีต Excel !-#รวมไฟล์ = ../conn.asp- % dim S, SQL, ชื่อไฟล์, fs, myfile, x set fs = server.createObject (scripting.filesystemobject) '-คุณต้องการไฟล์ Excel ที่สร้างขึ้นดังต่อไปนี้