แนะนำ: การตีความรายการข้อผิดพลาดทั่วไปของ ASP ที่สมบูรณ์ ActiveServerPages, ASP0126 (0x80004005)-ไม่พบไฟล์รวม Microsoft OLEDBPROVIDERFORODBCDRIVERS (0x80040E21)-ข้อผิดพลาดที่เกิดขึ้นในคำสั่ง SQL OLEDBPROVIDERFORODBCDRIVERS (0x800
-
-
'การนำทางฟังก์ชั่น
'FormatDate (DT, TP) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Isinteger (Para) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Chkrequestdate (Para) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'chkpost () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Isvalidemail (อีเมล) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'makedownname () ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'getip () --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'lefttrue (str, n) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'checksQl () - เพื่อความปลอดภัยของระบบเพิ่มภูมิคุ้มกันการฉีด SQL โดยตรงที่มีการเชื่อมต่อฐานข้อมูล
'runtime () --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
'CheckFolder (FolderPath) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'DELETEFOLDER (FolderPath) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'FileHaveno (ชื่อไฟล์) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'ReadFileRecord (ชื่อไฟล์) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'writestring (สตริงชื่อไฟล์) ------------------------------ เขียนสตริงที่ระบุไปยังไฟล์ใหม่ที่ระบุ
-
'Encrypt (THENUMBER) | DECRYPT (THENUMBER) ชุดของฟังก์ชั่นที่เข้ารหัสและถอดรหัสรหัสได้สูงสุด 8 บิต
'UTF2GB (UTFSTR) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'toutf8 (szinput) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C10to2 (x) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C16to2 (x) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C2TO16 (X) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C2TO10 (X) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-
-
starttime = timer ()
'การจัดรูปแบบวันที่
Function FormatDate (DT, TP)
Dim y, m, d
y = ปี (dt)
m = เดือน (dt)
d = วัน (dt)
ถ้า m <10 ดังนั้น m = 0 & m
ถ้า d <10 ดังนั้น d = 0 & d
เลือกเคส TP
กรณีที่ 1 FormatDate = Y & Y & M & M & M & D&D
กรณีที่ 2 formatDate = y &/& m & & & d
กรณีที่ 3 FormatDate = M &/& D
กรณีที่ 4 formatDate = y &/& m &/& d
กรณีที่ 5 FormatDate = Y &-& M &-& D
สิ้นสุดเลือก
ฟังก์ชันสิ้นสุด
-
'--- ตัดสินว่าข้อมูลเป็นจำนวนเต็มหรือไม่ -----------------------------------------
ฟังก์ชั่น isinteger (para)
DIM STR
สลัวฉันฉัน
ถ้า isnull (para) แล้ว
isInteger = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
str = cstr (para)
ถ้าตัดแต่ง (str) = จากนั้น
isInteger = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
l = len (str)
สำหรับ i = 1 ถึง l
ถ้า mid (str, i, 1)> 9 หรือ mid (str, i, 1) <0 แล้ว
isInteger = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
ต่อไป
Isinteger = true
ถ้า err.number <> 0 จากนั้น err.clear
ฟังก์ชันสิ้นสุด
-
'ตรวจจับว่าพารามิเตอร์ที่ผ่านเป็นวันที่วันที่
ฟังก์ชั่น chkrequestdate (para)
chkrequestdate = false
ถ้าไม่ใช่ (isnull (para) หรือ trim (para) = หรือไม่ isdate (para)) แล้ว
chkrequestdate = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
แบ่งปัน: ASP ใช้รหัสสำหรับบทความยาวเพจ Manual Paged % setRecordSet1 = server.createObject (adoDB.RecordSet) exec = select*fromnewswhereid = idefetset1.openexec, Conn, 1,1 % tablewidth = 85 % border = 0Align = centercellpadding = 3CellSpacing = 0 trtd ...
6 หน้ารวมหน้าก่อนหน้า 123456NEXT หน้า