<!--#include file="../../Conn.asp" -->
<!--#include file="../YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<%IF Session("Admin")="" and Session("AdminGroup")="" and Session("AdminSession")<>true Then
	Response.write "<script>top.location.href='../Admin_Login.asp'</script>"
	Response.end()
END IF
Dim ChannelID, CurrPath, ShowVirtualPath
		Dim WebiInstallDir
			WebiInstallDir = GetConfig("WebiInstallDir")
			CurrPath = Request("CurrPath")
		 	CurrPath = WebiInstallDir & CurrPath
		
		Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
		Response.Write "<script language=""JavaScript"" type=""text/javascript"" src=""../YWNT_TMS_inc/YWNT_TMS_Common.js""></script>"
		Response.Write "<title>选择文件</title>"
		Response.Write "<style type=""text/css"">" & vbCrLf
		Response.Write "<!--" & vbCrLf
		Response.Write ".PreviewStyle {" & vbCrLf
		Response.Write "    border: 2px outset #CCCCCC;"
		Response.Write "}"
		Response.Write ".ImgOver {"
		Response.Write "    cursor: default;"
		Response.Write "    border-top-width: 1px;"
		Response.Write "    border-right-width: 1px;"
		Response.Write "    border-bottom-width: 1px;"
		Response.Write "    border-left-width: 1px;"
		Response.Write "    border-top-style: solid;"
		Response.Write "    border-right-style: solid;"
		Response.Write "    border-bottom-style: solid;"
		Response.Write "    border-left-style: solid;"
		Response.Write "    border-top-color: #FFFFFF;"
		Response.Write "    border-right-color: #999999;"
		Response.Write "    border-bottom-color: #999999;"
		Response.Write "    border-left-color: #FFFFFF;"
		Response.Write "}"
		Response.Write " BODY   {border: 0; margin: 0; background: buttonface; cursor: default; font-family:宋体; font-size:9pt;}"
		Response.Write " BUTTON {width:5em}" & vbCrLf
		Response.Write " TABLE  {font-family:宋体; font-size:9pt}"
		Response.Write " P      {text-align:center}" & vbCrLf
		Response.Write "-->" & vbCrLf
		Response.Write "</style>"
		Response.Write "</head>"
		Response.Write "<body leftmargin=""0"">"
		Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "  <tr>"
		 Response.Write "   <td colspan=""2""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		 Response.Write "       <tr>"
		 Response.Write "         <td width=""80"" align=""center"" nowrap>选择目录： </td>"
		 Response.Write "         <td width=""649""><select onChange=""ChangeFolder(this.value);"" id=""FolderSelectList"" style=""width:100%;"" name=""select"">"
		 Response.Write "             <option selected value=""" & CurrPath & """>"
		 Response.Write CurrPath
		 Response.Write "             </option>"
		 Response.Write "           </select></td>"
		Response.Write "          <td width=""279"" height=""26"" valign=""middle"">"
		 Response.Write "           <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		 Response.Write "             <tr align=""center"">"
		 Response.Write "               <td width=""25"">&nbsp;</td>"
		 Response.Write "                <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""Folder/R.gif"" align=""absmiddle"" onClick=""ChangeViewArea(this);"" id=""Img1"" title=""关闭预览区""></td>"
		 Response.Write "               <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""Folder/Back.gif"" width=""21"" height=""22"" align=""absmiddle"" onClick=""frames['FolderList'].OpenParentFolder();"" title=""返回上一级目录""></td>"
		 Response.Write "               <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""Folder/AddFolder.gif"" width=""19"" height=""17"" align=""absmiddle"" onClick=""frames['FolderList'].AddFolderOperation();"" title=""添加新目录""></td>"
		Response.Write "                <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""Folder/Upfiles.gif"" width=""21"" height=""22"" align=""absmiddle"""
		Response.Write "onClick=UpFile();"
		Response.Write "                  title=""上传新文件""></td>"
		Response.Write "                <td width=""25"">&nbsp;</td>"
		Response.Write "                <td width=""25"">&nbsp;</td>"
		Response.Write "                <td width=""25"">&nbsp;</td>"
		Response.Write "                <td width=""25"">&nbsp;</td>"
		Response.Write "                <td width=""25"">&nbsp;</td>"
		Response.Write "              </tr>"
		Response.Write "            </table>"
		Response.Write "          </td>"
		Response.Write "        </tr>"
		Response.Write "      </table>"
		Response.Write "    </td>"
		Response.Write "  </tr>"
		Response.Write "  <tr>"
		Response.Write "    <td width=""70%"" align=""center""> <iframe name=""FolderList"" id=""FolderList"" width=""100%"" height=""290"" frameborder=""1"" src=""FolderFileList.asp?CurrPath=" & CurrPath & """ scrolling=""yes""></iframe>"
		Response.Write "    </td>"
		Response.Write "    <td width=""30%""  align=""center"" valign=""middle"" ID=""ViewArea""> <iframe id=""PreviewArea"" scrolling=""yes"" width=""100%"" height=""290"" frameborder=""1"" src=""Preview.asp""></iframe>"
		Response.Write "    </td>"
		Response.Write "  </tr>"
		Response.Write "  <tr>"
		Response.Write "    <td height=""35"" colspan=""2""> <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "        <tr>"
		Response.Write "          <td width=""80"" height=""40""> <div align=""center"">URL地址：</div></td>"
		Response.Write "          <td><input style=""width:65%"" type=""text"" name=""FileUrl""> <input type=""button"" onClick=""SetFileUrl();"" name=""Submit"" value="" 确 定 "">"
		Response.Write "            <input onClick=""window.close();"" type=""button"" name=""Submit3"" value="" 取 消 "">"
		Response.Write "          </td>"
		Response.Write "        </tr>"
		Response.Write "      </table></td>"
		Response.Write "  </tr>"
		Response.Write "</table>"
		Response.Write "</body>"
		Response.Write "</html>"
		Response.Write "<script language=""JavaScript"">"
		Response.Write "function ChangeFolder(FolderName)"
		Response.Write "{"
		Response.Write "    frames[""FolderList""].location='FolderFileList.asp?CurrPath='+FolderName;"
		Response.Write "}"
		Response.Write "function UpFile()"
		Response.Write "{"
		Response.Write "    OpenWindow('Frame.asp?Path='+frames[""FolderList""].CurrPath,400,200,window);"
		Response.Write "    frames[""FolderList""].location='FolderFileList.asp?CurrPath='+frames[""FolderList""].CurrPath;"
		Response.Write "}"
		Response.Write "function SetFileUrl()"
		Response.Write "{"
		Response.Write "    if (document.all.FileUrl.value=='') alert('请填写Url地址');"
		Response.Write "    else"
		Response.Write "    {"
		Response.Write "        window.returnValue=document.all.FileUrl.value;"
		Response.Write "        window.close();"
		Response.Write "    }"
		Response.Write "}"
		Response.Write "window.onunload=CheckReturnValue;"
		Response.Write "function CheckReturnValue()"
		Response.Write "{"
		Response.Write "    if (typeof(window.returnValue)!='string') window.returnValue='';"
		Response.Write "}"
		Response.Write "var displayBar=true;"
		Response.Write "function ChangeViewArea(obj) {"
		Response.Write "  if (displayBar) {"
		Response.Write "  ViewArea.style.display='none';"
		Response.Write "    displayBar=false;"
		Response.Write "    obj.src='Folder/L.gif';"
		Response.Write "    obj.title='打开预览区';"
		Response.Write "  } else {"
		Response.Write "   ViewArea.style.display='';"
		Response.Write "    displayBar=true;"
		Response.Write "    obj.src='Folder/R.gif';"
		Response.Write "    obj.title='关闭预览区';"
		Response.Write "  }"
		Response.Write "}"
		
		Response.Write "</script>"
%>