Question

ASP中图片上传成功后依然显示ADODB.Stream 错误 '800a0bbc' 写入文件失败

以下是部分代码
'生成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
请大家帮帮忙

Answer 1

1 检查一下路径是否有问题
2 检查一下文件夹权限 是否给了

一般NTFS格式 需要手工添加权限

追问

请问如果路径和权限有问题的话 会添加成功么？我去显示的路径里看了是已经上传进去了的 权限也添加了everbody。。实在是不知道哪里的问题了 请指教。。

追答

我找了一下 网上有相关的回答 应该可以满足你
http://www.mycodes.net/72/3088.htm

用response.write f_savepath 看看路径对不对

追问

提示的是D:\IIS\house_bak\newhouse\show\273.htm 但是实际上根本没有这个文件夹 上传图片是存在D:\IIS\house_bak\pic\2015024\201524182340659.jpg 文件夹的名字和文件的名字都是日期 请问这样该怎么修改？不好意思我是新手。。问题多了一些

追答

呵呵 搞多了 就知道了 无非就是我一开始提到的 两个方面的问题