แนะนำ: เคล็ดลับการตั้งค่า ASP สำหรับการใช้ FCKEditor 1. เปิดไฟล์ fckconfig.js ในภาษาเริ่มต้น (สัมพันธ์กับโฟลเดอร์ FCKEditor ด้านล่างเหมือนกัน) เปลี่ยนภาษาการตรวจจับอัตโนมัติเป็นการตรวจจับและเปลี่ยนภาษาเริ่มต้นเป็นภาษาจีนที่ง่ายขึ้น fckconfig.defaultLanguage = 'zh-cn'; 2. เปิดไฟล์ fckconfig.js ในรายการตัวอักษรในรายการตัวอักษร
-
'รวบรวมโดย: จางฮุ่ย
'รหัสโปรแกรมเมอร์: WJ008
'เวลารวบรวม: 1 มิถุนายน 2551
'ที่อยู่ติดตาม: www.wj008.net
'ที่อยู่ไฟล์ทั้งหมดที่ใช้โดยฟังก์ชั่นใช้ที่อยู่สัมบูรณ์
-
'โหลดไฟล์ (byval) โหลดไฟล์ที่มีอยู่และสร้างสตริงเพื่อส่งคืนเนื้อหาของไฟล์
'savetofile (byval strbody, byval file) บันทึกไฟล์ที่เปลี่ยนแปลง, strbody เป็นสตริงใหม่
'delfile (ไฟล์ byval) ลบไฟล์ที่มีอยู่
'โหลดไฟล์ที่มีอยู่ไฟล์คือพา ธ ไฟล์
-
ฟังก์ชั่นโหลดไฟล์ (ไฟล์ byval)
สลัว objstream
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า objstream = server.createObject (adodb.stream)
ถ้า err.number = -2147221005 แล้ว
Response.write น่าเสียดายที่โฮสต์ของคุณไม่รองรับ ADODB.stream และไม่สามารถใช้โปรแกรมนี้ได้
err.lear
Response.end
สิ้นสุดถ้า
กับ objstream
.Type = 2
.Mode = 3
.เปิด
ไฟล์. loadfromfile
ถ้า err.number <> 0 แล้ว
Response.write File & File & ไม่สามารถเปิดได้โปรดตรวจสอบว่ามีอยู่!
err.lear
Response.end
สิ้นสุดถ้า
.Charset = GB2312
.position = 2
loadfile = .readText
.ปิด
จบลงด้วย
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น savetofile (byval strbody, byval file) 'บันทึกไฟล์เปิดไฟล์คือพา ธ ไฟล์ที่บันทึกไว้ strbody เป็นเนื้อหาที่บันทึกไว้
สลัว objstream
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า objstream = server.createObject (adodb.stream)
ถ้า err.number = -2147221005 แล้ว
Response.write <div align = 'center'> น่าเศร้าโฮสต์ของคุณไม่รองรับ adoDb.stream และคุณไม่สามารถใช้โปรแกรมนี้ </div>
err.lear
Response.end
สิ้นสุดถ้า
กับ objstream
.Type = 2
.เปิด
.Charset = GB2312
.position = objstream.size
.writeText = strbody
ไฟล์. savetofile, 2
.ปิด
จบลงด้วย
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น delfile (ไฟล์ byval)
dim objfilesys
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า objfilesys = server.createObject (scripting.filesystemobject)
ถ้า objfilesys.fileexists (ไฟล์) จากนั้น 'ถ้าไฟล์มีอยู่ให้ลบไฟล์เป็นพา ธ ไฟล์
ไฟล์ OBJFILESYS.DELETEFILE
สิ้นสุดถ้า
ถ้า err.number <> 0 แล้ว
response.write ไฟล์และไฟล์ & ไม่สามารถลบได้ไฟล์อาจถูกใช้งานโดยระบบ!
err.lear
Response.end
สิ้นสุดถ้า
ตั้งค่า objfilesys = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'ตรวจสอบว่าไฟล์มีอยู่หรือไม่
ฟังก์ชั่น checkfile (sfilename)
checkFile = false
dim objfilesys
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า objfilesys = server.createObject (scripting.filesystemobject)
ถ้า objfilesys.fileexists (sfilename) จากนั้น 'ถ้าไฟล์มีอยู่ให้ลบไฟล์เป็นพา ธ ไฟล์
checkfile = true
สิ้นสุดถ้า
ตั้งค่า objfilesys = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'ตรวจสอบว่ามีโฟลเดอร์อยู่หรือไม่
ฟังก์ชั่น checkfolder (chk_path)
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
ถ้า fso.folderexists (chk_path) = false แล้ว
checkFolder = FALSE
อื่น
checkFolder = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'รับชื่อไฟล์ต่อท้าย
ฟังก์ชั่น getFileext (sfilename)
getFileExt = UCase (mid (sfilename, instrrev (sfilename,.)+1))
ฟังก์ชันสิ้นสุด
-
'ฟังก์ชั่น: ASP อัปโหลดช่องโหว่/0 การป้องกัน
'ชื่อฟังก์ชั่น: Truestr (filetrue)
'พารามิเตอร์: ชื่อไฟล์ sfilename
'ค่าส่งคืน: ส่งคืนจริงสำหรับไฟล์กฎหมายมิฉะนั้นส่งคืนเท็จ
-
ฟังก์ชั่น istruefilename (sfilename)
สลัว str_len, pos
str_len = len (sfilename)
pos = instr (sfilename, chr (0))
ถ้า pos = 0 หรือ pos = str_len แล้ว
IstrueFileName = true
อื่น
IstrueFileName = FALSE
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'ฟังก์ชั่น: ตรวจพบว่าไฟล์ภาพที่อัปโหลด (JPEG, GIF, BMP, PNG) เป็นภาพจริงๆ
'ชื่อฟังก์ชั่น: Truestr (filetrue)
'พารามิเตอร์: ชื่อไฟล์ sfilename (ที่นี่ชื่อไฟล์เป็นเส้นทางเต็มรูปแบบของโฟลเดอร์)
'ค่าส่งคืน: หากเป็นไฟล์ภาพแน่นอนมันจะส่งคืนจริงมิฉะนั้นมันจะส่งคืนเท็จ
-
ฟังก์ชั่น isimgfile (sfilename)
const adtypebinary = 1
Dim return
Dim JPG (1): JPG (0) = CBYTE (& HFF): JPG (1) = CBYTE (& HD8)
Dim BMP (1): BMP (0) = CBYTE (& H42): BMP (1) = CBYTE (& H4D)
Dim Png (3): PNG (0) = CBYTE (& H89): PNG (1) = CBYTE (& H50): PNG (2) = CBYTE (& H4E): PNG (3) = CBYTE (& H47)
Dim Gif (5): GIF (0) = CBYTE (& H47): GIF (1) = CBYTE (& H49): GIF (2) = CBYTE (& H46): GIF (3) = CBYTE (& H39): GIF (4) = CBYTE (& H38): GIF (5) = CBYTE (
เมื่อเกิดข้อผิดพลาดต่อไป
แชร์: อินเทอร์เฟซฐานข้อมูลสำหรับการสืบค้นชื่อโดเมน ASP เวอร์ชัน % เกี่ยวกับข้อผิดพลาดกลับมาทำงานต่อไป D_EXSIT DIM DIM DIM DIM DIM DIM DIM TANDHTML ฟังก์ชั่น getURL (URL) SET SET = SERVER.CREATEOBJECT (Microsoft.xmlhttp) ด้วยการดึง. เปิด url, false,.
3 หน้ารวมหน้าก่อนหน้า 123 หน้าถัดไป