fso的write的问题

[wwwxxb40000]

if rs("SEMI_YEAR")=NULL then
f.Write("-9999")
f.Write("，")
else
f.Write(rs("SEMI_YEAR"))
response.Write(rs("SEMI_YEAR"))
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－

rs("SEMI_YEAR")是11，类型为字符

response.Write(rs("SEMI_YEAR"))可以显示
－－－－－－－－－－－－－－－－－－－－－－－－－－

错误信息是

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'Write'

/exput_dir.asp，行 60

－－－－－－－－－－－－－－

请教高手帮助

[dgboby]

response.charset="gb2312"
dim files,fso,th,sfs,content
files="alert.html"
set fso = Server.CreateObject("Scripting.FileSystemObject")
th=server.mappath(files)
if not fso.FileExists(th) then
openfile="<font color=#ff0000 size=2pz><br>read xml error<br>"
set fso=nothing
end if
set sfs=fso.opentextfile(th,8,false)  '2重写,8追加记录
  if request("SEMI_YEAR")="" then 
  sfs.write("-9999,") 
       else 
  sfs.Writeline("http://www.jatxw.cn") 
    end if 
sfs.close
set sfs=nothing
set sfo=nothing

[GHOSTSEA]

楼上正解。

[umwelt99]

我说怎么写入fso会用response这个对象都不对.
response.write是服务器端输出.1楼正确
必须要用FileSystemObject才行三

[luozhy]

来晚了

[liuhaibing0903]

写文件时判断:1.文件是否存在；2，文件是否以可写方式打开

[jiang_jiajia10]

UP

[wwwxxb40000]

解决了，是ISNULL()的问题

还是给分