📄 uptext1.asp
字号:
<%
if session("userdsf")<>" 站长" then response.redirect "EVER.ASP?LR=你不具有此权限"
server.scripttimeout=3600
url=request("url")
url1=ucase(url)
STR=INSTR(URL1,"SYSTEM/UPIMG")
URL=LEFT(URL,STR-1)
URL1="HTTP://"&REQUEST.SERVERVARIABLES("LOCAL_ADDR")&URL
URL="UPIMG.txt"
dim search,my_conn,rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
ty=chrb(ascb("T"))&chrb(ascb("y"))&chrb(ascb("p"))&chrb(ascb("e"))&chrb(ascb(":"))
name=chrb(ascb("e"))&chrb(ascb("n"))&chrb(ascb("a"))&chrb(ascb("m"))&chrb(ascb("e"))&chrb(ascb("="))&chrb(ascb(chr(34)))
star2=instrb(formdata,ty)+6
mydata2=midb(formdata,star2,datastart-4-star2)
star3=instrb(formdata,name)+7
star4=instrb(formdata,chrb(ascb("C"))&chrb(ascb("o"))&chrb(ascb("n"))&chrb(ascb("t"))&chrb(ascb("e"))&chrb(ascb("n"))&chrb(ascb("t"))&chrb(ascb("-"))&chrb(ascb("T"))&chrb(ascb("y"))&chrb(ascb("p"))&chrb(ascb("e")))
'Response.Write chrb(ascb("C"))&chrb(ascb("o"))&chrb(ascb("n"))&chrb(ascb("t"))&chrb(ascb("e"))&chrb(ascb("n"))&chrb(ascb("t"))&chrb(ascb("-"))&chrb(ascb("T"))&chrb(ascb("y"))&chrb(ascb("p"))&chrb(ascb("e"))
mydata4=midb(formdata,star3,star4-star3-3)
for i=1 to lenb(mydata2)
mydata3=mydata3&chr(ascb(midb(mydata2,i,1)))
next
do while instrb(mydata4,chrb(ascb("\")))<>0
stara=instrb(mydata4,chrb(ascb("\")))+1
mydata4=midb(mydata4,stara,200)
loop
mydata4=ascii2unicode(mydata4)
'EXNA=EXNAME(MYDATA4)
set ads=server.CreateObject("Adodb.Stream")
ads.Type=1
ads.mode=3
ads.Open
set data=server.CreateObject("Adodb.Stream")
data.Type=1
data.mode=3
data.Open
data.write formdata
data.position=datastart-1
data.copyto ads,dataend-2
with ads
path=server.MapPath(url)
'Response.Write PATH
.SaveToFile path,2
.Cancel()
.Close()
end with
data.cancel()
data.close()
set ads=nothing
set data=nothing
session("uptext")="1"
function exname(FileName) '此函数用于取出一个文件名的扩展名
str=instr(filename,".")
exname=right(filename,len(filename)-str)
end function
Function ASCII2Unicode(str)
dim strLen,res,I
strLen=LenB(str)
I=1
While I < strLen+1
If I<>strLen And AscB(MidB(str,I,1))>127 Then
res=res&Chr(AscB(MidB(str,I,1))*256+AscB(MidB(str,I+1,1)))
I=I+1
Else
res=res&ChrW(AscB(MidB(str,I,1)))
End If
I=I+1
Wend
ASCII2Unicode=res
End Function
'*************前面背注释掉的语句用于不上传不是文本格式的文件.
'说明:MYDATE3中存放的是文件类型,MYDATA4中存放的是文件主名,MYDATA中存放的是文件的内容.MYDATA3是ASCLL码,其于的为二进制数.
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body bgcolor="#D4D0C8" topmargin="0" leftmargin="0" style="font-size: 9pt">
<p>上传成功 [<a href="uptext.asp">重传</a>]</p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -