การคัดลอกรหัสมีดังนี้:
<%@language = vbscriptCodePage = 936%>
-
-
'+++++++++ ไดเรกทอรีระบบรูปภาพของ Wrance การอ่านโดยตรงเวอร์ชัน 1.0 +++++++++++++++++++++++++++++++++++++++++++
'+++++++++ ตัวอย่าง: http://www.cnecg.com/pic.asp+++++++++++++++++++++++++++++
'++++++ นี่คือโปรแกรมฟรีคุณสามารถแก้ไขได้ตามต้องการ ยินดีต้อนรับสู่การโพสต์คำแนะนำ ++++++++++++
'+++++++++ อีเมล: [email protected], QQ: 74028 ++++++++++++++++++++++++++++++++++
'ต่อไปนี้คือการดัดแปลง
ConstupLoadDir = "/ECG/UPLOAD/News/" 'ไดเรกทอรีสำหรับการจัดเก็บไฟล์
ConstMaxPerPage = 30'Number of Display ต่อหน้า
consttitle = "+++ __ ไดเรกทอรีระบบรูปภาพของ Wrance Direct Reading เวอร์ชัน _" '
'ตรวจสอบว่ามีการติดตั้งส่วนประกอบหรือไม่
functionisobjinstalled (strclassstring)
isobjinstalled = false
err = 0
dimxtestobj
SetXtEsTOBJ = Server.CreateObject (StrClassString)
if0 = errthenisobjinstalled = true
setXtESTOBJ = ไม่มีอะไร
err = 0
endfunction
dimstrfilename
Dimtotalput, CurrentPage, TotalPages
Dimtruepath, fso, thefolder, thefile, ซึ่งไฟล์นี้, fisfile, filecount, totlesize
strfilename = "?"
ifrequest ("หน้า") <> "" แล้ว
currentPage = cint (คำขอ ("หน้า"))
อื่น
CurrentPage = 1
endif
truepath = server.mappath (uploaddir)
ifnotisobjinstalled ("scripting.filesystemobject") จากนั้น
Response.write "<b> <fontColor = สีแดง> เซิร์ฟเวอร์ของคุณไม่รองรับ FSO (Scripting.FilesYstemObject)! ฟังก์ชั่นนี้ไม่สามารถใช้ </font> </b>"
อื่น
setfso = createObject ("Scripting.filesystemObject")
-
<html>
<head>
<title> <%= title%> </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">>
<styleType = "text/css">
-
.font {
ขนาดตัวอักษร: 12px;
สี:#000000;
การตกแต่งข้อความ: ไม่มี;
TEXT-ALIGN: CENTER;
แนวตั้ง-แนว: กลาง;
ความสูงของสาย: 140%;
-
A: ลิงก์ {
ขนาดตัวอักษร: 12px;
สี:#000000;
การตกแต่งข้อความ: ขีดเส้นใต้;
-
A: โฮเวอร์ {
ขนาดตัวอักษร: 12px;