การใช้ตัวแก้ไขข้อความสามารถย้อนกลับไปยัง Java ได้ แต่หลายคนไม่สนใจบรรณาธิการข้อความในเวลานั้น บทความของวันนี้เกี่ยวกับการแก้ไขไฟล์แก้ไข มาเรียนรู้เกี่ยวกับมันกับบรรณาธิการของช่องเทคโนโลยีที่ผิดใหม่!
#title = ไวยากรณ์ทั่วไปและฟังก์ชั่นของ ASP
#ข้อมูล
ไวยากรณ์ที่ใช้กันทั่วไปและฟังก์ชั่นที่กำหนดเองใน ASP
#sort = n
#t = === ไวยากรณ์ทั่วไปสำหรับ ASP ===
#t ==========================================
#t = ฐานข้อมูลที่เกี่ยวข้อง
#t = เชื่อมต่อไปยังฐานข้อมูลการเข้าถึง
-
Dim Dbname, Conn
dbname "^!" 'กำหนดพา ธ ฐานข้อมูลและชื่อ
ตั้งค่า conn = server.createObject ("adodb.connection"))
conn.open "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & server.mappath (dbname)
-
#t = เชื่อมต่อกับฐานข้อมูล MS SQL
-
หรี่
ตั้งค่า conn = server.createObject ("adodb.connection"))
conn.open "ผู้ให้บริการ = sqloledb; แหล่งข้อมูล = ชื่อเซิร์ฟเวอร์ SQL หรือที่อยู่ IP; uid = บัญชีล็อกอินฐานข้อมูล; PWD = รหัสผ่านฐานข้อมูล; ฐานข้อมูล = ชื่อฐานข้อมูล"
-
#t = สร้างชุดระเบียน
ตั้งค่า ^! = server.createObject ("adodb.recordset"))
#t = เรียกใช้คำสั่ง SQL
Rs.Open SQL, Conn, 1,1
#t = เรียกใช้คำสั่ง SQL
conn.execute ("^!")
#t = RS เรียกใช้คำสั่ง SQL โดยตรง
ตั้งค่า rs = conn.execute ("^!")
#t = ปิดชุดระเบียน
Rs.close
ตั้งค่า rs = ไม่มีอะไร
#t = ปิดฐานข้อมูล
conn.close
ตั้งค่า conn = ไม่มีอะไร
#t ==========================================
#t = ServerVariables ที่เกี่ยวข้อง
#t = รับที่อยู่ของหน้าก่อนหน้า
request.serverVariables ("http_referer")
#t = ใช้ชื่อเซิร์ฟเวอร์ 1
request.serverVariables ("server_name")
#t = ใช้ชื่อเซิร์ฟเวอร์ 2
request.serverVariables ("http_host")
#t = รับ IP เซิร์ฟเวอร์
request.serverVariables ("local_addr")
#t = รับ IP ผู้ใช้
request.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 = รับพอร์ตเซิร์ฟเวอร์
request.serverVariables ("server_port")
#t = รับระบบปฏิบัติการเซิร์ฟเวอร์
request.ServerVariables ("OS")
#t = รับพา ธ แบบสัมบูรณ์ไปยังเซิร์ฟเวอร์
request.serverVariables ("APPL_PHYSICAL_PATH")
#t = ใช้เส้นทางสัมบูรณ์ 1 ของไฟล์นี้
requet.servervariables ("path_translated")
#t = ใช้เส้นทางสัมบูรณ์ 2 ของไฟล์นี้
Server.mappath (request.serverVariables ("script_name"))))))))))))))))
#t = ใช้เส้นทางสัมพัทธ์ 1 ของไฟล์นี้
request.serverVariables ("url")
#t = ใช้เส้นทางสัมพัทธ์ 2 ของไฟล์นี้
request.serverVariables ("script_name")
#t = ใช้เส้นทางสัมพัทธ์ 3 ของไฟล์นี้
request.serverVariables ("path_info")
#t = พารามิเตอร์หลังจากแถบที่อยู่
request.serverVariables ("query_string")
#t = รับข้อมูลระบบเซิร์ฟเวอร์
request.serverVariables ("http_user_agent")
#t = การตรวจจับส่วนประกอบเซิร์ฟเวอร์
-
ฟังก์ชั่น isobjinstalled (strclassstring)
เมื่อเกิดข้อผิดพลาดต่อไป
isobjinstalled = false
err = 0
dim xtestobj
SET XTESTOBJ = Server.CreateObject (StrClassString)
if (0 = err) จากนั้น isobjinstalled = true
ตั้งค่า xtestobj = ไม่มีอะไร
err = 0
ฟังก์ชันสิ้นสุด
'ถ้า (isobjinstalled ("pertit.upload") = true) แล้ว
'Response.write "ส่วนประกอบ Aspupload สนับสนุน"
'อื่น
'Response.write "ไม่รองรับส่วนประกอบ Aspupload"
'สิ้นสุดถ้า
-
#t = รับตำแหน่งไคลเอนต์
^! request.ServerVariables ("http_accept_language")
#t = รับข้อมูลไคลเอนต์: http_user_agent
^! request.ServerVariables ("http_user_agent")
#t = รับค่าองค์ประกอบค่าฟอร์ม
request.form ("^!")
#t = รับค่าที่ส่งผ่านโดย URL
request.querystring ("^!")
#t = รับที่อยู่ URL แบบเต็ม
ฟังก์ชั่น geturl ()
getUrl = "http: //" & request.serverVariables ("server_n ... .servervariables (" url ")
if (request.serverVariables ("query_string") <> "") จากนั้น getUrl = getUrl & "?"
ฟังก์ชันสิ้นสุด
#t ==========================================
#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), "
-
str = แทนที่ (str, chr (10), "
-
str = แทนที่ (str, chr (255), "")
สิ้นสุดถ้า
htmlencode = str
ฟังก์ชันสิ้นสุด
-
#t = ตรวจสอบว่าหน้าก่อนหน้าถูกส่งจากเว็บไซต์นี้หรือไม่
-
'ตรวจสอบว่าหน้าก่อนหน้าถูกส่งจากเว็บไซต์นี้หรือไม่
'return: จริงเท็จ
-
ฟังก์ชั่น isselfrefer ()
dim shttp_referer, sserver_name
shttp_referer = cstr (request.serverVariables ("http_referer"))))))))))))))))))
sserver_name = cstr (request.serverVariables ("server_name"))))
if (mid (shttp_referer, 8, len (sserver_name)) = sserver_name) จากนั้น
isSelfRefer = จริง
อื่น
isSelfRefer = false
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
#t = ล้างแท็ก HTML ทั้งหมด
-
'ล้างแท็ก HTML
ฟังก์ชั่น striphtml (htmlstr)
regex หรี่
ตั้งค่า regex = ใหม่ regexp
regex.ignorecase = true
regex.global = true
regex.pattern = "<.+?>"
htmlstr = regex.replace (htmlstr, "")
htmlstr = แทนที่ (htmlstr, "<", "<")
htmlstr = แทนที่ (htmlstr, ">", ">")
htmlstr = แทนที่ (htmlstr, chr (10), "")
htmlstr = แทนที่ (htmlstr, chr (13), "")
striphtml = htmlstr
ตั้งค่า regex = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#t = ใช้ความยาวสตริง
-
'ค้นหาฟังก์ชันความยาวสตริง
ฟังก์ชั่น getLength (str)
ความยาวสลัว
สำหรับ i = 1 ถึง len (str)
ถ้า (asc (mid (str, i, 1)) <0 หรือ asc (mid (str, i, 1))> 256) แล้ว
ความยาว = ความยาว+2
อื่น
ความยาว = ความยาว+1
สิ้นสุดถ้า
ต่อไป
getLength = ความยาว
ฟังก์ชันสิ้นสุด
-
#t = สกัดกั้นสตริงของความยาวที่ระบุ
-
'สกัดกั้นสตริงของความยาวที่ระบุและใช้หนึ่งพิเศษแทน ...
ฟังก์ชั่น strleft (str, strlen)
ถ้า (str = "") แล้ว
strleft = ""
ฟังก์ชั่นออก
สิ้นสุดถ้า
สลัว l, t, c, i
str = แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (str, "", ""), ""), "" ", chr (34)),"> ","> ")," <"," <"," <")
l = len (str)
t = 0
สำหรับ i = 1 ถึง l
c = abs (asc (mid (str, i, 1)))))
ถ้า (c> 255) แล้ว
t = t+2
อื่น
t = t+1
สิ้นสุดถ้า
ถ้า (t> strlen) จากนั้น
strleft = ซ้าย (str, i) & "... "
ออกจาก
อื่น
strleft = str
สิ้นสุดถ้า
ต่อไป
strleft = แทนที่ (แทนที่ (แทนที่ (แทนที่ (strleft, "", ""), chr (34), ""), ">", ">"), "<", "<", "<")
ฟังก์ชันสิ้นสุด
-
#t = รับพารามิเตอร์การส่งที่ปลอดภัย
-
-
ตรวจสอบการฉีด SQL
ฟังก์ชั่นฟังก์ชั่น: กรองคำพูดเดียวในพารามิเตอร์อักขระ, ตัดสินพารามิเตอร์ตัวเลขถ้าไม่ใช่ประเภทตัวเลขจากนั้นกำหนด 0
'พารามิเตอร์ความหมาย: str ---- พารามิเตอร์ที่จะกรอง
'ประเภทพารามิเตอร์ strtype --- แบ่งออกเป็นประเภทอักขระและประเภทตัวเลขประเภทอักขระคือ "s" และประเภทตัวเลขคือ "ฉัน"
-
ฟังก์ชั่นตรวจสอบ (str, strtype)
สลัว strtmp
strtmp = ""
ถ้า (strtype = "s") แล้ว
strtmp = แทนที่ (trim (str), "'", "' '')
elseif (strtype = "i") แล้ว
ถ้า (isnumeric (str) = false) แล้ว str = false
strtmp = str
อื่น
strtmp = str
สิ้นสุดถ้า
checkstr = strtmp
ฟังก์ชันสิ้นสุด
-
#t = ตัวกรองอักขระที่ไม่ดี (badword)
-
'ตัวกรองอักขระที่ไม่ดี (badwords)
ฟังก์ชั่น chkbadwords (fstring)
Dim Badwords, bwords, i
badwords = "ฉันมีเพศสัมพันธ์ | มีเพศสัมพันธ์คุณ | มีเพศสัมพันธ์เขา | เพศสัมพันธ์ | เพศสัมพันธ์ | สุนัข | bastard | หี | ดิ๊ก | เต่า | การข่มขืน | เพศ | เวอร์จิน | เซมิน | Falun | Falun | Hongzhi | แฟชั่น"
ถ้า (ไม่ใช่ (isnull (badwords) หรือ isnull (fstring))) แล้ว
bwords = split (badwords, "|")
สำหรับ i = 0 ถึง ubound (bwords)
fString = แทนที่ (fstring, bwords (i), สตริง (len (bwords (i)), "*"))
ต่อไป
chkbadwords = fstring
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
#t = สร้างรหัสผ่านความยาวแบบสุ่มแบบสุ่ม
-
'สร้างรหัสผ่านความยาวแบบสุ่มแบบสุ่ม
ฟังก์ชั่น makepassword (maxlen)
สลัว
หรี่ whatsnext, บน, ล่าง, intcounter
สุ่ม
สำหรับ intCounter = 1 ถึง maxlen
whatsnext = int ((1 - 0 + 1) * rnd + 0)
ถ้า (whatsnext = 0) จากนั้น
'อักขระ
บน = 90
ต่ำกว่า = 65
อื่น
บน = 57
ต่ำกว่า = 48
สิ้นสุดถ้า
strNewPass = strNewPass & chr (int ((บน - ล่าง - ล่าง + 1) * rnd + ล่าง))
ต่อไป
makepassword = strNewPass
ฟังก์ชันสิ้นสุด
'response.write makepassword (8)
-
#t = เก็บรูปแบบ inhtml เมื่อเติมใน textarea
-
-
'ลบรูปแบบ HTML ใช้เพื่อลบค่าออกจากฐานข้อมูลและกรอกข้อมูลในกล่องอินพุต
'หมายเหตุ: value = "?" นี่ต้องเป็นคำพูดสองครั้งที่นี่
-
ฟังก์ชั่น inhtml (str)
อมตะ
STEMP = STR
inhtml = ""
ถ้า isnull (stemp) = จริงแล้ว
ฟังก์ชั่นออก
สิ้นสุดถ้า
STEMP = แทนที่ (Stemp, "&", "&")
STEMP = แทนที่ (Stemp, "
", Chr (13))
STEMP = แทนที่ (Stemp, "<", "<")
STEMP = แทนที่ (Stemp, ">", ">")
STEMP = แทนที่ (Stemp, "" ", Chr (34))
inhtml = stemp
ฟังก์ชันสิ้นสุด
-
#t = ฟังก์ชั่นการตรวจสอบนิพจน์ตารางปกติ
-
'ฟังก์ชั่นการตรวจสอบการแสดงออกของตารางปกติ patrn-regular strng-string เพื่อตรวจสอบ
-
ฟังก์ชั่น regexptest (patrn, strng)
Dim regex, retval 'สร้างตัวแปร
ตั้งค่า regex = ใหม่ regexp 'สร้างนิพจน์ทั่วไป
regex.pattern = โหมด Set Patrn '
regex.ignorecase = false 'ตั้งค่าไม่ว่าจะเป็นตัวพิมพ์เล็กหรือไม่
retval = regex.test (strng) 'ทำการทดสอบการค้นหา
regexptest = retval 'ค่าส่งคืนหากไม่ตรงกันมันจะส่งคืนเท็จถ้ามันจับคู่เป็นจริง
ตั้งค่า regex = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#t = สร้างสตริงแบบสุ่ม
-
'สร้างสตริงแบบสุ่ม
ฟังก์ชั่น rndcode ()
ชุดข้อมูลสลัวชุดจำนวนเงิน
codeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ"
จำนวนเงิน = 62 'จำนวนข้อความ
สุ่ม
dim vcode (10), vcodes, i
สำหรับ i = 0 ถึง 9
vCode (i) = int (rnd * จำนวนเงิน)
VCODES = VCODES & MID (CodeSet, VCode (I) + 1, 1)
ต่อไป
rndCode = vCodes
ฟังก์ชันสิ้นสุด
-
#t ==========================================
#t = การดำเนินการที่เกี่ยวข้องกับ FSO
#t = ตรวจสอบว่ามีไดเรกทอรีอยู่หรือไม่
-
ฟังก์ชั่น iSflodeRexist (strfolderName)
ตั้งค่า fso = server.createObject ("Scripting.filesystemObject")
ถ้า (fso.folderexists (strfoldername)) แล้ว
iSflodeRexist = true
อื่น
iSfloderExist = false
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#t = สร้างไดเรกทอรี
-
ฟังก์ชั่น createFolder (strfolderName)
ตั้งค่า fso = server.createObject ("Scripting.filesystemObject")
ถ้า (fso.folderexists (strfolderName) = false) แล้ว
fso.createfolder (strfoldername)
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#t = ลบไดเรกทอรี
-
ฟังก์ชั่น deletefolder (strfoldername)
ตั้งค่า fso = server.createObject ("Scripting.filesystemObject")
ถ้า (fso.folderexists (strfoldername)) แล้ว
fso.deletefolder (strfoldername)
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#t = ตรวจสอบว่ามีไฟล์อยู่หรือไม่
-
ฟังก์ชั่น isfileexist (strfilename)
ตั้งค่า fso = server.createObject ("Scripting.filesystemObject")
ถ้า (fso.fileexists (strfilename)) แล้ว
isFileexist = true
อื่น
isFileexist = false
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#t = ลบไฟล์
-
ฟังก์ชั่น deleetefile (strfilename)
ตั้งค่า fso = server.createObject ("Scripting.filesystemObject")
ถ้า (fso.fileexists (strfilename)) แล้ว
fso.deletefile (strfilename)
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
#t ==========================================
#t = หลายฟังก์ชั่นที่ใช้กันทั่วไปโดยขโมย ASP
-
ฟังก์ชั่น bytetOSTR (VIN)
Dim Strreturn, I, ThischArcode, InnerCode, Hight8, Low8, NextCharcode
strreturn = ""
สำหรับ i = 1 ถึง lenb (vin)
thischArcode = ascb (midb (vin, i, 1))
if (thisChode <& h80) แล้ว
strreturn = Strreturn & Chr (ThisCharcode)
อื่น
NextCharcode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thischarcode) * & h100 + cint (nextcharcode))
i = i + 1
สิ้นสุดถ้า
ต่อไป
BytetOstr = strreturn
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น gethttppagecontent (url, method, sendstr)
การดึงข้อมูลสลัว
Set Retrieval = Server.CreateObject ("Microsoft.xmlhttp"))
ด้วยการดึง
. วิธีการเปิด, url, false, "", ""
.SetRequestHeader "ประเภทเนื้อหา", "แอปพลิเคชัน/x-www-form-urlencoded"
.Send (Sendstr)
gethttppagecontent = .ResponseBody
จบลงด้วย
ตั้งค่าการดึง = ไม่มีอะไร
gethttppagecontent = bytetoStr (gethttppagecontent)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น regexptext (strng, regstr)
Dim Regex, Match, Matches, Retstr
ตั้งค่า regex = ใหม่ regexp
regex.pattern = regstr
regex.ignorecase = true
regex.global = true
ตั้งค่าการจับคู่ = regex.execute (strng)
สำหรับการแข่งขันแต่ละนัดในการแข่งขัน
retstr = retstr & regex.replace (match.value, "$ 1") & ","
ต่อไป
regexpText = retstr
ตั้งค่า regex = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น StreambyTestobstr (strbody, codebase)
สลัว objstream
ตั้งค่า objstream = server.createObject ("adodb.stream"))
กับ objstream
.Type = 1
.Mode = 3
.เปิด
. เขียน strbody
.position = 0
.Type = 2
.Charset = codebase
StreambyTestObstr = .readText
.ปิด
จบลงด้วย
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
ผ่านไฟล์แก้ไขเกี่ยวกับ EditPlus ที่แนะนำโดยบรรณาธิการของช่องทางเทคโนโลยี未分ใหม่ฉันเชื่อว่าทุกคนมีความเข้าใจที่แน่นอน หากคุณต้องการทราบเนื้อหาทางเทคนิคเพิ่มเติมโปรดดำเนินการต่อเพื่อให้ความสนใจกับช่องทางเทคโนโลยีใหม่!