코드 사본은 다음과 같습니다.
<%@language = vbscriptCodePage = 936%>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++++Wrance's picture system directory direct reading version 1.0++++++++++++++++++++++++++++++++++++
'++++++++ Demo: http://www.cnecg.com/pic.asp++++++++++++++++++++++++
'+++++++ 이것은 무료 프로그램이며, 마음대로 수정할 수 있습니다. 제안서 +++++++++++ 이상에 오신 것을 환영합니다
'+++++++++ 이메일 : [email protected], qq : 74028 +++++++++++++++++++++++++++++++++++++++
'다음은 수정입니다
constuploaddir = "/ecg/upload/news/" '파일 저장을위한 디렉토리
constmaxperpage = 페이지 당 디스플레이의 30 '
consttitle = "+++ __ wrance의 그림 시스템 디렉토리 직접 읽기 버전 _" '제목
'구성 요소가 설치되어 있는지 확인하십시오
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, whatfile, thisfile, filecount, totlesize
strfilename = "?"
ifrequest ( "page") <> ""그런 다음
currentPage = cint (요청 ( "page"))
또 다른
CurrentPage = 1
endif
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 : 호버 {
글꼴 크기 : 12px;