Salinan kode adalah sebagai berikut:
<%@bahasa = vbscriptCodepage = 936%>
<%
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++++ Wrance's Picture's Picture System Directy Direct Reading Versi 1.0 ++++++++++++++++++++++++++++++++++++
Demo '++++++++: http://www.cnecg.com/pic.asp+++++++++++++++++++++++
'++++++ Ini adalah program gratis, Anda dapat memodifikasinya sesuka hati. Selamat datang di Saran Posting +++++++++++++
'+++++++++ Email: [email protected], qq: 74028 ++++++++++++++++++++++++++++
'Berikut ini adalah modifikasi
ConsuPloaddir = "/EKG/UEDLOAD/NEWS/" Direktori untuk menyimpan file
Constmaxperpage = 30'mumber tampilan per halaman
consttitle = "+++ __ Judul Sistem Bacaan Sistem Wrance Wrance Version_"
'Periksa apakah komponen diinstal
FunctionIsObjinstalled (strclassString)
Isobjinstalled = false
Err = 0
DimxtestObj
SetxtestoBj = server.createObject (strclassString)
If0 = errthenisobjinstalled = true
SetxtestoBj = tidak ada
Err = 0
Fungsi endfungsi
Dimstrfilename
dimtotalput, halaman lancar, totalpage
DiMtruepath, fso, TheFolder, Thefile, Whatfile, file, filecount, totlesiSeze
Strfilename = "?"
ifRequest ("halaman") <> "" Lalu
Currentpage = cint (request ("page"))
kalau tidak
currentpage = 1
endif
Truepath = server.mappath (unggah)
Ifnotisobjinstalled ("Scripting.filesystemObject") Lalu
Response.write "<b> <fontcolor = red> server Anda tidak mendukung fso (skripting.filesystemObject)! Fungsi ini tidak dapat digunakan </font> </b>"
Kalau tidak
setFSO = createObject ("Scripting.FilesystemObject")
%>
<Html>
<head>
<title> <%= title%> </itement>
<metahttp-equiv = "konten-tipe" content = "text/html; charset = gb2312">
<styleType = "text/css">
<!-
.font {
font-size: 12px;
Warna:#000000;
Dekorasi Teks: Tidak Ada;
Teks-Align: tengah;
Vertikal-Align: tengah;
Line-Height: 140%;
}
A: link {
font-size: 12px;
Warna:#000000;
dekorasi teks: garis bawah;
}
A: Hover {
font-size: 12px;