Die Codekopie lautet wie folgt:
<%@Sprache = vbScriptCodePage = 936%>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+++++++++ Wrance's Bildsystem Directory Direct Leading Version 1.0 +++++++++++++++++++++++++++++ -
'++++++++ Demo: http://www.cnecg.com/pic.asp++++++++++++++++++++++
'++++++ Dies ist ein kostenloses Programm. Sie können es nach Belieben ändern. Willkommen zu Post -Vorschlägen +++++++++++++
'++++++++ E -Mail: [email protected], QQ: 74028 ++++++++++++++++++++++++
'Das Folgende ist die Modifikation
Constuploaddir = "/EKG/Upload/News/" 'Verzeichnis zum Speichern von Dateien
ConstmaxPerPage = 30'number der Anzeige pro Seite
Consttitle = "+++ __ Wrance's Bildsystem Verzeichnis Direkter Lesung Version_" 'Titel
'Überprüfen Sie, ob die Komponente installiert ist
Functionisobjinstalled (StrclassString)
Isobjinstalled = false
Err = 0
DimXTestObj
SetxtestObj = server.createObject (strclassString)
If0 = errthenisobjinstalled = true
SetxtestObj = nichts
Err = 0
Endfunktion
Dimstrelleiname
Dimtotalput, Strompage, Gesamtpagen
Dimtruepath, fso, TheFolder, TheFile, welche Datei, diese Datei, FileCount, Totlesize
strFileName = "?"
IfRequest ("Seite") <> "" dann
CurrentPage = cint (request ("Seite"))
anders
currentPage = 1
Endif
Truepath = Server.Mappath (UploadDir)
Ifnotisobjinstalled ("scripting.FilesSystemObject") dann
Response.write "<b> <fontcolor = rot> Ihr Server unterstützt FSO nicht (scripting.FilesSystemObject)! Diese Funktion kann nicht verwendet werden </font> </b>"
Anders
setfso = createObject ("scripting.filesystemObject")
%>
<html>
<kopf>
<title> <%= title%> </title>
<metahttp-äquiv = "content-type" content = "text/html; charSet = gb2312">
<Syletyps = "text/css">
<!-
.Schriftart{
Schriftgröße: 12px;
Farbe:#000000;
Textdekoration: Keine;
Text-Align: Mitte;
vertikaler Align: Mitte;
Linienhöhe: 140%;
}
A: Link {
Schriftgröße: 12px;
Farbe:#000000;
Textdekoration: Unterstreichung;
}
A: Hover {
Schriftgröße: 12px;