📄 explore2006.asp
字号:
<%
end sub
' --------------------------------------------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=hm.location(folder)%></title>
<style>
a:link{text-decoration:none;}
a:hover{text-decoration:none;}
a:visited{text-decoration:none;}
.menufont{
font-size:9pt;color:#333333;
}
.menuimage{color:#666666;}
body {
SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
FONT-FAMILY: "宋体";
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow;
}
</style>
<script language=javascript>
function doubleClick(theRun,theUrl)
{
if (theRun=="superior")
location.href = theUrl;//alert("进入上一级目录 "+theUrl);
if(theRun=="self")
location.href = theUrl;//alert("进入本目录 传值本目录即可 "+theUrl);
if(theRun=="disk")
location.href = theUrl;//alert("打开本盘符 "+theUrl);
if(theRun=="folder")
location.href = theUrl;//alert("进入下级目录 "+theUrl);
if(theRun=="file")
{
//alert("打开文件 "+"<%=mypage%>?folder=<%=hm.javapath(folder)%>&file="+theUrl+"&act=open");
var url = window.open("","popupnav","width=550,height=400,resizable=1,status=yes,scrollbars=no,menubar=no,location=no");
url.location.href = "<%=mypage%>?folder=<%=hm.javapath(folder)%>&file="+theUrl+"&act=open" ;
}
}
function oneClick(theType,theDisk,theFolder,theFile)
{
//alert(theType +"\n"+ theDisk+"\n" + theFolder+"\n" + theFile+"\n"+"<%=hm.javapath(folder)%>");
if(theType=="disk")
menu.location.href = "<%=mypage%>?act=menu&nowfolder=<%=hm.javapath(folder)%>&type=disk&disk="+theDisk+":";
if(theType=="folder")
menu.location.href = "<%=mypage%>?act=menu&nowfolder=<%=hm.javapath(folder)%>&type=folder&disk="+theDisk+"&folder="+theFolder;
if(theType=="file")
menu.location.href = "<%=mypage%>?act=menu&nowfolder=<%=hm.javapath(folder)%>&file="+theFile+"&disk="+theDisk+"&type=file";
}
</script>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" onmousemove="move()">
<%
if not(folder="") then
itId = 3 '''''''' 文件或文件夹号
itLeft = 370 '''' 开始左边位置
itTop = 0 ''''''' 开始上边位置
for each foldername in fo.subfolders ''''读出文件夹
'response.write nameAll(foldername)&"<br>"
call showImage(itId,itTop,itLeft,hm.nameAll(foldername),hm.folderimage(foldername),"?folder="&foldername,"folder","folder")
itId = itId + 1
itLeft = itLeft + 80
if itLeft > 690 then : itLeft=210 : itTop=itTop+80 : end if
next
for each filename in fo.files ''''读出文件
'response.write nameAll(filename)&"<br>"
call showImage(itId,itTop,itLeft,hm.nameAll(filename),hm.fileimage(filename),hm.nameAll(filename),"file","file")
itId = itId + 1
itLeft = itLeft + 80
if itLeft > 690 then : itLeft=210 : itTop=itTop+80 : end if
next
else
itId = 1
itLeft = 210
itTop = 0
set dr = fso.drives
for each disk in dr '''''''''循环出盘符
'response.write disk.driveletter & disk.drivetype &"<br>"
call showImage(itId,ItTop,itLeft,disk.driveletter,hm.diskimage(disk.drivetype),"?folder="&disk&"\","disk","disk")
itId = itId + 1
itLeft = itLeft + 80
if itLeft > 690 then : itLeft=210 : itTop=itTop+80 : end if
next
end if
%>
<table width="100%" height="<%if itTop<613 then :response.write "100%" :else:response.Write itTop+100 : end if%>" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="210">
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="F4F2E7" "#7AA1E6" style="border-collapse:collapse;">
<tr>
<td><table width="100%" height="100%" border="0" cellpadding="3" cellspacing="3">
<tr>
<td valign="top"><iframe id="menu" src="<%=mypage%>?act=menu&folder=<%=folder%>" height="100%" width="100%" border="0" frameborder="0" framespacing="0" vspace=0 marginheight=0 marginwidth=0></iframe></td>
</tr>
<tr>
<td height="20"><%=hm.CopyRight%></td>
</tr>
</table></td>
</tr>
</table>
</td>
<td valign="top">
<%
if not(folder="") then
%>
<div id="image1" style="position:absolute; width:80px; height:80px; z-index:1; left:210px; top:0px;"
onmousedown="imageNum=1;down=true;divleft=event.clientX-parseInt(image1.style.left);divtop=event.clientY-parseInt(image1.style.top)"onmouseup="down=false">
<table width="80" height="60" border="0" cellpadding="0" cellspacing="0" style="cursor:default;">
<tr>
<td height="40"><div align="center"><font style="color:#333333;">
<font style='font-size:25pt;font-family:Wingdings;'
onDblClick="doubleClick('self','<%="?folder="&hm.javapath(folder)%>');"
><!onclick="oneClick('<%if right(folder,1)=":" then : response.write "disk" : else : response.write "folder" : end if%>','<%=hm.diskpath(folder)%>','<%=hm.javapath(folder)%>','<%=hm.javapath(folder)%>');">0</font>
</font></div></td>
</tr>
<tr>
<td><div align="center"><a href="<%="?folder="&folder%>"><font style="font-size:9pt;color:#333333;">.</font></a></div></td>
</tr>
</table>
</div>
<div id="image2" style="position:absolute; width:80px; height:80px; z-index:1; left:280px; top:0px;"
onmousedown="imageNum=2;down=true;divleft=event.clientX-parseInt(image2.style.left);divtop=event.clientY-parseInt(image2.style.top)"onmouseup="down=false">
<table width="80" height="60" border="0" cellpadding="0" cellspacing="0" style="cursor:default;">
<tr>
<td height="40"><div align="center"><font style="color:#333333;">
<font style="font-size:25pt;font-family:Wingdings;"
onDblClick="doubleClick('superior','<%="?folder="&hm.javapath(hm.superfolder(folder))%>');"
><!onclick="oneClick('<%if right(hm.superfolder(folder),1)=":" or hm.superfolder(folder)="" or right(hm.superfolder(folder),1)="\" then : response.write "disk" : else : response.write "folder" : end if%>','<%=hm.diskpath(folder)%>','<%if right(hm.superfolder(folder),1)="\" then : response.write hm.javapath(left(hm.superfolder(folder),len(hm.superfolder(folder))-1)) : else : response.write hm.javapath(hm.superfolder(folder)):end if%>','<%=hm.javapath(hm.superfolder(folder))%>');">0</font>
</font></div></td>
</tr>
<tr>
<td><div align="center"><a href="<%="?folder="&hm.superfolder(folder)%>"><font style="font-size:9pt;color:#333333;">..</font></a></div></td>
</tr>
</table>
</div>
<%
end if
%>
</td>
</tr>
</table>
<script>
var down=false,divleft,divtop;
function move()
{
if(down)
{
if (event.clientX-divleft<200) return false;
eval("image"+imageNum).style.left=event.clientX-divleft;
eval("image"+imageNum).style.top=event.clientY-divtop;
}
}
</script>
</body>
<%sub showfile()%>
<%'--------------------------------------------------- 子过程，显示或修改文件 ------------------------------------------------------
folder = request("folder")
file = request("file")
act = request("act")
fileExt = hm.name3(file)
if right(folder,1)<>"\" then folder = folder & "\"
filepath = folder & file
if act = "edit" then call hm.savefile(folder,file,request("opentxt"),2)
set gettxt = fso.opentextfile(filepath)
dim con
while not gettxt.atendofstream
con = con & gettxt.readline & vbcrlf
wend
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=filepath%></title>
</head>
<style>
body {
SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
FONT-FAMILY: "宋体";
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow;
}
</style>
<body bottommargin="0" leftmargin="0" topmargin="0" rightmargin="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<form name="formtxt" method="post" action="<%=mypage&"?folder="&folder&"&file="&file&"&act=edit"%>">
<tr bgcolor="#D4D0C8">
<td height="17">
<!input type="submit" name="open" value="打开" style="border:1 soild;height:100%;"><!input type="button" name="new" value="新建" style="border:1 soild;height:100%;"><input type="button" name="edit" value="保存" style="border:1 soild;height:100%;" onclick="formtxt.submit();"><input type="reset" name="reset" value="还原" style="border:1 soild;height:100%;"><input type="button" name="print" onclick="window.print();" value="打印" style="border:1 soild;height:100%;"><input type="button" name="close" value="关闭" style="border:1 soild;height:100%;" onclick="window.close();"></td>
</tr>
<tr>
<td>
<textarea name="opentxt" style="width:100%;height:100%;border:1 soild #d4d0c8;word-wrap:break-work;word-break:break-all;"><%=server.HTMLEncode(con)%></textarea>
</td>
</tr>
</form>
</table>
</body></html>
<%response.end%>
<%'------------------------------------------------------------------------------------------------------------------------------------
end sub%>
<%sub showsystem()%>
<%'--------------------------------------------------- 子过程，显示系统属性 ----------------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统属性</title>
</head>
<body bgcolor="#D4D0C8" leftmargin="0" topmargin="0" bottommargin="0" rightmargin="0">
<table width="100%" height="100%" border="1" cellpadding="5" style="border-collapse:collapse;">
<tr>
<td>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"><input type="button" value="常规" style="height:19;width:50;font-size:9pt;border-bottom:0 solid ;"></td>
</tr>
<tr>
<td><table width="100%" height="100%" border="1" style="border-collapse:collapse;">
<tr>
<td><table width="100%" height="100%" border="0">
<tr>
<td width="150" valign="top"><table width="100%" border="0">
<tr>
<td> </td>
</tr>
<tr>
<td><div align="center"><font style='font-size:100pt;font-family:Wingdings;'>:</font></div></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td valign="top">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -