default.asp

视频源代码 视频源代码

Response.write"</td><td><img border=""0"" src=""img/"
      filenamearr=split(x.name,".")
      If isarray(filenamearr) then
        If ubound(filenamearr)>0 then
          filetype=false:edittype=false
          If instr("aspasainccgipmjspxspphptxtlogjsvbsxmlcssASPASAINCCGIPMJSPXSPPHPTXTLOGJSVBSXMLCSS",filenamearr(1)) then filetype=true:edittype=true:Response.write"txt"
          If instr("wavaviasfasxmpgmp1mp2mp3mp4mididatwmvwmarmramrawszWAVAVIASFASXMPGMP1MP2MP3MP4MIDIDATWMVWMARMRAMRAWSZ",filenamearr(1)) then filetype=true:Response.write"amp"
          If instr("htmlshtmlHTMLSHTML",filenamearr(1)) then filetype=true:edittype=true:Response.write"htm"
          If instr("gifGIF",filenamearr(1)) then filetype=true:Response.write"gif"
          If instr("jpgJPG",filenamearr(1)) then filetype=true:Response.write"jpg"
          If instr("lnkpifLNKPIF",filenamearr(1)) then filetype=true:Response.write"lnk"
          If instr("xlsXLS",filenamearr(1)) then filetype=true:Response.write"xls"
          If instr("docDOC",filenamearr(1)) then filetype=true:Response.write"doc"
          If instr("mdbadpMDBADP",filenamearr(1)) then filetype=true:Response.write"mdb"
          If instr("sysiniSYSINT",filenamearr(1)) then filetype=true:edittype=true:Response.write"sys"
          If instr("dllDLL",filenamearr(1)) then filetype=true:Response.write"dll"
          If instr("comexeCOMEXE",filenamearr(1)) then filetype=true:Response.write"com"
          If instr("chmCHM",filenamearr(1)) then filetype=true:Response.write"chm"
          If instr("hlpHLP",filenamearr(1)) then filetype=true:Response.write"hlp"
          If instr("bmpBMP",filenamearr(1)) then filetype=true:Response.write"bmp"
          If instr("swfSWF",filenamearr(1)) then filetype=true:Response.write"swf"
          If instr("rarzipjararjcabRARZIPJARARJCAB",filenamearr(1)) then filetype=true:Response.write"rar"
          If filetype=false then Response.write "file"
        Else
Response.write"file"
        End If
        Set filenamearr=nothing
      Else
Response.write"file"
      End If
Response.write ".gif"" width=""14"" height=""14"""
      If edittype=true then
Response.write " style=""cursor:hand"" title=""浏览编辑"" onclick=""editfile('"&x.Name&"');"""
      End If
Response.write "></td><td nowrap style=""cursor:hand"" ondblclick=""filemenu('"&x.Name&"',"&x.Attributes&",'file"&a&"')"" id=""file"&a&""" name=""file"&a&"""><b>"&x.Name&"</b>"
      If instr(x.name,".mdb")>0 then Response.write " <a href=""default.asp?path="&path&OtherType&"&op=access&filename="&x.name&"""><img border=""0"" src=""img/rar.gif"" width=""10"" height=""10"" title=""压缩 ACCESS 数据库""></a>"
Response.write"</td><td align=""right"" nowrap>"
      If x.Size>1073741824 then
Response.write formatnumber(x.Size/1073741824,2,-1)&" <font color=FF0000>GB"
      Elseif x.Size>1048576 then
Response.write formatnumber(x.Size/1048576,2,-1)&" <font color=FF00FF>MB"
      Elseif x.Size>1024 then
Response.write formatnumber(x.Size/1024,2,-1)&" <font color=0000FF>KB"
      Else
Response.write formatnumber(x.Size,0,-1)&"　<font color=FF9900>B"
      End If
Response.write"</font></td><td nowrap>"&x.type&"</td><td title="""
      Select case x.Attributes
        case 0 :Response.write"No"
        case 1 :Response.write"只读"
        case 2 :Response.write"隐含"
        case 3 :Response.write"只读/隐含"
        case 4 :Response.write"系统"
        case 5 :Response.write"只读/系统"
        case 6 :Response.write"隐含/系统"
        case 7 :Response.write"只读/隐含/系统"
        case 32:Response.write"存档"
        case 33:Response.write"只读/存档"
        case 34:Response.write"隐含/存档"
        case 35:Response.write"只读/隐含/存档"
        case 36:Response.write"系统/存档"
        case 37:Response.write"只读/系统/存档"
        case 38:Response.write"隐含/系统/存档"
        case 39:Response.write"只读/隐含/存档/系统"
      End Select
