📄 fileupimg3.asp
字号:
<%
URL2=FORMATDATETIME(NOW(),2)&FORMATDATETIME(TIME,4)&RIGHT((CDATE("2000-01-01")-NOW())*24*60*60,3)
URL2=REPLACE(URL2,"-","")
URL2=REPLACE(URL2,":","")
server.scripttimeout=3600
url=request("url")
url1=ucase(url)
STR=INSTR(URL1,"SYSTEM/")
URL=LEFT(URL,STR-1)
URL1="HTTP://"&REQUEST.SERVERVARIABLES("server_name")&URL
URL="../../../fice/UP/"
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
if lenb(formdata)>20000 then response.redirect "fileupimg4.asp?lr=100k"
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&url2&"."&exna)
'Response.Write PATH
.SaveToFile path,2
.Cancel()
.Close()
end with
data.cancel()
data.close()
set ads=nothing
set data=nothing
SESSION("UPIMGNAME")=SESSION("UPIMGNAME")&url2&"."&exna&","
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="refresh" content="1;URL=FILEUPIMG4.asp?NAME=<%=FORMNA%>">
<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>
<%
Response.Write "<script language="&chr(34)&"javascript"&chr(34)&">"&chr(13)&chr(10)
Response.Write "cdir();"&chr(13)&chr(10)
Response.Write "function cdir() {"&chr(13)&chr(10)
Response.Write "parent.document.LOGIN.T9.value="&chr(34)&""&URL1&"FICE/UP/"&URL2&"."&EXNA&chr(34)&";"&chr(13)&chr(10)
// Response.Write "parent.document.add_article.doc_html.value=parent.document.add_article.doc_html.value+"&chr(34)&"<a target='_blank' title='点击在新窗口中查看图片' href='"&URL1&"upimgx/"&URL2&"."&EXNA&"'><IMG border='0' onload='javascript:if(this.width>screen.width-333)this.width=screen.width-333' style='float: left' style='float: left' SRC='"&URL1&"upimgx/"&URL2&"."&EXNA&"'></a>"&chr(34)&";"&chr(13)&chr(10)
Response.Write "}"&chr(13)&chr(10)
Response.Write "</script>"&chr(13)&chr(10)
session("fileupimg2name")=""
%>
<body bgcolor="#D4D0C8" topmargin="0" leftmargin="0" style="font-size: 9pt">
<p>上传成功</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -