功能说明：
1、模拟本地浏览文件功能，主界面分为左右两部分，左边为服务器段站点的目录结构，右边为当前选定目录下的文件列表；
2、可以指定要选择目标文件的文件类型；
3、可以设置是否可以同时选择多个文件；
4、返回选定文件相对于站点根目录的相对路径；
<!--
-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>选择文件路径</title>
<link href="Include/Default.Css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="100%" border="0" cellspacing="6" cellpadding="0">
<tr>
<td>
<form method="post" name="DataForm" action="">
<table width="100%" border="0" cellpadding="3" cellspacing="0" class="TabBody">
<tr>
<td height="26" align="right">选择文件路径：</td>
<td>
<input name="DataBakPath" type="text" class="InputText" size="30" readonly value="">
<input name="Submit22" type="button" value="浏览..." onClick="ChooseFile();">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
<script language="javascript">
<!--
//主调用程序
function ChooseFile(){
var FormObjName = "DataForm"; //文本框所属表单名称
var PathObj = "DataBakPath";//文本框名称
var CheckType = "0"; //是否允许多选：0=否；1=是
var FileType = "" //要选则的文件类型，多个类型间用“,”隔开，前后的“,”不可少，为空表示所有类型
var ReturnFlag = showModalDialog("ChooseFileClass.Asp?FormObjName="+ FormObjName +"&PathObj="+ PathObj +"&FileType="+ FileType +"&CheckType="+ CheckType +"&PageSite=main",window,'dialogWidth:500px;dialogHeight:300px;status:no;help:no;scroll:no;');
if(ReturnFlag=="submit"){
return true;
}else{return false;}
}
//-->
</script>
<%
''=================================================
''程序作者：Toumh(透明海)、阳光白雪
''作者主页：http://www.toumh.com
'' http://www.yotuo.cn
''电子邮件：chenmanyi0818@126.com
''联系ＱＱ：254960392(阳光白雪)
''本程序仅供学习参考，欢迎高手共同优化！
''=================================================
Dim PageSite
PageSite = Request.QueryString("PageSite")
Set FsoObj = Server.CreateObject("Scripting.FileSystemObject")
Dim ImageFolder
ImageFolder = "TreeIco/" ''系统图片存放路径
If Err Then
Set FsoObj = Nothing
Response.Write("<script language='javascript1.2'>"& VbCrLf)
Response.Write("alert('对不起，您的服务器不支持FSO组件！');"& VbCrLf)
Response.Write("window.close();"& VbCrLf)
Response.Write("<script>")
Response.End()
End If
If PageSite = "left" Then
Print_Folder_Count = 0
