图片上传成功后还显示ADODB.Stream 错误 '800a0bbc' 写入文件失败。
问题如题，我们在做一个数据写入带图片上传功能时出现的问题，图片上传成功了，也可以在页面显示，数据库也添加了数据，但是在成功的页面就显示了这个错误ADODB.Stream 错误 '800a0bbc' 写入文件失败。
/admin/inc/function.asp，行 95
如果说路径或者权限有问题的话 那也不会添加成功的吧 所以请教各位大神这到底是什么问题 以下是部分代码
'添加到库
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from t_lp where Title='"&Title&"' order by id desc "
rs.open sql,conn,3,3
if not rs.eof then
response.Write("<script>alert(""该楼盘已存在!"");history.back();</script>")
response.End()
else
rs.addnew
rs("Title")=Title
rs("Photo")=Photo
rs("LpTypeId")=LpTypeId
rs("LpAreaId")=LpAreaId
rs("f_jzlb")=f_jzlb
rs("f_minprice")=f_minprice
rs("f_price")=f_price
rs("f_maxprice")=f_maxprice
rs("f_zxqk")=f_zxqk
rs("f_jtwz")=f_jtwz
rs("f_kpsj")=f_kpsj
rs("f_rzsj")=f_rzsj
rs("f_jylb")=f_jylb
rs("f_fkfs")=f_fkfs
rs("f_wydz")=f_wydz
rs("f_qclx")=f_qclx
rs("f_xsxk")=f_xsxk
rs("f_kfs")=f_kfs
rs("f_sldz")=f_sldz
rs("f_sldh")=f_sldh
rs("f_desc")=f_desc
rs("f_wy_zdmj")=f_wy_zdmj
rs("f_wy_jzmj")=f_wy_jzmj
rs("f_wy_lhl")=f_wy_lhl
rs("f_wy_rjl")=f_wy_rjl
rs("f_wy_dt")=f_wy_dt
rs("f_wy_cw")=f_wy_cw
rs("f_wy_wygs")=f_wy_wygs
rs("f_wy_wyf")=f_wy_wyf
rs("f_wy_zfs")=f_wy_zfs
rs("f_wy_sgjd")=f_wy_sgjd
rs("f_ptss_zb")=f_ptss_zb
rs("f_ptss_jc")=f_ptss_jc
rs("f_date")=now
rs("f_hits")=1
rs("f_type_title")=lp_type_title
rs("f_area_title")=lp_area_title
rs("f_price_unit")=f_price_unit
rs("f_traffic_pic")=f_traffic_pic
rs("f_mapx")=MapX
rs("f_mapy")=MapY
rs("f_mapz")=MapZ
rs("f_char")=f_char
rs("f_video")=f_video
rs("f_bbsurl")=""
rs("f_traffic")=f_traffic
rs("f_hxmj")=f_hxmj
rs("f_cjtao")=0
rs("f_cjarea")=0
rs("f_eduareaid")=EduArea
rs("f_eduareatitle")=f_eduareatitle
rs("f_kgdate")=request.Form("f_kgdate")
rs("f_jgdate")=request.Form("f_jgdate")
rs("f_lczk")=request.Form("f_lczk")
rs("f_sgdw")=request.Form("f_sgdw")
rs("f_jgsjdw")=request.Form("f_jgsjdw")
rs("f_yxchdw")=request.Form("f_yxchdw")
rs("f_relatenews")=request.Form("f_relatenews")
rs("f_rightyear")=request.Form("f_rightyear")
rs("f_status")=f_status
rs("f_check")=1
rs("f_xmkfxs")=f_xmkfxs
rs("f_sfzj")=f_sfzj
rs("f_xsdl")=f_xsdl
rs("f_tdsyqz")=f_tdsyqz
rs("f_jsgcghxkz")=f_jsgcghxkz
rs("f_jsydghxkz")=f_jsydghxkz
rs("f_sgxkz")=f_sgxkz
rs.update
response.Write("<p align=""center"">添加楼盘成功~!</p>")
response.Write("<br><p align=""center""><a href=lp_manage.asp>返回</a></p>")
end if
rs.close
set rs=nothing
'生成htm
dim show_htm,last_id
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 1 id from t_lp order by id desc",conn,3,1
if not rs.eof then
last_id=rs(0)
show_htm=ReadHtml(SiteUrl&"/newhouse/show.asp?id="&last_id,"gb2312")
call SaveTextFile(server.MapPath("/newhouse/show/")&"\"&last_id&".htm",show_htm)
end if
rs.close
set rs=nothing
conn.execute("update t_lp set f_sort="&last_id&" where id="&last_id)
'response.Write("<iframe src="""&BbsUrl&"/board_api.asp?i_key="&MemberGenKey&"&boardtype="&Title&"&class="&(LpAreaId+27)&"&readme="&Title&"&newboardid="&last_id&"&Rules="&Title&"&sid=1&cid=1&boardmaster=&BoardChar="&f_char&""" frameborder=""0"" width=""0"" height=""0"" scrolling=""no""></iframe>")
else
%>
---------------------------------------------------------------------------------
Sub SaveTextFile(f_savepath,f_content)
Dim st
Set st=Server.CreateObject("ADODB.Stream")
st.Type=2
st.Mode=3
st.Charset=FileCharSet
st.Open()
st.WriteText f_content
st.SaveToFile f_savepath,2
st.Close()
Set st=Nothing
End Sub
其中报错的是 st.SaveToFile f_savepath,2
请大家帮帮忙
