opentextfile用法

<% dim a,b
set a=server.createobject("scripting.filesystemobject")
set b=a.opentextfile(server.MapPath("haha.txt"),2)
b.write(wajjjjjjjjjngyi)
%>

高手帮我看看吧,这段有什么问题