100分 求asp上传问题

[Iknowurcode]

我写的一个上传方法 上传后
Response.binaryWrite(struploadData) 可以在网页上显示数据并且显示正常，中文也正常

但是写入文件出错，写入文件的方法如下
Set stm = Server.Createobject("Adodb.Stream")
stm.Open
stm.WriteText struploadData
stm.SaveToFile C:\\test.txt,2
WriteFile=True
stm.cancel()
stm.close
set stm = nothing

我发现上传的内容 写入文件后都是2进制，请问如何转换成字符串的形式写入文件啊

[renzaijiang]

if InStr (45,sInfo,"filename=""",1) > 0 then
set theFile=new FileInfo
'取得文件名
iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileName=getFileName(sFileName)
theFile.FilePath=getFilePath(sFileName)
'取得文件类型
iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14
iFindEnd = InStr(iFindStart,sInfo,vbCr)
theFile.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileStart =iInfoEnd
theFile.FileSize = iFormStart -iInfoEnd -3
theFile.FormName=sFormName
if not objFile.Exists(sFormName) then
objFile.add sFormName,theFile
end if
else
'如果是表单项目
tStream.Type =1
tStream.Mode =3
tStream.Open
Data_5xsoft.Position = iInfoEnd
Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sFormValue = tStream.ReadText
tStream.Close
if objForm.Exists(sFormName) then
objForm(sFormName)=objForm(sFormName)&", "&sFormValue
else
objForm.Add sFormName,sFormValue
end if
end if
文件流和form流读取方式是不一样的 你去下稻香老农无组件上传看下

[hookee]

Set stm = Server.Createobject("Adodb.Stream") 
stm.Mode = 3
stm.Type =1
stm.Open
stm.Write struploadData 
stm.SaveToFile "d:\test1.txt",2
stm.Position = 0 
stm.Type= 2
stm.charset = "GB2312"
Response.Write stm.ReadText
stm.close 
set stm = nothing 

[Iknowurcode]

谢了 结贴给分 问题解决了

[ouyangzhanbo]

顶下子啊。。