请问为什么这段代码不支持中文名称文件上传?啊
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)+chrB(10)
filname=chrb(ascb("f"))+chrb(ascb("i"))+chrb(ascb("l"))+chrb(ascb("e"))+chrb(ascb("n"))+chrb(ascb("a"))+chrb(ascb("m"))+chrb(ascb("e"))
datastart=instrb(formdata,filname)
datastart=instrb(datastart,formdata,chrb(34))+1
dataend=instrb(datastart,formdata,chrb(34))-datastart
filpath=midb(formdata,datastart,dataend)
filname=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"))
datastart=instrb(formdata,filname)+14
dataend=instrb(datastart,formdata,bncrlf+bncrlf)-datastart
c_type=midb(formdata,datastart,dataend)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
'以下程序用于获取文件的路径与文件名
datastart=instrb(datastart,filpath,chrb(ascb("\")))
while instrb(datastart+1,filpath,chrb(ascb("\")))
datastart=instrb(datastart+1,filpath,chrb(ascb("\")))
wend
filname=midb(filpath,datastart+1)
filpath=leftb(filpath,datastart-1)
'以下程序用于将字节串转换为字符串
'子程序,字节串转字符串
function bytostr(bytestring)
bytostr=""
for i=1 to lenb(bytestring)
bytostr=bytostr+chr(ascb(midb(bytestring,i,1)))
next
end function
filtype=bytostr(c_type)
fileName1=bytostr(filname)