📄 fileupload1.asp
字号:
<%
server.scripttimeout=3600
dim search,my_conn,rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes
formdata=request.binaryread(formsize)
if lenb(formdata)>100000 then
mycd="100K"
else
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
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)
end if
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
session("USERfileupload")= formdata
'*************前面背注释掉的语句用于不上传不是文本格式的文件.
'说明: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">
<script language="javascript">
cdir();
function cdir() {
parent.document.UP.T5.value="../../upuser/<%=mydata4%>";
}
function cleart5() {
parent.document.UP.T5.value="";
}
</script>
<% if mycd="" then%>
<p>附件上传成功
<%
else
Response.Write "不能上传大于"&MYCD&"的附件"
end if
%>
[<a href="fileupload.asp">重新上传</a>] <input onclick="cleart5()" type="button" value="清除附件" name="B3"></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -