📄 ad_photoselect.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
if trim(session("AdminName"))="" then
response.write "对不起，此功能只有管理员才能使用。"
response.end
end if
%>
<!--#include file="inc/func.asp"-->
<%
Const MaxPerPage=20
const SaveUpFilesPath_SoftPic="UploadSoftPic"
const SaveUpFilesPath_Soft="UploadSoft"
const SaveUpFilesPath="UploadThumbs"
const SaveUpFilesPath2="UploadPhotos"
dim strFileName
dim Action
dim totalPut,CurrentPage,TotalPages
dim SavePath,TruePath,fso,theFolder,theFile,thisfile,FileCount,TotalSize,TotalSize_Page
dim PhotoUrlID,strFileType
Action=trim(Request("Action"))
PhotoUrlID=trim(request("PhotoUrlID"))
if PhotoUrlID="" then
PhotoUrlID=0
else
PhotoUrlID=Clng(PhotoUrlID)
end if
strFileName="ad_PhotoSelect.asp?PhotoUrlID=" & PhotoUrlID
select case PhotoUrlID
case 999
SavePath = SaveUpFilesPath_SoftPic
case 1000
SavePath = SaveUpFilesPath_Soft
case 0
SavePath = SaveUpFilesPath
case else
SavePath = SaveUpFilesPath2
end select
if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)
TruePath=Server.MapPath(SavePath)
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<html>
<head>
<title>从已上传文件选择</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="ad_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<%
If not IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
Else
set fso=CreateObject("Scripting.FileSystemObject")
call main()
end if
sub main()
if fso.FolderExists(TruePath)=False then
response.write "找不到文件夹！可能是配置有误！"
exit sub
end if
FileCount=0
TotalSize=0
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files
FileCount=FileCount+1
TotalSize=TotalSize+theFile.Size
next
if FileCount=0 then
response.write "<p> </p><p> </p><p align='center'>没有找到任何文件！</p>"
exit sub
end if
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 & "</b> 个文件，占用 <b>" & TotalSize_Page\1024 & "</b> K</div>"
else
if (currentPage-1)*MaxPerPage<totalPut then
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotalSize_Page\1024 & "</b> K</div>"
else
currentPage=1
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotalSize_Page\1024 & "</b> K</div>"
end if
end if
end sub
sub ShowContent()
dim c
FileCount=0
TotalSize_Page=0
%>
<table width='100%' border="0" cellpadding="0" cellspacing="0">
<tr>
<form name="myform" method="Post" action="editor_SelectUpFile.asp" onsubmit="return confirm('确定要删除选中的文件吗？');">
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" class="border">
<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>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="2">
<tr>
<td colspan="2" align="center">
<%
strFileType=lcase(mid(theFile.Name,instrrev(theFile.Name,".")+1))
select case PhotoUrlID
case 999
response.write "<a href='#' onClick=""javascript:window.opener.document.myform.SoftPicUrl.value='" & SavePath & theFile.Name & "';window.close();"">"
case 1000
response.write "<a href='#' onClick=""javascript:window.opener.document.myform.DownloadUrl1.value='" & SavePath & theFile.Name & "';window.opener.document.myform.SoftSize.value='" & round(theFile.size/1024) & "';window.close();"">"
case 0
response.write "<a href='#' onClick=""javascript:window.opener.document.myform.PhotoUrl_Thumb.value='" & SavePath & theFile.Name & "';window.opener.document.myform.PhotoSize_Thumb.value='" & round(theFile.size/1024) & "';window.close();"">"
case 1
response.write "<a href='#' onClick=""javascript:window.opener.document.myform.PhotoUrl.value='" & SavePath & theFile.Name & "';window.opener.document.myform.PhotoSize.value='" & round(theFile.size/1024) & "';window.close();"">"
case else
response.write "<a href='#' onClick=""javascript:window.opener.document.myform.PhotoUrl" & PhotoUrlID & ".value='" & SavePath & theFile.Name & "';window.opener.document.myform.PhotoSize" & PhotoUrlID & ".value='" & round(theFile.size/1024) & "';window.close();"">"
end select
select case strFileType
case "jpg","gif","bmp","png"
response.write "<img src='" & SavePath & theFile.Name & "' width='140' height='100' border='0' title='点此图片将返回，点下面的文件名将查看原始文件！'></a>"
case "swf"
response.write "<img src='images/filetype_flash.gif' width='140' height='100' border='0'></a>"
case "wmv","avi","asf","mpg"
response.write "<img src='images/filetype_media.gif' width='140' height='100' border='0'></a>"
case "rm","ra","ram"
response.write "<img src='images/filetype_rm.gif' width='140' height='100' border='0'></a>"
case "rar"
response.write "<img src='images/filetype_rar.gif' width='140' height='100' border='0'></a>"
case "zip"
response.write "<img src='images/filetype_zip.gif' width='140' height='100' border='0'></a>"
case "exe"
response.write "<img src='images/filetype_exe.gif' width='140' height='100' border='0'></a>"
case else
response.write "<img src='images/filetype_other.gif' width='140' height='100' border='0'></a>"
end select
%>
</td></tr>
<tr>
<td align="right">文 件 名：</td>
<td><a href="<%=(SavePath & theFile.Name)%>" target="_blank"><%=theFile.Name%></a></td>
</tr>
<tr>
<td align="right">文件大小：</td>
<td><%=round(theFile.size/1024) & " K"%></td>
</tr>
<tr>
<td align="right">文件类型：</td>
<td><%=theFile.type%></td>
</tr>
<tr>
<td align="right">修改时间：</td>
<td><%=theFile.DateLastModified%></td>
</tr>
</table></td>
<%
FileCount=FileCount+1
if FileCount mod 4=0 then response.write "</td><tr class='tdbg'>"
TotalSize_Page=TotalSize_Page+theFile.Size
end if
Next
%>
</tr>
</table>
</td>
</form></tr></table>
<%
end sub
%>
</body>
</html>
<%
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> 个文件，占用 <b>" & TotalSize\1024 & "</b> K "
sfilename=JoinChar(sfilename)
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='javascript: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>"
response.write strTemp
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -