28,391
社区成员
发帖
与我相关
我的任务
分享asp能实现这样的功能吗？？
我们单位服务器上面很多电影如果为了让大家方便查找，一部一部手工归类太慢了，而且还要专门维护。我想哪位高手能指点一下，能否用asp实现这样的功能：
客户端发出搜索请求-服务端响应-对指定文件夹或磁盘进行搜索-将搜索结果返回客户端
感谢了！
客户端发出搜索请求-服务端响应-对指定文件夹或磁盘进行搜索-将搜索结果返回客户端
感谢了！
...全文
请发表友善的回复…
发表回复
xiaominjun 2009-02-03
- 打赏
- 举报
其实 那种 asp 木马最适合了。。就是功能大了点 有的网站有图片管理功能。基本上改改就适合了。。就是用FSO遍历文件夹内的文件。可以吧？
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<!--#include file="include.asp"-->
<html>
<head>
<title>
<% = strSystemName%>
</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="site.css" rel="stylesheet" type="text/css">
</head>
<%
function formatNum(num)
if num="" or isnull(num) or isempty(num) then exit function
if instr(formatNumber(num,2),".")=1 then
formatNum = "0"&formatNumber(num,2)
else
formatNum = formatNumber(num,2)
end if
end function
Const MaxPerPage=10
dim strFileName
dim totalPut,CurrentPage,TotalPages
dim UploadDir,TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize
strFileName="UploadFileManage.asp"
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
if right(SaveUpFilesPath,1)<>"/" then
UploadDir="../userimages/"
else
UploadDir="../userimages"
end if
TruePath=Server.MapPath("../userimages")
If not IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
Else
set fso=CreateObject("Scripting.FileSystemObject")
if request("Action")="Del" then
whichfile=server.mappath(Request("FileName"))
Set thisfile = fso.GetFile(whichfile)
thisfile.Delete True
end if
%>
<script language="JavaScript">
function ConfirmDel()
{
if (confirm("你真的要删除此文件吗!"))
return true;
else
return false;
}
</script>
<body style="font-size:12px;" leftMargin="0" topMargin="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="862" style="font-size:12px;" align="center" valign="top"><br>
<p align="center"><strong>上 传 文 件 管 理</strong></p>
<%
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
showpage2 strFileName,totalput,MaxPerPage
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
else
if (currentPage-1)*MaxPerPage<totalPut then
showpage2 strFileName,totalput,MaxPerPage
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
else
currentPage=1
showpage2 strFileName,totalput,MaxPerPage
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
end if
end if
else
response.write "找不到文件夹！可能是配置有误！"
end if
end if
sub showContent()
dim c
FileCount=0
TotleSize=0
%>
<table style="font-size:12px;" width="600" border="0" align="center" cellpadding="0" cellspacing="2" class="border">
<tr bgcolor="#39867B" style="color:white;font-weight:bold;" class="title">
<td width="158" height="25" align="center">文件名</td>
<td width="84" height="20" align="center">文件大小</td>
<td width="134" height="20" align="center">文件类型</td>
<td width="119" height="20" align="center">最后修改时间</td>
<td width="43" height="20" align="center">操作</td>
</tr>
<%
For Each theFile In theFolder.Files
c=c+1
if FileCount>=MaxPerPage then
exit for
elseif c>MaxPerPage*(CurrentPage-1) then
%>
<tr class="bottom">
<td align="center" height="22"><a title="点击查看大图" href="<%=(UploadDir & theFile.Name)%>" target="_blank">
<%if thefile.type="JPG 文件" or thefile.type="GIF 文件" or thefile.type="BMP 文件" or thefile.type="Macromedia Fireworks Doc"then%>
<img src="<%=(UploadDir & theFile.Name)%>" height="50" border="0">
<%else%>
<font color="#FF0000">不可识别的缩略图</font>
<%end if%>
</a></td>
<td width="84" align="center"><%if thefile.size>1024*1024 then%>
<%=formatNum(theFile.size/1024/1024)%> M
<%else%>
<%=theFile.size\1024%> K
<%end if%>
</td>
<td width="134" align="center"><%=theFile.type%></td>
<td width="119" align="center"><%=theFile.DateLastModified%></td>
<td width="43" align="center"><a href="UploadFileManage.asp?Action=Del&FileName=<%=UploadDir&theFile.Name%>" onClick="return ConfirmDel()">删除</a></td>
</tr>
<%
FileCount=FileCount+1
TotleSize=TotleSize+theFile.Size
end if
Next
%>
</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> 个文件，占用 <b>" & TotleSize\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
%>
<TABLE width="100%" height="25" border=0 cellPadding=0 cellspacing="0">
<TR>
<TD height="20" align=middle background="images/admin_top_bg.gif"><div align="center">
<p class="blue">版权所有：
<% = strCopyright%>
技术支持：<a href="mailto:biaomianchuli@126.com" target=_blank><font class="blue">Xiaominjun整理</font></p>
</div></TD>
</TR>
<TR>
<TD height=5 bgcolor="#39867B"> </TD>
</TR>
</TABLE>
</body>
</html>wm219 2009-02-03
- 打赏
- 举报
服务端-客户端 不如直接在服务器上搜索要快得多
该人工的时候还得用人工
该人工的时候还得用人工
sk811229 2009-02-03
- 打赏
- 举报
帅哥太帅了
不要是木马就好 呵呵^-^
不要是木马就好 呵呵^-^
Dogfish 2009-02-03
- 打赏
- 举报
可以。filesysemobjects.但是一个一个找，是否慢了点。
