複製代碼代碼如下:
<%@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;