-->
<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";
<%
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")
