La copie de code est la suivante:
<% @ language = vbscriptCodePage = 936%>
<%
`` +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
`` ++++++++++ Wrance's Picture System Directory Reading Direct Reading version 1.0 ++++++++++++++++++++++++++++++++++++++
'+++++++++ Demo: http://www.cnecg.com/pic.asp+++++++++++++++++++++++++++
'+++++++ Il s'agit d'un programme gratuit, vous pouvez le modifier à volonté. Bienvenue pour publier des suggestions +++++++++++++
'+++++++++ Courriel: cnecg @ yahoo.com.cn, qq: 74028 +++++++++++++++++++++++++++++++
'Ce qui suit est la modification
Conseptuploaddir = "/ ecg / upload / news /" 'Directory pour stocker des fichiers
Constmaxperpage = 30'Number d'affichage par page
consttitle = "++++ __ Répertoire du système d'image de Wrance Version de lecture directe_"
'Vérifiez si le composant est installé
FunctionIsObJinstalled (StrClassString)
IsObjinstalled = false
Err = 0
Noctestobj
SetxTestObj = server.createObject (strClassString)
If0 = errtheNisoBjinStalled = true
SetxTestObj = rien
Err = 0
Finition de fin
dimstrfilename
dimtotalput, currentpage, total pages
dimtruepath, fso, thefolder, thefile, qui file, thisfile, fileCount, totlesize
strfilename = "?"
ifRequest ("page") <> "" puis
CurrentPage = Cint (demande ("page"))
autre
currentpage = 1
endire
Truepath = server.mappath (uploaddir)
IfnotiSoBjinStalled ("scripting.fileSystemObject") puis
Response.Write "<b> <FontColor = Red> Votre serveur ne prend pas en charge FSO (scripting.FileSystemObject)! Cette fonction ne peut pas être utilisée </font> </b>"
Autre
setfso = createObject ("scripting.fileSystemObject")
%>
<html>
<adal>
<TiTLE> <% = Title%> </Title>
<Metahttp-Equiv = "Content-Type" Content = "Text / Html; charSet = GB2312">
<Styletype = "Text / CSS">
<! -
.fonte{
taille de police: 12px;
Couleur: # 000000;
Décoration du texte: aucune;
Texte-aligne: Centre;
Adigne vertical: milieu;
hauteur de ligne: 140%;
}
a: lien {
taille de police: 12px;
Couleur: # 000000;
Décoration du texte: soulignement;
}
A: Hover {
taille de police: 12px;