复制代码代码如下:
<%@language=vbscriptcodepage=936%>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++Wrance的图片系统目录直读版1.0+++++++++++++++++++++++
'++++++演示：http://www.cnecg.com/pic.asp++++++++++++++++++
'++++++此为免费程序，您可以任意修改，欢迎发表建议++++++++++
'++++++Email:[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=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>你的服务器不支持FSO(Scripting.FileSystemObject)!不能使用本功能</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;