نسخة الكود كما يلي:
<٪@language = vbscriptCodePage = 936 ٪>
<٪
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+++++++++ wrance's system system directory direct direct direct regning 1.0 +++++++++++++++++++++++++++++++++++++++
'++++++++ demo: http://www.cnecg.com/pic.asp++++++++++++++++++++++++
'++++++ هذا برنامج مجاني ، يمكنك تعديله في الإرادة. مرحبًا بك في Post Post Posts ++++++++++++
'+++++++ email: [email protected] ، qq: 74028 +++++++++++++++++++++++++++
ما يلي هو التعديل
constuploaddir = "/ECG/تحميل/أخبار/" "دليل لتخزين الملفات
constmaxperpage = 30'number من العرض لكل صفحة
consttitle = "+++ __ Wrance's System System Directory Direct Reading Version_" '' '
تحقق مما إذا تم تثبيت المكون
FunctionIsobjinstalled (StrclassString)
isobjinstalled = false
خطأ = 0
dimxtestobj
setxtestobj = server.createBject (strclassString)
if0 = errthenisobjinstalled = true
setxtestobj = لا شيء
خطأ = 0
الوظيفية
dimstrfilename
DimTotalput ، page current ، total pages
Dimtruepath ، fso ، thefolder ، thefile ، thanfile ، thisfile ، fileCount ، totlesize
strfilename = "؟"
ifrequest ("صفحة") <> "ثم
CurrentPage = Cint (طلب ("صفحة")))
آخر
PARTERPAGE = 1
Endif
truepath = server.mappath (UploadDir)
ifnotisobjinstalled ("scripting.filesystemObject") ثم
استجابة. write "<b> <FontColor = Red> لا يدعم الخادم الخاص بك 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 {
حجم الخط: 12 بكسل ؛
اللون:#000000 ؛
تدمير النص: لا شيء ؛
محاذاة النص: المركز ؛
المحاذاة الرأسية: الأوسط ؛
ارتفاع الخط: 140 ٪ ؛
}
ج: الرابط {
حجم الخط: 12 بكسل ؛
اللون:#000000 ؛
تدمير النص: تسطير ؛
}
ج: تحوم {
حجم الخط: 12 بكسل ؛