Кода -копия выглядит следующим образом:
<%@language = vbscriptCodepage = 936%>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++++Wrance's picture system directory direct reading version 1.0++++++++++++++++++++++++++++++++++++
'++++++++ демо: http://www.cnecg.com/pic.asp+++++++++++++++++++++++++
'++++++ Это бесплатная программа, вы можете изменить ее по желанию. Добро пожаловать, чтобы опубликовать предложения +++++++++++++
'++++++++ Электронная почта: [email protected], QQ: 74028 ++++++++++++++++++++++++++++++
'Ниже приводится модификация
ConstuPloadDir = "/ECG/upload/News/" "Каталог для хранения файлов
Constmaxperpage = 30' -inumber of Display на страницу
constitle = "+++ __ Wrance's Picture Directory Directory Direct Reading Version_"
'Проверьте, установлен ли компонент
Functionisobjinstalled (strclassstring)
Isobjinstalled = false
Err = 0
Dimxtestobj
Setxtestobj = server.createObject (strClassString)
If0 = errthenisobjinstalled = true
Setxtestobj = ничего
Err = 0
Конечная функция
DimStrfilename
DimTotalput, CurrentPage, TotalPages
DimTruePath, FSO, TheFolder, TheFile, что файл, это файл, FileCount, Totlesize
strfilename = "?"
ifrequest ("page") <> "" then
CurrentPage = cint (запрос ("страница"))
еще
CurrentPage = 1
эндиф
Truepath = server.mappath (uploaddir)
Ifnotisobjinstalled ("scripting.filesystemobject") тогда
Response.write "<b> <fontcolor = red> Ваш сервер не поддерживает fso (scripting.filesystemobject)! Эта функция не может быть использована </font> </b>"
Еще
setfso = createObject ("scripting.filesystemobject")
%>
<html>
<голова>
<title> <%= title%> </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<styletype = "text/css">
<!-
.шрифт{
размер шрифта: 12px;
Цвет:#000000;
Текстовое декорация: нет;
Текст-альбом: Центр;
Вертикальная атака: средняя;
высота линии: 140%;
}
A: ссылка {
размер шрифта: 12px;
Цвет:#000000;
Текстовое декорация: подчеркивание;
}
A: Hover {
размер шрифта: 12px;