html
head
meta http-equiv=Content-Type content=text/html; charset=gb2312
title无标题文档/title
/head
body
%
'On Error Resume Next
Response.Expires=0
if Request.TotalBytes then
set a=createobject(adodb.stream)
a.Type=1
a.Open
a.write Request.BinaryRead(Request.TotalBytes)
a.Position=0
b=a.Read
c=chrB(13)&chrB(10)
d=clng(instrb(b,c))
e=instrb(d+1,b,c)
set f=createobject(adodb.stream)
f.type=1
f.open
a.Position=d+1
a.copyto f,e-d-3
f.Position=0
f.type=2
f.CharSet=GB2312
g=f.readtext
f.Close
h=mid(g,instrRev(g,\)+1,e)
i=instrb(b,c&c)+4
j=instrb(i+1,b,leftB(b,d-1))-i-2
if j 1 then
set f =nothing
set a =nothing
response.write 未选择要上传的文件a href='?'重新上传/a
response.end
end if
f.Type=1
f.Open
a.Position=i-1
a.CopyTo f,j
h = Mid(h, InStrRev(h, filename=) + 10) '这是我帮你添加的,文件名的获取没有正确
f.SaveToFile server.mappath(/EXCEL/& h),2
f.Close
set f=Nothing
a.Close
set a=Nothing
'response.write a href=&Server.URlEncode(h)&&h&/a
end if
If Err.number 0 Then
response.Write err.number
response.Write err.Description
Response.End
End If
%
script language=javascript
function checkupload() {
if (document.upload_form.fe.value == ) {
alert(未选择要上传的文件);
return false;
}
}
/script
form name=upload_form enctype=multipart/form-data method=post οnsubmit=return(checkupload())
input type=file name=fe/
input type=submit value=上传 name=B1/
/form
/body
/html
取消
评论