#TITLE=ไวยากรณ์และฟังก์ชันทั่วไปของ ASP
#ข้อมูล
ไวยากรณ์และฟังก์ชันแบบกำหนดเองที่ใช้กันทั่วไปบางส่วนใน ASP
#เรียงลำดับ=น
#T= ===ไวยากรณ์ ASP ทั่วไป===
#ท==============================
#T=ฐานข้อมูลที่เกี่ยวข้อง
#T= เชื่อมต่อกับฐานข้อมูล ACCESS
-
Dim DBName,คอนน์
DBName^! 'กำหนดเส้นทางและชื่อฐานข้อมูล
SET Conn = Server.CreateObject (ADODB.Connection)
ผู้ให้บริการ Conn.Open=Microsoft.Jet.OLEDB.4.0;แหล่งข้อมูล= & Server.MapPath(DBName)
-
#T= เชื่อมต่อกับฐานข้อมูล MS SQL
-
ดิม คอนน์
SET Conn=Server.CreateObject(ADODB.การเชื่อมต่อ)
Conn.Open PROVIDER=SQLOLEDB;แหล่งข้อมูล=ชื่อเซิร์ฟเวอร์ SQL หรือที่อยู่ IP;UID=บัญชีเข้าสู่ระบบฐานข้อมูล;PWD=รหัสผ่านฐานข้อมูล;ฐานข้อมูล=ชื่อฐานข้อมูล
-
#T= สร้างชุดบันทึก
SET ^!=Server.CreateObject(ADODB.recordset)
#T= ดำเนินการคำสั่ง SQL
RS.เปิด SQL,conn,1,1
#T= ดำเนินการคำสั่ง SQL
Conn.ดำเนินการ(^!)
#T= RS รันคำสั่ง SQL โดยตรง
SET RS = Conn.ดำเนินการ(^!)
#T= ปิดชุดระเบียน
RS.ปิด
ตั้งค่า RS=ไม่มีอะไร
#T= ปิดฐานข้อมูล
คอน.ปิด
SETConn=ไม่มีอะไร
#ต==============================
#T=ServerVariables ที่เกี่ยวข้อง
#T= รับที่อยู่ของหน้าก่อนหน้า
คำขอ ServerVariables (HTTP_REFERER)
#T= รับชื่อของเซิร์ฟเวอร์ 1
คำขอ ServerVariables (SERVER_NAME)
#T= รับชื่อของเซิร์ฟเวอร์ 2
คำขอตัวแปรเซิร์ฟเวอร์ (HTTP_HOST)
#T= รับ IP ของเซิร์ฟเวอร์
คำขอ ServerVariables (LOCAL_ADDR)
#T= รับ IP ของผู้ใช้
คำขอ ServerVariables (Remote_Host)
#T= รับ IP1 จริงของผู้ใช้
Request.serverVariables (REMOTE_ADDR)
#T= รับฟังก์ชัน IP จริงของผู้ใช้
ฟังก์ชัน GetRealIP()
GetRealIP = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
ถ้า (GetRealIP = ) แล้ว GetRealIP = Request.ServerVariables (REMOTE_ADDR)
ฟังก์ชันสิ้นสุด
#T= รับพอร์ตเซิร์ฟเวอร์
คำขอ ServerVariables (SERVER_PORT)
#T= รับระบบปฏิบัติการเซิร์ฟเวอร์
คำขอตัวแปรเซิร์ฟเวอร์ (OS)
#T= รับเส้นทางที่แน่นอนของเซิร์ฟเวอร์
คำขอ ServerVariables (APPL_PHYSICAL_PATH)
#T= รับเส้นทางสัมบูรณ์ของไฟล์นี้ 1
Requet.ServerVariables(PATH_TRANSLATED)
#T= รับเส้นทางสัมบูรณ์ของไฟล์นี้ 2
Server.mappath (คำขอ ServerVariables (SCRIPT_NAME))
#T= รับเส้นทางสัมพัทธ์ของไฟล์นี้ 1
คำขอ ServerVariables (URL)
#T= รับเส้นทางสัมพัทธ์ของไฟล์นี้ 2
คำขอ ServerVariables (SCRIPT_NAME)
#T= รับเส้นทางสัมพัทธ์ของไฟล์นี้ 3
คำขอ ServerVariables (PATH_INFO)
#T= รับพารามิเตอร์หลังแถบที่อยู่
คำขอ ServerVariables (QUERY_STRING)
#T= รับข้อมูลระบบเซิร์ฟเวอร์
คำขอตัวแปรเซิร์ฟเวอร์ (HTTP_USER_AGENT)
#T= การตรวจจับส่วนประกอบเซิร์ฟเวอร์
-
ฟังก์ชัน IsObjInstalled (strClassString)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
IsObjInstalled = เท็จ
ผิดพลาด = 0
DimxTestObj
SET xTestObj = Server.CreateObject(strClassString)
ถ้า (0 = ผิดพลาด) แล้วติดตั้ง Obj = True
SET xTestObj = ไม่มีเลย
ผิดพลาด = 0
ฟังก์ชันสิ้นสุด
'ถ้า (IsObjInstalled (Persits.Upload)=True) แล้ว
' Response.Write รองรับคอมโพเนนต์ AspUpload
'อื่น
' Response.Write ไม่รองรับคอมโพเนนต์ AspUpload
'สิ้นสุดถ้า
-
#T= รับสถานที่ไคลเอ็นต์
^!Request.ServerVariables(HTTP_ACCEPT_LANGUAGE)
#T= รับข้อมูลลูกค้า: HTTP_USER_AGENT
^!Request.ServerVariables(HTTP_USER_AGENT)
#T= รับค่าองค์ประกอบค่าแบบฟอร์ม (แบบฟอร์ม)
แบบฟอร์มคำขอ(^!)
#T= รับค่าที่ส่งผ่านโดย URL
คำขอ QueryString (^!)
#T= รับที่อยู่ URL ที่สมบูรณ์
ฟังก์ชัน GetUrl()
GetUrl=http://&Request.ServerVariables(SERVER_N ... .ServerVariables(URL)
IF(Request.ServerVariables(QUERY_STRING)<>)แล้ว GetURL=GetUrl&?& Request.ServerVariables(QUERY_STRING)
ฟังก์ชันสิ้นสุด
#ท==============================
#T=ฟังก์ชันแบบกำหนดเอง
#T= กรองอักขระ HTML
-
'กรองฟังก์ชันอักขระ HTML'
ฟังก์ชัน HTMLEncode(str)
ถ้า(str <> )แล้ว
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) & Chr(10), </P><P>)
str = แทนที่ (str, Chr (10), <BR>)
str = แทนที่ (str, Chr (255), )
สิ้นสุด ถ้า
HTMLEncode = str
ฟังก์ชันสิ้นสุด
-
#T= ตรวจสอบว่าหน้าก่อนหน้านี้ถูกส่งมาจากไซต์นี้หรือไม่
-
'ตรวจสอบว่าหน้าก่อนหน้านี้ถูกส่งมาจากไซต์นี้หรือไม่
'การส่งคืน: จริง, เท็จ
'=================================================' = ==============
ฟังก์ชั่น IsSelfRefer()
หรี่ sHttp_Referer, sServer_Name
sHttp_Referer = CStr (Request.ServerVariables (HTTP_REFERER))
sServer_Name = CStr (คำขอตัวแปรเซิร์ฟเวอร์ (SERVER_NAME))
IF(กลาง(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name)แล้ว
IsSelfRefer = จริง
อื่น
IsSelfRefer = เท็จ
สิ้นสุด ถ้า
ฟังก์ชันสิ้นสุด
-
#T= ล้างแท็ก HTML ทั้งหมด
-
'ล้างแท็ก HTML'
แถบฟังก์ชันHTML(htmlStr)
Dim regEx
SETregEx = NewRegexp
regEx.IgnoreCase = จริง
regEx.Global = จริง
regEx.รูปแบบ = <.+?>
htmlStr = regEx.แทนที่(htmlStr,)
htmlStr = แทนที่(htmlStr, <,<)
htmlStr = แทนที่(htmlStr, >,>)
htmlStr = แทนที่(htmlStr,chr(10),)
htmlStr = แทนที่(htmlStr,chr(13),)
แถบ HTML = htmlStr
SET regEx = ไม่มีเลย
ฟังก์ชันสิ้นสุด
-
#T= รับความยาวของสตริง
-
'ฟังก์ชันหาความยาวของสตริง'
ฟังก์ชั่น GetLength (str)
ความยาวสลัว
สำหรับ i=1 ถึง Len(str)
IF(Asc(กลาง(str,i,1))<0 หรือ Asc(กลาง(str,i,1))>256)แล้ว
ความยาว=ความยาว+2
อื่น
ความยาว=ความยาว+1
สิ้นสุด ถ้า
ต่อไป
GetLength=ความยาว
ฟังก์ชันสิ้นสุด
-
#T= ตัดสตริงความยาวที่ระบุ
-
'ตัดสตริงตามความยาวที่กำหนด แทนที่ส่วนที่เกินด้วย...
ฟังก์ชัน StrLeft(str,strlen)
ถ้า(str = )แล้ว
StrLeft =
ออกจากฟังก์ชัน
สิ้นสุด ถ้า
หรี่ l,t,c,i
str = แทนที่(แทนที่(แทนที่(แทนที่(str, , ),,chr(34)),>,>),<,<)
l=เลน(str)
เสื้อ=0
สำหรับ i=1 ถึง l
c=Abs(Asc(กลาง(str,i,1)))
ถ้า(c>255)แล้ว
เสื้อ=t+2
อื่น
เสื้อ=t+1
สิ้นสุด ถ้า
ถ้า(t>strlen)แล้ว
StrLeft = ซ้าย(str,i) & ...
ออกเพื่อ
อื่น
StrLeft = STR
สิ้นสุด ถ้า
ต่อไป
StrLeft = แทนที่(แทนที่(แทนที่(แทนที่(StrLeft, , ),chr(34),),>,>),<,<)
ฟังก์ชันสิ้นสุด
-
#T= รับพารามิเตอร์การส่งที่ปลอดภัย
-
'=================================================' = ==============
'การตรวจสอบการฉีด SQL
'ฟังก์ชันฟังก์ชัน: กรองเครื่องหมายคำพูดเดี่ยวในพารามิเตอร์อักขระ ตัดสินพารามิเตอร์ตัวเลข และกำหนดค่าเป็น 0 หากไม่ใช่ประเภทตัวเลข
'ความหมายของพารามิเตอร์: str ---- พารามิเตอร์ที่จะกรอง
'strType ---- ประเภทพารามิเตอร์ แบ่งออกเป็นประเภทอักขระและประเภทตัวเลข ประเภทอักขระคือ s ประเภทตัวเลขคือ i
'=================================================' = ==============
ฟังก์ชั่น CheckStr(str,strType)
Dim strTmp
strTmp =
ถ้า(strType =s)แล้ว
strTmp = แทนที่ (ตัดแต่ง (str),', '')
ELSEIF(strType=i)แล้ว
IF(IsNumeric(str)=False)แล้ว str=False
strTmp = str
อื่น
strTmp = str
สิ้นสุด ถ้า
CheckStr= strTmp
ฟังก์ชันสิ้นสุด
-
#T= กรองอักขระที่ไม่ดีออก (BadWord)
-
'กรองตัวละครที่ไม่ดี (BadWords)
ฟังก์ชัน ChkBadWords(fString)
ติ่มซำ BadWords, bwords, i
BadWords = ไอ้เหี้ย|ไอ้เหี้ย|ไอ้เหี้ย|ไอ้เหี้ย|ไอ้เหี้ย|หมา|ไอสารเลว|หี|ดิ๊ก|ไอ้สารเลว|ข่มขืน|ร่วมรัก|เวอร์จิ้น|zemin|ฟาหลุน|ฟาหลุน|หงจือ|ฟาหลุน
IF(ไม่ใช่(IsNull(BadWords) หรือ IsNull(fString)))แล้ว
bwords = แยก(BadWords, |)
สำหรับ i = 0 ถึง UBound (ดาบ)
fString = แทนที่(fString, bwords(i), string(Len(bwords(i)),*))
ต่อไป
ChkBadWords = fString
สิ้นสุด ถ้า
ฟังก์ชันสิ้นสุด
-
#T= สร้างรหัสผ่านความยาวที่กำหนดเองแบบสุ่ม
-
'สร้างรหัสผ่านความยาวที่กำหนดเองแบบสุ่ม
ฟังก์ชั่น makePassword(maxLen)
Dim strNewPass
หรี่ whatsNext บน ล่าง intCounter
สุ่ม
สำหรับ intCounter = 1 ถึง maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
ถ้า(อะไรต่อไป = 0)แล้ว
'อักขระ
บน=90
ล่าง=65
อื่น
บน=57
ต่ำกว่า = 48
สิ้นสุด ถ้า
strNewPass = strNewPass & Chr(Int((บน - ล่าง + 1) * Rnd + ล่าง))
ต่อไป
makePassword = strNewPass
ฟังก์ชันสิ้นสุด
'การตอบสนองเขียน makepassword(8)
-
#T= เก็บรูปแบบเป็น HTML เมื่อกรอก Textarea
-
'=================================================' = ==============
'ลบรูปแบบ Html ซึ่งใช้ในการดึงค่าจากฐานข้อมูลและกรอกลงในช่องป้อนข้อมูล
'หมายเหตุ: value=? ต้องใช้เครื่องหมายคำพูดคู่ที่นี่
'=================================================' = ==============
ฟังก์ชันในHTML(str)
อุณหภูมิสลัว
sTemp = STR
ในHTML=
ถ้า IsNull(sTemp) = True แล้ว
ออกจากฟังก์ชัน
สิ้นสุดถ้า
sTemp = แทนที่ (sTemp, &, &)
sTemp = แทนที่(sTemp, <br>,chr(13))
sTemp = แทนที่(sTemp, <, <)
sTemp = แทนที่(sTemp, >, >)
sTemp = แทนที่(sTemp, , Chr(34))
inHTML = sTemp
ฟังก์ชันสิ้นสุด
-
#T= ฟังก์ชันการตรวจสอบนิพจน์ตารางปกติ
-
'ฟังก์ชันการตรวจสอบนิพจน์ทั่วไป สตริงสตริง patrn-regular expression ที่ต้องได้รับการตรวจสอบ
'=================================================' = ==============
ฟังก์ชัน RegExpTest(รูปแบบ, strng)
Dim regEx, retVal 'สร้างตัวแปร'
SET regEx = New RegExp ' สร้างนิพจน์ทั่วไป
regEx.Pattern = patrn ' กำหนดรูปแบบ
regEx.IgnoreCase = False 'ตั้งค่าว่าจะคำนึงถึงตัวพิมพ์เล็กและตัวพิมพ์ใหญ่หรือไม่
retVal = regEx.Test(strng) 'ดำเนินการทดสอบการค้นหา
RegExpTest = retVal 'ค่าที่ส่งคืน หากไม่ตรงกันก็จะคืนค่าเป็นเท็จ หากตรงกันก็จะคืนค่าจริง
SET regEx = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#T= สร้างสตริงสุ่ม
-
'สร้างสตริงสุ่ม
ฟังก์ชั่นRndCode()
Dim CodeSet, AmountSet
ชุดโค้ด = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
AmountSet = 62 'จำนวนข้อความ
สุ่ม
หรี่ vCode (10), vCodes, i
สำหรับฉัน = 0 ถึง 9
vCode(i) = Int(Rnd * จำนวนชุด)
vCodes = vCodes & Mid(ชุดโค้ด, vCode(i) + 1, 1)
ต่อไป
RndCode=vCodes
ฟังก์ชันสิ้นสุด
-
#ท==============================
#T=การดำเนินการที่เกี่ยวข้องกับ FSO
#T= ตรวจสอบว่ามีไดเร็กทอรีอยู่หรือไม่
-
ฟังก์ชัน IsFloderExist (strFolderName)
SET FSO=Server.CreateObject(สคริปต์.FileSystemObject)
ถ้า(FSO.FolderExists(strFolderName))แล้ว
IsFloderExist = จริง
อื่น
IsFloderExist = เท็จ
สิ้นสุด ถ้า
ตั้งค่า FSO=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#T= สร้างไดเรกทอรี
-
ฟังก์ชั่น CreateFolder (strFolderName)
SET FSO=Server.CreateObject(สคริปต์.FileSystemObject)
IF(FSO.FolderExists(strFolderName) = False) แล้ว
FSO.CreateFolder (strFolderName)
สิ้นสุด ถ้า
ตั้งค่า FSO=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#T= ลบไดเรกทอรี
-
ฟังก์ชั่น DeleteFolder (strFolderName)
SET FSO=Server.CreateObject(สคริปต์.FileSystemObject)
ถ้า(FSO.FolderExists(strFolderName))แล้ว
FSO.DeleteFolder(strFolderName)
สิ้นสุด ถ้า
ตั้งค่า FSO=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#T= ตรวจสอบว่ามีไฟล์อยู่หรือไม่
-
ฟังก์ชัน IsFileExist(strFileName)
SET FSO=Server.CreateObject(สคริปต์.FileSystemObject)
ถ้า(FSO.FileExists(strFileName))แล้ว
IsFileExist = จริง
อื่น
IsFileExist = เท็จ
สิ้นสุด ถ้า
ตั้งค่า FSO=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#T= ลบไฟล์
-
ฟังก์ชั่น DeleteFile (strFileName)
SET FSO=Server.CreateObject(สคริปต์.FileSystemObject)
ถ้า(FSO.FileExists(strFileName))แล้ว
FSO.DeleteFile (strFileName)
สิ้นสุด ถ้า
ตั้งค่า FSO=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#ต==============================
#T= ฟังก์ชั่นหลายอย่างที่ขโมย ASP มักใช้
-
ฟังก์ชั่น ByteToStr (vIn)
Dim strReturn, i, ThisCharCode, รหัสภายใน, Hight8, Low8, NextCharCode
strReturn=
สำหรับ i = 1 ถึง LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
ถ้า(ThisCharCode < &H80)แล้ว
strReturn = strReturn & Chr(ThisCharCode)
อื่น
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ฉัน = ฉัน + 1
สิ้นสุด ถ้า
ต่อไป
ByteToStr = strReturn
ฟังก์ชันสิ้นสุด
ฟังก์ชัน GetHttpPageContent (url, วิธีการ, SendStr)
การดึงข้อมูลแบบติ่มซำ
การเรียก SET = Server.CreateObject (Microsoft.XMLHTTP)
ด้วยการเรียกค้น
.วิธีการเปิด, url, เท็จ, ,
.setRequestHeader Content-Type,application/x-www-form-urlencoded
.ส่ง(SendStr)
GetHttpPageContent = .ResponseBody
จบด้วย
SET Recovery = ไม่มีเลย
GetHttpPageContent=ByteToStr(GetHttpPageContent)
ฟังก์ชันสิ้นสุด
ฟังก์ชัน RegExpText(strng,regStr)
Dim regEx, แมตช์, แมตช์, RetStr
SET regEx = RegExp ใหม่
regEx.Pattern = regStr
regEx.IgnoreCase = จริง
regEx.Global = จริง
SET Matches = regEx.Execute(strng)
สำหรับการแข่งขันแต่ละครั้งในการแข่งขัน
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
ต่อไป
RegExpText = RetStr
ตั้งค่า regEx=nothing
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น StreamBytesToBstr (strBody, CodeBase)
ติ่ม objStream
SET objStream = Server.CreateObject (Adodb.Stream)
ด้วย objStream
.ประเภท = 1
.โหมด = 3
.เปิด
.เขียน strBody
.ตำแหน่ง = 0
.ประเภท = 2
.Charset = CodeBase
StreamBytesToBstr = .ReadText
.ปิด
จบด้วย
SET objStream = ไม่มีเลย
ฟังก์ชันสิ้นสุด
-