www.gusucode.com > 因特达Access数据库在线管理系统 > 因特达Access数据库在线管理系统\code\access\file_list.asp
<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<%
if request("path")="" or request("path")="/" or request("path")="u:/" or request("path")="u:" then'如果返回的路径
goparent="<span id=upfile><img src='document/fsoimg/up1.gif'></span>"
path="u:/"
else
'response.Write("path2:"&path)
'response.End()
path=request("path")
path=replace(path,"\","/")
arr=split(path,"/")
upPath=replace(path,arr(ubound(arr)-1),"")'取掉最后一级目录
upPath=replace(upPath,"//","/")
goparent="<span id=upfile><a href='"&selfname&"?path="&upPath&"&ntime="&ntime&"'><img onMouseOver=this.className='imgbt' onMouseOut=this.className='imgbutton' class='imgbutton' src='document/fsoimg/up.gif'></a></span>"
end if
%>
<html>
<head>
<title><%=sysname%>--文件管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body,table,td{font-size:12px;}
body{
padding:0;
background:#ffffff;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
img{vertical-align:bottom}
form{margin:0;padding:0}
a{color:#000080;text-decoration:none;}
a:hover{color:#ff3333;text-decoration:underline}
.button{width:65px;height:20px;border:solid 1px;border-color:#ffffff #666666 #666666 #ffffff;margin:3px 0;}
.imgbutton{border:1px solid #F0F0F0;cursor:hand;}
.imgbt{border:solid 1px;border-color:#ffffff #999999 #999999 #ffffff;cursor:hand;}
.tScroll11 {overflow: scroll;
overflow-x:hidden;
height:460px;
cursor: default;
}
-->
</style>
<script language="javascript">
<!--
window.resizeTo(screen.width,screen.height-22);window.moveTo(0,0)//最大化
window.focus()
//-->
</script>
</head>
<body style="overflow:hidden" onLoad="window.focus()">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" colspan="2">
<table width="100%" align="center" cellspacing=0 bgcolor="#f0f0f0">
<tr>
<td valign="middle">
<img src="Document/fsoimg/back.gif" alt="后退" border="0" class="imgbutton" onClick="javascript:window.history.back()" onMouseOver="this.className='imgbt'" onMouseOut="this.className='imgbutton'">
<img src="Document/fsoimg/go.gif" alt="向前" border="0" class="imgbutton" onClick="javascript:window.history.go()" onMouseOver="this.className='imgbt'" onMouseOut="this.className='imgbutton'">
<%response.write goparent&vbcrlf %>
<img src="Document/fsoimg/refresh.gif" alt="刷新" class="imgbutton" onClick="window.location.reload()" onMouseOver="this.className='imgbt'" onMouseOut="this.className='imgbutton'"><img src="Document/fsoimg/line.gif" width="24" height="34">
</td>
<td></td>
</tr>
<tr><td height="1" colspan="2" bgcolor="#CCCCCC"></td></tr>
<tr><td height="1" colspan="2" bgcolor="#FFFFFF"></td></tr>
</table>
<form method="get" action="" style="padding:0;margin:0">
<table width="100%" align="center" cellspacing=0>
<tr>
<td bgcolor="#f0f0f0" nowrap vertical-align="middle"> 地址(D)</td>
<td width="90%" bgcolor="#f0f0f0">
<input type="text" name="path" style="width:100%;" value="<%=replace("u:/"&path,"u:/u:/","u:/")%>"></td>
<td width="10%" bgcolor="#f0f0f0" vertical-align="middle"><input type="image" class="imgbutton" src="Document/fsoimg/urlGo.gif" onMouseOver="this.className='imgbt'" onMouseOut="this.className='imgbutton'" alt="转到"></td>
</tr>
<tr><td height="3" colspan="3" background="Document/fsoimg/line2.gif"></td>
</tr>
</table></form>
</td>
</tr>
<tr><td>
<!--#include file="file_select_sub.asp"-->
</td></tr>
</table>
</body></html>