The code copy is as follows:
<%@language=vbscriptcodepage=936%>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++++Wrance's picture system directory direct reading version 1.0++++++++++++++++++++++++++++++++++++
'++++++++ Demo: http://www.cnecg.com/pic.asp++++++++++++++++++++++++
'++++++ This is a free program, you can modify it at will. Welcome to post suggestions++++++++++++
'++++++++Email:[email protected],QQ:74028++++++++++++++++++++++++++++
'The following is the modification
ConstUploadDir="/ecg/upload/news/"'Directory for storing files
ConstMaxPerPage=30'Number of display per page
consttitle="+++__Wrance's picture system directory direct reading version_"' title
'Check if the component is installed
FunctionIsObjInstalled(strClassString)
IsObjInstalled=False
Err=0
DimxTestObj
SetxTestObj=Server.CreateObject(strClassString)
If0=ErrThenIsObjInstalled=True
SetxTestObj=Nothing
Err=0
EndFunction
dimstrFileName
dimtotalPut,CurrentPage,TotalPages
dimTruePath,fso,theFolder,theFile, whichfile,thisfile,FileCount,TotleSize
strFileName="?"
ifrequest("page")<>""then
CurrentPage=cint(request("page"))
else
currentPage=1
endif
TruePath=Server.MapPath(UploadDir)
IfnotIsObjInstalled("Scripting.FileSystemObject") Then
Response.Write"<b><fontcolor=red>Your server does not support FSO(Scripting.FileSystemObject)! This function cannot be used</font></b>"
Else
setfso=CreateObject("Scripting.FileSystemObject")
%>
<html>
<head>
<title><%=title%></title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<styletype="text/css">
<!--
.font{
font-size:12px;
color:#000000;
text-decoration:none;
text-align:center;
vertical-align:middle;
line-height:140%;
}
a:link{
font-size:12px;
color:#000000;
text-decoration:underline;
}
a:hover{
font-size:12px;