resourceexplore.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 257 行
ASP
257 行
<!--#include file="Config.asp" -->
<html>
<head>
<title>
<%=Trim(Request("SoftTitle"))%>
</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
table {
font-size: 9pt;
}
-->
</style>
<%
//00000000000000表示当前是根目录中
If Request("NowPath")="" Then
NowPath="00000000000000"
End If
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
//############初始化
// 用于记录当前目录的pID值（pID类型见库）
var NowPath="<%=NowPath%>";
// 预览文件的方式(为ture则是弹出新窗口预览)
var ViewType=<%=ViewType_Config%>;
var FileID="";
<%
If Request("Win_W")<>"" Then
Win_Min_Width=Request("Win_W")
End If
%>
var Win_Min_Width=<%=Win_Min_Width%>;
<%
If Request("Win_h")<>"" Then
Win_Min_Height=Request("Win_h")
End If
%>
var Win_Min_Height=<%=Win_Min_Height%>;
<%
If Request("Ex_Win_H")<>"" Then
EX_Win_Height=Request("Ex_Win_H")
End If
%>
var Win_Max_Height=<%=EX_Win_Height%>+Win_Min_Height;
<%
If Request("SoftTitle")<>"" Then
SoftTitle=Request("SoftTitle")
End If
%>
window.resizeTo(Win_Min_Width,Win_Min_Height);
//############初始化结束
function SetNowPath(str)
{
NowPath=str;
FileList.location.href="FileList.asp?NowPath="+NowPath;
}
function Ref()
{
//window.location.reload();
FileList.location.href="FileList.asp?NowPath="+NowPath;
}
function ViewInnewWin()
{
if(ViewType){
ViewType=false;
ViewTypeBut.innerHTML="New Win";
}else{
ViewType=true;
ViewTypeBut.innerHTML="Self Win";
}
}
function viewItem(path)
{
FileID=path;
if(ViewType)
{
OpenNewViewWin("OpenFile.asp?pID="+FileID,<%=new_ViewWin_Width%>,<%=new_ViewWin_Height%>);
}else{
ViewFrame.location.href="OpenFile.asp?pID="+path;
}
}
function ReturnItemValue(Id,fTitle,fName,fDate)
{
<%If Trim(Request("returnFunName"))<>"" Then%>
//自定义返回函数
opener.<%=Trim(Request("returnFunName"))%>(Id,fTitle,fName,fDate);
<%Else%>
//默认返回函数
opener.OnResWinReturn(Id,fTitle,fName,fDate);
<%End If%>
window.close();
}
function ChangeTitle()
{
FileList.ChangeTitle();
}
function Del()
{
if(confirm("你确定删除！"))
{
FileList.Del();
}
}
var AddWin = null
function OpenWin(loadposs)
{
if (! AddWin || AddWin.closed)
{
AddWin = window.open(loadposs,"Add","width=300,height=200");
}else
{
AddWin.focus();
AddWin = window.open(loadposs,"Add","width=300,height=200");
}
}
var ViewOpened
ViewOpened=true
function OpenView()
{
if(ViewOpened){
window.resizeTo(Win_Min_Width,Win_Min_Height);
ViewType=true;
ViewOpened=false;
openBut.innerHTML="展开预览窗口";
}else{
window.resizeTo(Win_Min_Width,Win_Max_Height);
ViewType=false;
ViewOpened=true;
openBut.innerHTML="隐藏预览窗口";
}
}
var newWindow = null
function OpenNewViewWin(Url,w,h)
{
if (! newWindow || newWindow.closed)
{
newWindow = window.open(Url,"View","resizable,status,width="+w+",height="+h);
}else
{
newWindow.focus();
newWindow = window.open(Url,"View","resizable,status,width="+w+",height="+h);
}
}
//-->
</SCRIPT>
<style type="text/css">
<!--
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
color: #000000;
text-decoration: none;
}
a:hover {
color: #999999;
text-decoration: none;
}
-->
</style>
<link href="images/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" scroll="no" onselectStart="return false;">
<table width="100%" height="<%=Win_Min_Height%>" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Main_Boder_Color%>">
<%if Request("WinTitlebar")<>"No" Then%>
<tr style="cursor:default" onmouseup="drag_up()" onmousemove="drag_move()" onmousedown="drag_down()">
<td height="7" bgcolor="<%=Main_Win_Color%>" Id="WinTitle"><table width="100%" height="14" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="53%"><%=SoftTitle%></td>
<td width="47%" align="right"><a href="javascript:minimizeWIN()" title="最小化"><font color="#FFFFFF"><strong>-</strong></font></a> <a href="javascript:window.close()" title="关闭管理器"><font color="#FFFFFF"><strong>×</strong></font></a> <a href="Help.htm" target="_blank"><strong><font color="#FFFFFF" title="在线帮助">?</font></strong></a></td>
</tr>
</table></td>
</tr>
<%End If%>
<tr>
<td height="8" bgcolor="#E3E3E3" Id="ToolsBar"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td width="61%"> <a href="javascript:Ref()" title="刷新本目录">[刷新]</a>
<a href="javascript:window.history.go(-1)" title="前一页">[前一页]</a>
<a href="javascript:window.history.go(1)" title="后一页">[后一页]</a>
<A HREF="javascript:OpenWin('Add.asp?Work=Folder&NowPath='+NowPath)" title="新建目录">[新建目录]</A>
<A HREF="javascript:OpenWin('Add.asp?Work=File&NowPath='+NowPath)" title="添加文件">[<b><font color="#800000">添加文件</font></b>]</A>
<a href="javascript:ChangeTitle()" title="更改目录/文件标题">[更改目录/文件标题]</a>
<a href="javascript:Del()" title="删除所选对象">[删除所选对象]</a>
</td>
<td align="right"><table width="92" border="0" cellpadding="3" cellspacing="0">
<tr>
<td align="right" title="展开/隐藏预览窗口"><span style="cursor:hand" onclick="OpenView()" class="box1" id="openBut"> 展开预览窗口 </span></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF"><iframe frameborder="0" height="100%" width="100%" src="FileList.asp?NowPath=<%=NowPath%>" Id="FileList"></iframe></td>
</tr>
</table>
<table width="100%" height="<%=EX_Win_Height%>" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr>
<td bgcolor="#FFFFFF"><iframe frameborder="0" height="100%" width="100%" src="" Id="ViewFrame"></iframe></td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--
ViewFrame.document.write("<p align='center'>文件预览窗口</p>");
//-->
</SCRIPT>
<script language="javascript">
var dragwin_cltx,dragwin_clty,dragwin_draging=false
function drag_move(){
if (dragwin_draging)
{
top.window.moveTo(event.screenX-dragwin_cltx,event.screenY-dragwin_clty);
return false;
}
}
function drag_down(){
dragwin_cltx=event.clientX;
dragwin_clty=event.clientY;
dragwin_draging=true;
event.srcElement.setCapture();
}
function drag_up(){
dragwin_draging=false;
event.srcElement.releaseCapture();
}
</script>
<script>
function minimizeWIN() {
document.syuwin.Click();
}
</script>
<object id="syuwin" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"><param name="Command" value="MINIMIZE">
</object>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?