html5 上传文件 asp,asp上传文件到服务器的代码肿么写呢。。。。。。

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

取消

评论