开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
SelectPathFrame.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：3k
源码类别：

数据库编程

开发平台：

ASP/ASPX

SelectPathFrame.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../../FS_Inc/Function.asp"-->
  4. <!--#include file="../../../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="../../../FS_InterFace/NS_Function.asp" -->
  6. <%
  7. Dim Conn
  8. Dim TypeSql,RsTypeObj,LableSql,RsLableObj
  9. MF_Default_Conn
  11. Dim CurrPath
  12. CurrPath = Request("CurrPath")
  13. %>
  14. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  15. <html>
  16. <head>
  17. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  18. <title>选择路径</title>
  19. <link href="../../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  20. </head>
  21. <script language="JavaScript" src="../JS/PublicJS.js"></script>
  22. <body>
  23. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  24.   <tr> 
  25.     <td><select onChange="ChangeFolder(this.value);" id="FolderSelectList" style="width:100%;" name="select">
  26.         <option selected value="<% = CurrPath %>"><% = CurrPath %></option>
  27.       </select></td>
  28.   </tr>
  29.   <tr> 
  30.     <td width="70%"> <iframe id="FolderList" width="100%" height="210" frameborder="1" src="SelectPath.asp?CurrPath=<% = CurrPath %>" scrolling="auto"></iframe></td>
  31.   </tr>
  32.   <tr> 
  33.     <td height="35"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  34.         <tr> 
  35.           <td height="30" align="center"> <input type="button" onClick="SelectPath();" name="Submit" value=" 确 定 "> 
  36.           </td>
  37.           <td align="center"> <input onClick="window.close();" type="button" name="Submit3" value=" 取 消 "></td>
  38.         </tr>
  39.         <tr> 
  40.           <td height="30" colspan="2" align="center"><span class="tx">提示，鼠标右键点框内，可以新建目录，删除目录，重新命名目录</span></td>
  41.         </tr>
  42.       </table></td>
  43.   </tr>
  44. </table>
  45. </body>
  46. </html>
  47. <script language="JavaScript">
  48. var SysRootDir='<% = G_VIRTUAL_ROOT_DIR %>';
  49. function ChangeFolder(FolderName)
  50. {
  51. frames["FolderList"].location='SelectPath.asp?CurrPath='+FolderName;
  52. }
  53. function SelectPath()
  54. {
  55. var PathInfo='',TempPath='';
  56. if (SysRootDir!='')
  57. {
  58. TempPath=frames["FolderList"].CurrPath;
  59. PathInfo=TempPath.substr(TempPath.indexOf(SysRootDir)+SysRootDir.length);
  60. }
  61. else
  62. {
  63. PathInfo=frames["FolderList"].CurrPath;
  64. }
  65. if (frames["FolderList"].SelectedFolder!='')
  66. window.returnValue=PathInfo+'/'+frames["FolderList"].SelectedFolder;
  67. else
  68. window.returnValue=PathInfo;
  69. window.close();
  70. }
  71. window.onunload=SetReturnValue;
  72. function SetReturnValue()
  73. {
  74. if (typeof(window.returnValue)!='string') window.returnValue='';
  75. }
  76. </script>