您的位置:首页网页设计ASP实例 → 用XML+FSO+JS实现服务器端文件的选择

用XML+FSO+JS实现服务器端文件的选择

时间:2004/11/7 3:02:00来源:本站整理作者:蓝点我要评论(0)

首先在服务器端先创建一个程序可以生成XML文件,以返回客户端,(getfolder.asp)
<%
'written by Linzhang Chen ,2003-4-20
' 转载请注明出处和保留此版权信息
response.write ""&chr(13)
response.write ""&chr(13)
folders=request("folder")
if folders="/" then
folders=""
end if
dim count
count=0
folders=replace(folders,"..","")
basefolder="../media/"'基准的文件夹路径
newfolder=basefolder&folders
Set fso =server.CreateObject("Scripting.FileSystemObject")
set f=fso.getfolder(server.mappath(newfolder))
set sf=f.subfolders
for each fd in sf'返回指定路径下面的文件夹列表
response.write ""&chr(13)
response.write "folder"&chr(13)
response.write ""&fd.name&""&chr(13)
response.write "
"&chr(13)
count=count+1
next
set sf=nothing
set ff=f.Files
for each fi in ff
fname=fi.name
if instr("asf,wma,wmv",lcase(mid(fname,instrrev(fname,".")+1)))>0 then'设定允许返回的文件类型,防止源码泄露
response.write ""&chr(13)
response.write "file"&chr(13)
response.write ""&fname&""&chr(13)
response.write "
"&chr(13)
count=count+1
end if
next
'如果该目录下没有文件,就发一个空元素
if count=0 then
response.write ""&chr(13)
response.write "empty"&chr(13)
response.write "0"&chr(13)
response.write "
"&chr(13)
end if
response.write "
"
set ff=nothing
set f=nothing
set fso=nothing
%>
下面就是客户端的JS的功夫了(selectfile.asp)



选择视频文件






 
   
 
 
   
 
 
   
 

       
         
         
         
         
         
         
       
     
查找范围(I):

       
         
         
         
       
     
&nbsp;
&nbsp;

      
   
        
         
         
         
       
       
       
         
         
         
       
     
文件名(N):&nbsp;&nbsp;
文件类型(T):



    里面还有一个小文件blank.htm用来定义文件和文件夹显示的样式



New Document





     调用的时候用以下函数,就可以实现以假乱真的服务器端选择文件的效果
function selectfile()
{
var arr = showModalDialog("selectfile.asp?temp="+Math.random(), "", "dialogWidth:453px; dialogHeight:252px; status:0;help:1");
  if (arr != null)
  {
   return arr
  }
}
       该函数最后返回的是选中的文件名,函数里面所使用的几张图片大家就自已从文件选择框上抓了:)
估计在使用过程中可能还会遇到各种未知的BUG欢迎大家和我来交流:E_mail:clzwin@sina.com


相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码