Response.write""">"&x.Attributes&"</td><td nowrap>"&x.DateLastModified&"</td></tr>"&vbcrlf
      Size=Size+x.Size
    Next
Response.write"      <tr><td colspan=""3""><label for=""fileall"">全选<input id=""fileall"" type=""checkbox"" name=""chkall"" value=""on"" onclick=""checkall(this.form)"" disabled></label>"
Response.write"      <input type=""hidden"" name=""path"" value="""&path&"""><input class=""button"" type=""button"" name=""del"" value=""删"" disabled><input class=""button"" type=""button"" name=""paste"" value=""移"" disabled><input class=""button"" type=""button"" name=""copy"" value=""复"" disabled>"
Response.write"      </td><td colspan=""3"">共用 <b style=""color:blue"">"&a&"</b> 文件 <b style=""color:blue"">"
    If Size>1073741824 then
Response.write formatnumber(Size/1073741824,2,-1)&" GB"
    Elseif Size>1048576 then
Response.write formatnumber(Size/1048576,2,-1)&" MB"
    Elseif Size>1024 then
Response.write formatnumber(Size/1024,2,-1)&" KB"
    Else
Response.write formatnumber(Size,0,-1)&" B"
    End If
Response.write"</b></td></tr>"&vbcrlf
Response.write"      </form>"&vbcrlf
Response.write"    </table>"
  End If
End Sub
%>



<script src="js/system.js"></script>
<script language="JavaScript">
function checkall(form){
  for (var i=0;i<form.elements.length;i++) {
    var e = form.elements[i];
    if (e.name != 'chkall') e.checked = form.chkall.checked;
  }
}
function moveto(pt){
  if (pt=="" || pt.charAt(1)!=":"){alert("请输入绝对路径!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}
  if (pt.charAt(pt.length-1)!="\\"){alert("请在绝对路径后面加\" \\ \"!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}
}
function copyto(pt){
  if (pt=="" || pt.charAt(1)!=":"){alert("请输入绝对路径!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}
  if (pt.charAt(pt.length-1)!="\\"){alert("请在绝对路径后面加\" \\ \"!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}
}

//------------------  DIR  ----------------------//

function dirto(ls){
  document.location.href="default.asp?path=<%=PathJs%>" + ls + "<%=OtherType%>";
}
function mddir(ls){
  if (ls==""){alert("请输入目录名!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}  
}
function rmdir(ls){
  if (confirm("你真的要删除以下这个目录吗!\n\n目录为：<%=PathJs & OtherType%>"+ls+"\n\n　　　　　Copyright by 2005～2008 EYZG.COM")){
    document.location.href="default.asp?path=<%=PathJs & OtherType%>&op=rddir&dirname="+ls;
  }
}
function rndir(ol,ls){
  if (ol==ls){alert("重命名该目录名!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}  
  if (ls==""){alert("请输入新目录名!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}
}

function dirmenu(ls,Attrib,click){
  html='<table cellpadding="0" cellspacing="1" width="100%" height="100%" style="table-layout:fixed">'+
       '  <tr><td height="20" bgcolor="DADADA" onclick="parent.hiddenmenu();">&nbsp;<b>'+ls+'</b>\\</td></tr>'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right><input class="button" type="button" onclick="parent.rmdir(\''+ls+'\')" value="删　除" style="width:32pt"></td></tr>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=rendir" autocomplete="off" name="rendir" onSubmit="return parent.rndir(rendir.olddirname.value,rendir.dirname.value);" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right><input type="hidden" name="olddirname" value="'+ls+'"><input class="text" type="text" name="dirname" size="12" value="'+ls+'"><input class="button" type="submit" value="重命名" style="width:32pt"></td></tr>'+
       '</form>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=copydir" autocomplete="off" name="copydir" onSubmit="return parent.rndir(copydir.olddirname.value,copydir.dirname.value);" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right><input type="hidden" name="olddirname" value="'+ls+'"><input class="text" type="text" name="dirname" size="12" value="'+ls+'"><input class="button" type="submit" value="复　制" style="width:32pt"></td></tr>'+
       '</form>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=movedirto" autocomplete="off" name="movedirto" onSubmit="return parent.moveto(movedirto.movepath.value);" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right title="必须使用绝对路径"><input type="hidden" name="dirname" value="'+ls+'"><input class="text" type="text" name="movepath" size="12" value="<%=Replace(Server.MapFilter_Path("\"),"\","\\")%>\\"><input class="button" type="submit" value="移动到" style="width:32pt"></td></tr>'+
       '</form>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=copydirto" autocomplete="off" name="copydirto" onSubmit="return parent.copyto(copydirto.copypath.value);" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right title="必须使用绝对路径"><input type="hidden" name="dirname" value="'+ls+'"><input class="text" type="text" name="copypath" size="12" value="<%=Replace(Server.MapFilter_Path("\"),"\","\\")%>\\"><input class="button" type="submit" value="复制到" style="width:32pt"></td></tr>'+
       '</form>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=atdir" autocomplete="off" name="atdir" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right><input type="hidden" name="dirname" value="'+ls+'">' +
       '    <table cellpadding="1" cellspacing="0">'+
       '    <tr><td><input id="box" type="checkbox" name="readonly" value="1"';
  if (Attrib==17|| Attrib==19|| Attrib==21|| Attrib==23|| Attrib==49|| Attrib==51|| Attrib==53|| Attrib==55) html+=' checked';
  html+='></td><td>只读&nbsp;</td><td><input id="box" type="checkbox" name="hidden" value="2"';
  if (Attrib==18|| Attrib==19|| Attrib==22|| Attrib==23|| Attrib==50|| Attrib==51|| Attrib==54|| Attrib==55) html+=' checked';
  html+='></td><td>隐含&nbsp;</td><td></td></tr>'+
       '    <tr><td><input id="box" type="checkbox" name="write" value="48"';
  if (Attrib==48|| Attrib==49|| Attrib==50|| Attrib==51|| Attrib==52|| Attrib==53|| Attrib==54|| Attrib==55) html+=' checked';
  html+='></td><td>存档&nbsp;</td><td><input id="box" type="checkbox" name="system" value="4"';
  if (Attrib==20|| Attrib==21|| Attrib==22|| Attrib==23|| Attrib==52|| Attrib==53|| Attrib==54|| Attrib==55) html+=' checked';
  html+='></td><td>系统&nbsp;</td><td><input class="button" type="submit" value="修改" style="width:24pt"></td></tr>'+
       '    </table>'+
       '  </td></tr>'+
       '</form>'+
       '  <tr bgcolor=F5F5F5><th><a href="http://www.zwcity.com" style="color:FF9900;font:7pt Arial Black" target="_top">ZWCITY.COM</a></th></tr>'+
       '</table>';
  document.table.document.open();
  document.table.document.write(html_head+html);
  document.table.document.close();
  document.all.table.style.width='130';
  document.all.table.style.height='180';
  setPosition('table',click,-1,18);
}

//---------------------  FLIE  -------------------//

function newfile(ls){
  if (ls==""){alert("请输入文件名!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}
  html='<table cellpadding="0" cellspacing="1" width="100%" height="100%" bgcolor="F5F5F5">'+
       '  <tr><td height="20" bgcolor="DADADA" onclick="parent.hiddenmenu();">&nbsp;<b>新建文本文件</td></tr>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=newfile" autocomplete="off" name="newfile" target="_top">'+
       '  <tr><td height="20"><input type="hidden" name="filename" value="'+ls+'"><input class="text" type="text" name="filepath" value="<%=PathJs%>'+ls+'" style="width:100%"></td></tr>'+
       '  <tr><td><textarea class="text" name="content" style="width:100%;height:100%"></textarea></td></tr>'+
       '  <tr><td height="20" align=right>'+
       '    <table cellpadding="0" cellspacing="0" width="100%">'+
       '      <tr><td><input id="box" type="checkbox" name="readonly" value="1"></td><td>只读&nbsp;</td>'+
       '          <td><input id="box" type="checkbox" name="hidden" value="2"></td><td>隐含&nbsp;</td>'+
       '          <td><input id="box" type="checkbox" name="write" value="32"></td><td>存档&nbsp;</td>'+
       '          <td><input id="box" type="checkbox" name="system" value="4"></td><td>系统&nbsp;</td>'+
       '          <td align=right><input class="button" type="submit" value="　新　建　"></td></tr>'+
       '    </table>'+
       '  </td></tr>'+
       '</form>'+
       '</table>';
  document.table.document.open();
  document.table.document.write(html_head+html);
  document.table.document.close();
  document.all.table.style.width='400';
  document.all.table.style.height='300';
  setPosition('table','newfile',-1,22);
  return false;
}
function editfile(ls){
  document.table.location.href="edit.asp?path=<%=PathJs%>"+ls;
  document.all.table.style.width='400';
  document.all.table.style.height='300';
  setPosition('table','newfile',-1,22);
  return false;
}
function delfile(ls){
  if (confirm("你真的要删除以下这个文件吗!\n\n文件为：<%=PathJs%>"+ls+"\n\n　　　　　Copyright by 2005～2008 EYZG.COM")){
    document.location.href="default.asp?path=<%=PathJs & OtherType%>&op=delfile&filename="+ls;
  }
}
function rnfile(ol,ls){
  if (ol==ls){alert("重命名该文件名!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}  
  if (ls==""){alert("请输入新文件名!\n\n　　　　　Copyright by 2005～2008 EYZG.COM");return false;}
}

function filemenu(ls,Attrib,click){
  html='<table cellpadding="0" cellspacing="1" width="100%" height="100%" style="table-layout:fixed">'+
       '  <tr><td height="20" bgcolor="DADADA" onclick="parent.hiddenmenu();">&nbsp;<b>'+ls+'</b></td></tr>'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right><input class="button" type="button" onclick="parent.delfile(\''+ls+'\')" value="删　除" style="width:32pt"></td></tr>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=renfile" autocomplete="off" name="renfile" onSubmit="return parent.rnfile(renfile.oldfilename.value,renfile.filename.value);" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right><input type="hidden" name="oldfilename" value="'+ls+'"><input class="text" type="text" name="filename" size="12" value="'+ls+'"><input class="button" type="submit" value="重命名" style="width:32pt"></td></tr>'+
       '</form>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=copyfile" autocomplete="off" name="copyfile" onSubmit="return parent.rnfile(copyfile.oldfilename.value,copyfile.filename.value);" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right><input type="hidden" name="oldfilename" value="'+ls+'"><input class="text" type="text" name="filename" size="12" value="'+ls+'"><input class="button" type="submit" value="复　制" style="width:32pt"></td></tr>'+
       '</form>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=movefileto" autocomplete="off" name="movefileto" onSubmit="return parent.moveto(movefileto.movepath.value);" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right title="必须使用绝对路径"><input type="hidden" name="filename" value="'+ls+'"><input class="text" type="text" name="movepath" size="12" value="<%=Replace(Server.MapFilter_Path("\"),"\","\\")%>\\"><input class="button" type="submit" value="移动到" style="width:32pt"></td></tr>'+
       '</form>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=copyfileto" autocomplete="off" name="copyfileto" onSubmit="return parent.copyto(copyfileto.copypath.value);" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right title="必须使用绝对路径"><input type="hidden" name="filename" value="'+ls+'"><input class="text" type="text" name="copypath" size="12" value="<%=Replace(Server.MapFilter_Path("\"),"\","\\")%>\\"><input class="button" type="submit" value="复制到" style="width:32pt"></td></tr>'+
       '</form>'+
       '<form method="POST" action="default.asp?path=<%=PathJs & OtherType%>&op=atfile" autocomplete="off" name="atfile" target="_top">'+
       '  <tr style="cursor:hand" onmouseover="this.style.background=\'F5F5F5\';" onmouseout="this.style.background=\'EFEFEF\';"><td align=right><input type="hidden" name="filename" value="'+ls+'">' +
       '    <table cellpadding="1" cellspacing="0">'+
       '    <tr><td><input id="box" type="checkbox" name="readonly" value="1"';
  if (Attrib==1 || Attrib==3 || Attrib==5 || Attrib==7 || Attrib==33|| Attrib==35|| Attrib==37|| Attrib==39) html+=' checked';
  html+='></td><td>只读&nbsp;</td><td><input id="box" type="checkbox" name="hidden" value="2"';
  if (Attrib==2 || Attrib==3 || Attrib==6 || Attrib==7 || Attrib==34|| Attrib==35|| Attrib==38|| Attrib==39) html+=' checked';
  html+='></td><td>隐含&nbsp;</td><td></td></tr>'+
       '    <tr><td><input id="box" type="checkbox" name="write" value="32"';
  if (Attrib==32|| Attrib==33|| Attrib==34|| Attrib==35|| Attrib==36|| Attrib==37|| Attrib==38|| Attrib==39) html+=' checked';
  html+='></td><td>存档&nbsp;</td><td><input id="box" type="checkbox" name="system" value="4"';
  if (Attrib==4 || Attrib==5 || Attrib==6 || Attrib==7 || Attrib==36|| Attrib==37|| Attrib==38|| Attrib==39) html+=' checked';
  html+='></td><td>系统&nbsp;</td><td><input class="button" type="submit" value="修改" style="width:24pt"></td></tr>'+
       '    </table>'+
       '  </td></tr>'+
       '</form>'+
       '  <tr bgcolor=F5F5F5><th><a href="http://www.zwcity.com" style="color:FF9900;font:7pt Arial Black" target="_top">ZWCITY.COM</a></th></tr>'+
       '</table>';
  document.table.document.open();
  document.table.document.write(html_head+html);
  document.table.document.close();
  document.all.table.style.width='130';
  document.all.table.style.height='180';
  setPosition('table',click,-1,18);
}

function hiddenmenu(){
  document.all.table.style.visibility = 'hidden';
}
</script>
<iframe name=table scrolling="no" frameborder="0" style="position:absolute;visibility:hidden;background:eaeaea;width:100;height:100;z-index:10000"></iframe>
<table border="0" width="100%" height="100%" cellpadding="0" cellspacing="0" align="center">
  <tr><td colspan="2" bgcolor="#E5E5E5" height="20">
    <table border="0" cellpadding="0" cellspacing="0">
      <tr><th width="60"><a href="default.asp" style="color:orange"><b>默认路径</b></a></th><%Call GetDrive()%>
          <td><input class="button" type="button" value="盘" title="详细资料" onclick="document.location.href='default.asp?path=<%=PathJs%>&Drive=<%if Request("Drive")="" then%>1<%end if%>&Folder=<%=Request("Folder")%>';"></td>
          <td><input class="button" type="button" value="夹" title="详细资料" onclick="document.location.href='default.asp?path=<%=PathJs & "&Drive=" & Request("Drive")%>&Folder=<%if Request("Folder")="" then%>1<%end if%>';"></td></tr>
    </table>
    <table border="0" cellpadding="0" cellspacing="0" width="100%">
      <tr><td><b>地址:</b><input class="text" type="text" name="path" value="<%=path%>" size="80"></td><td align=right><a href="http://www.zwcity.com" style="font:10pt Impact;color:0000FF">ZWCITY.COM</a></td></tr>
    </table>
  </td></tr>
  <tr><td width="18%" valign="top" bgcolor="#EFEFEF" align="center">
<%Call GetFolder()%>
    </td><td width="82%" valign="top" align="center">
<%Call GetFile()%>
<font color=red><%=error%></font>
<br><br>
Copyright &copy; 2001～2002 <a href="http://www.zwcity.com" style="color:0000FF">ZWCITY.COM</a> 易影中国. All rights reserved.
    </td></tr>
</table>


</body>
</html>
<%Set fso = nothing%>