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

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用XML+FSO+JS实现服务器端文件的选择

ASP: 构建你的网站新闻自动发布系统之三; 构建你的网站新闻自动发布系统之四; 如何用ASP编写网站统计系统一; 如何用ASP编写网站统计系统二; 如何用ASP编写网站统计系统三; 如何用ASP编写网站统计系统四; ASP Error 0115的一些解决办法; ASP 3.0 新特色先睹为快（一）; ASP 3.0 新特色先睹为快（二）; ASP主件中的安全问题; 一个汉字转成拼音的代码; 使用w3Sockets组件实现域名查询功能; ASP中实现文件上传方法的研究; 构建免受FSO组件威胁虚拟主机; 用XMLHTTP做一个自己特色的Google; 用asp实现的代码批量修改程序; 无组件的数据库的备份与还原; 用ASPJPEG组件制作图片的缩略图和加水印; 解密ASP源代码; XmlHttp异步获取网站数据的例子

No. « ‹ 192 193 194 195 › »

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 231 ::

收藏到网摘: n/a

Win2003下提高FSO的安全性本人常用的分页代码

<%
'written by Linzhang Chen ,2003-4-20
' 转载请注明出处和保留此版权信息
response.write "<?xml version=""1.0"" encoding=""GB2312""?>"&chr(13)
response.write "<mediafile>"&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 "<file>"&chr(13)
response.write "<ftype>folder</ftype>"&chr(13)
response.write "<fname>"&fd.name&"</fname>"&chr(13)
response.write "</file>"&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 "<file>"&chr(13)
response.write "<ftype>file</ftype>"&chr(13)
response.write "<fname>"&fname&"</fname>"&chr(13)
response.write "</file>"&chr(13)
count=count+1
end if
next
'如果该目录下没有文件，就发一个空元素
if count=0 then
response.write "<file>"&chr(13)
response.write "<ftype>empty</ftype>"&chr(13)
response.write "<fname>0</fname>"&chr(13)
response.write "</file>"&chr(13)
end if
response.write "</mediafile>"
set ff=nothing
set f=nothing
set fso=nothing
%>
下面就是客户端的JS的功夫了(selectfile.asp)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 选择视频文件 </TITLE>
<style>
td{font-size:9pt}
select{width:210}
.s2{width:250}
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
/*written by Linzhang Chen ,2003-4-20
转载请注明出处和保留此版权信息 */
//预装载图片
var imgback = new Image();
imgback.src = "/upload/tech/20091012/20091012011623_6cfe0e6127fa25df2a0ef2ae1067d915.gif";
var imgbackgray = new Image();
imgbackgray.src = "/upload/tech/20091012/20091012011623_8b5040a8a5baf3e0e67386c2e3a9b903.gif";
var imgfolder = new Image();
imgfolder.src = "/upload/tech/20091012/20091012011624_e836d813fd184325132fca8edcdfb40e.gif";
var imggrayfolder = new Image();
imggrayfolder.src = "/upload/tech/20091012/20091012011627_c6e19e830859f2cb9f7c8f8cacb8d2a6.gif";
//历史记录数组栈
var arrhistory=new Array();
var hisi=0;
//用来确定要返回文件名
function check()
{
if (document.all.filename.value=="")
{
alert("请先选择文件");
return false;
}
else
{
window.returnValue =document.f1.folder.value+document.all.filename.value;
window.close();
}
}
//取得XML文件的内容
function getuserlist(url)
{ var oXMLDoc = new ActiveXObject('MSXML');
oXMLDoc.url = url;
var ooRoot=oXMLDoc.root;
return ooRoot;
}
//当选中一个文件时，把这个值返回给文本框
function addfile(txt)
{
document.all.filename.value=txt;
}

var first=1;//定义一个全局变量

strshow+="</table>"
}
filebox.document.body.innerHTML=strshow;
}
//-->
</SCRIPT>
<script LANGUAGE="vbscript">
function checkfolder(folderstr)
if (folderstr="" or instr(folderstr,"/")=instrrev(folderstr,"/")) then
checkfolder=""
else
nfolder=left(folderstr,len(folderstr)-1)
checkfolder=left(nfolder,instrrev(nfolder,"/"))
end if
end function
</script>
</HEAD>

<BODY style="margin:0" bgColor=menu onload="javascript:userlist('',0)">
<table width="443" border="0" cellspacing="0">
<tr>
<td height="36"><table width="409" border="0">
<tr>
<td width="73" align="right">查找范围(<u>I</u>):</td>
<td width="214"><select name="select" id="select" size="1" onchange="javascript:userlist(this.value,1);">
</select></td>
<td width="22" valign="baseline" id="arrow" align=right></td>
<td width="20" valign="middle" id="folderid"></td>
<td width="20" align="left"><img src="/upload/tech/20091012/20091012011629_afd4836712c5e77550897e25711e1d96.gif" width="16" height="15"></td>
<td width="28" align="left"><img src="/upload/tech/20091012/20091012011629_eda80a3d5b344bc40f3bc04f65b7a357.gif" width="23" height="14"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="120"><table width="100%" height="100%" border="0">
<tr>
<td width="9"> </td>
<td >
<iframe src="blank.htm" width=415 height=120 id="filebox"></iframe></td>
<td width="13"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="60"><table width="100%" border="0">
<FORM METHOD=POST ACTION="" name="f1">
<input type="hidden" name="folder" value="">
<tr>
<td width="85" align="right">文件名(<u>N</u>): </td>
<td width="254"><input type="text" id="filename" size="34"></td>
<td><button onclick="javascript:return check()"> 打开(<u>O</U>)</button></td>
</tr>
</FORM>
<tr>
<td align="right">文件类型(<u>T</u>):</td>
<td><select name="select2" class=s2>
<option>流媒体文件(*.asf,*.wmv,*.wma)</option>
</select></td>
<td><input type="button" name="Submit" value=" 取消 " onclick="window.close();"></td>
</tr>
</table></td>
</tr>
</table>
</BODY>
</HTML>

里面还有一个小文件blank.htm用来定义文件和文件夹显示的样式
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<style>
td{font-size:9pt}
body{font-size:9pt}
.file A{COLOR: #000000; TEXT-DECORATION: none;font-size:9pt}
.file A:visited{COLOR: #000000; TEXT-DECORATION: none;font-size:9pt}
.file A:hover {COLOR: #000000; TEXT-DECORATION: none;font-size:9pt}
</style>
</HEAD>

</BODY>
</HTML>
调用的时候用以下函数，就可以实现以假乱真的服务器端选择文件的效果
function selectfile()
{
var arr = showModalDialog("selectfile.asp?temp="+Math.random(), "", "dialogWidth:453px; dialogHeight:252px; status:0;help:1");
if (arr != null)
{
return arr
}
}
该函数最后返回的是选中的文件名,函数里面所使用的几张图片大家就自已从文件选择框上抓了：）

Win2003下提高FSO的安全性本人常用的分页代码

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

评论 (0) All

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