asp图片目录直读

[ 2004-09-09 00:40:39 | Author: zhenhua ]
Font Size: Large | Medium | Small
<%@language=vbscript codepage=936 %>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++Wrance的图片系统目录直读版1.0+++++++++++++++++++++++
'++++++演示:http://www.cnecg.com/pic.asp++++++++++++++++++
'++++++此为免费程序,您可以任意修改,欢迎发表建议++++++++++
'++++++Email:cnecg@yahoo.com.cn,QQ:74028+++++++++++++++++++

'以下为修改内容
Const UploadDir="/uptupian" '存放文件的目录
Const MaxPerPage=30 '每页显示数量
const title="+++__Wrance的图片系统目录直读版_ " '标题

'检查组件是否已经安装
Function IsObjInstalled(strClassString)
 IsObjInstalled = False
 Err = 0
 Dim xTestObj
 Set xTestObj = Server.CreateObject(strClassString)
 If 0 = Err Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err = 0
End Function
dim strFileName
dim totalPut,CurrentPage,TotalPages
dim TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize
strFileName="?"

if request("page")<>"" then
 currentPage=cint(request("page"))
else
 currentPage=1
end if

TruePath=Server.MapPath(UploadDir)
If not IsObjInstalled("Scripting.FileSystemObject") Then
 Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
Else
 set fso=CreateObject("Scripting.FileSystemObject")

%>
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="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;
 color: #999999;
 text-decoration: none;
}
a:visited {
 font-size: 12px;
 color: #0088B5;
 text-decoration: underline;
}
-->
</style>
</head>
<body>
<div align=center>
<%=title%><br>
 <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
 <tr>
 <td width="100%" align="center" valign="top">
 
 <%
 if fso.FolderExists(TruePath)then
 FileCount=0
 TotleSize=0
 Set theFolder=fso.GetFolder(TruePath)
 For Each theFile In theFolder.Files
 FileCount=FileCount+1
 TotleSize=TotleSize+theFile.Size
 next
 totalPut=FileCount
 if currentpage<1 then
 currentpage=1
 end if
 if (currentpage-1)*MaxPerPage>totalput then
 if (totalPut mod MaxPerPage)=0 then
 currentpage= totalPut \ MaxPerPage
 else
 currentpage= totalPut \ MaxPerPage + 1
 end if

 end if
 if currentPage=1 then
 showContent
 showpage2 strFileName,totalput,MaxPerPage
 response.write "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K</div>"
 else
 if (currentPage-1)*MaxPerPage<totalPut then
 showContent
 showpage2 strFileName,totalput,MaxPerPage
 response.write "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K</div>"
 else
 currentPage=1
 showContent
 showpage2 strFileName,totalput,MaxPerPage
 response.write "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K</div>"
 end if
 end if
 else
 response.write "找不到文件夹!可能是配置有误!"
 end if
end if

sub showContent()
 dim c
 FileCount=1
 TotleSize=0
%>
 <table width="100%" border="0" align="center" cellpadding="5" cellspacing="5">
 <tr class="tdbg">
 <% For Each theFile In theFolder.Files
 c=c+1
 if FileCount>MaxPerPage then
 exit for
 elseif c>MaxPerPage*(CurrentPage-1) then %>
 <td><a href="<%=(UploadDir & theFile.Name)%>" target="_blank">
<img src=<%=(UploadDir & theFile.Name)%> border=0 width=120 height=150></a></td>
<% if FileCount mod 5 =0 then%>
 </TR>
 <tr>
 <%end if%>
 <% FileCount=FileCount+1
 TotleSize=TotleSize+theFile.Size
 end if
Next
%> </tr>
 </table>
 <%
end sub
%>
 </td>
 </tr>
</table>
<%
sub showpage2(sfilename,totalnumber,maxperpage)
 dim n, i,strTemp
 if totalnumber mod maxperpage=0 then
 n= totalnumber \ maxperpage
 else
 n= totalnumber \ maxperpage+1
 end if
 strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>"
 strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个文件 "
 if CurrentPage<2 then
 strTemp=strTemp & "首页 上一页 "
 else
 strTemp=strTemp & "<a href='" & sfilename & "page=1'>首页</a> "
 strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage-1) & "'>上一页</a> "
 end if

 if n-currentpage<1 then
 strTemp=strTemp & "下一页 尾页"
 else
 strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage+1) & "'>下一页</a> "
 strTemp=strTemp & "<a href='" & sfilename & "page=" & n & "'>尾页</a>"
 end if
 strTemp=strTemp & " 页次:<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
 strTemp=strTemp & " <b>" & maxperpage & "</b>" & "个文件/页"
 strTemp=strTemp & " 转到:<select name='page' size='1' onchange='Java Script : submit()'>"
 for i = 1 to n
 strTemp=strTemp & "<option value='" & i & "'"
 if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
 strTemp=strTemp & ">第" & i & "页</option>"
 next
 strTemp=strTemp & "</select>"
 strTemp=strTemp & "</td></tr></form></table>"
 strTemp=strTemp & "<font color='#0083AE'> "
 strTemp=strTemp & "Copyright 2004 CnEcg.com All Rights Reserved 版权所有 +++__Wrance的图片系统目录直读版_ 1.0<br>"
 strTemp=strTemp & "设计制作:Wrance Email:cnecg@yahoo.com.cn QQ:74028</font>"
 response.write strTemp
end sub
%>

Comments Feed Comments Feed: http://www.zhenhua.org/feed.asp?q=comment&id=160
UTF-8 Encoding Trackback URL: http://www.zhenhua.org/trackback.asp?id=160

There is no comment on this article.

If you feel this site you find this information helpful, please click on the donation, which is voluntary,Thank you.
Post Comment
Smilies
[arrow] [biggrin] [confused] [cool]
[cry] [eek] [evil] [exclaim]
[frown] [idea] [lol] [mad]
[mrgreen] [neutral] [question] [razz]
[redface] [rolleyes] [sad] [smile]
[surprised] [twisted] [wink]
Enable UBB Codes
Auto Convert URL
Show Smilies
Hidden Comment
Username:   Password:   Register Now?
Security Code * Please Enter the Security Code