A cópia do código é a seguinte:
<%@idioma = vBScriptCodePage = 936%>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+++++++++ Diretório do sistema de figuras da WRANCE DIRETOR LEITURA DIRETA VERSÃO 1.0 ++++++++++++++++++++++++++++++++++
'++++++++ Demo: http://www.cnecg.com/pic.asp+++++++++++++++++++++++
'++++++ Este é um programa gratuito, você pode modificá -lo à vontade. Bem -vindo ao post sugestões ++++++++++++
'++++++++ email: [email protected], qq: 74028 ++++++++++++++++++++++++++
'O seguinte é a modificação
Constuploaddir = "/ECG/Upload/News/" 'Diretório para armazenar arquivos
ConstmaxPerpage = 30'Number of Display por página
consttitle = "+++ __ Wran's Picture System Directory Reading Direct Version_" 'Título
'Verifique se o componente está instalado
FunctionIsObjinstalled (strclassString)
Isobjinstalled = false
Err = 0
Dimxtestobj
Setxtestobj = server.createObject (strclassString)
If0 = errThenisObjInstalled = true
Setxtestobj = nada
Err = 0
Função final
Dimstrfilename
Dimtotalput, CurrentPage, TotalPages
Dimtruepath, FSO, TheFolder, Thefile, que arquivo, este arquivo, FileCount, Totlesize
strfilename = "?"
ifrequest ("página") <> "" então
Currentpage = cint (request ("página")))
outro
CurrentPage = 1
endif
Truepath = server.mappath (uploaddir)
IfnotisObjInstalled ("scripting.filesystemoBject") então
Response.Write "<b> <fontcolor = vermelho> Seu servidor não suporta FSO (scripting.filesystemObject)! Esta função não pode ser usada </font> </b>"
Outro
setfso = createObject ("script.filesystemoBject")
%>
<html>
<head>
<title> <%= title%> </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<styleType = "text/css">
<!-
.fonte{
tamanho de fonte: 12px;
Cor:#000000;
Decoração de texto: Nenhum;
Alinhamento de texto: centro;
Alinhamento vertical: meio;
altura da linha: 140%;
}
A: Link {
tamanho de fonte: 12px;
Cor:#000000;
Decoração de texto: sublinhado;
}
A: Hover {
tamanho de fonte: 12px;