功能说明：
1、模拟本地浏览文件功能，主界面分为左右两部分，左边为服务器段站点的目录结构，右边
调用页面：Index.Htm
''=================================================
-->
<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;}
}
//-->
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
dim toumh(50)
Td_No = 1
Call LeftPage()
ElseIf PageSite = "right" Then
Call RightPage()
ElseIf PageSite = "main" Then
Call MainPage()
End If
Set FsoObj=Nothing
Sub MainPage()
Dim FormObjName,PathObj,CheckType,Parent
FormObjName = Request.QueryString("FormObjName")
PathObj = Request.QueryString("PathObj")
CheckType = Request.QueryString("CheckType")
FileType = Request.QueryString("FileType")
If CheckType <> "1" Then
CheckType = "0"
