一段asp代码，大家帮我调试一下，谢谢

<%
dim objfile
dim objstream
dim fn
dim st1
set objfile=Server.CreateObject("Scripting.FileSystemObject")
'创建一个名为objfile的Scripting.FileSystemObject对象实例
if(not objfile.fileExists(Server.MapPath("\data.txt")))then
'判断data.txt是否存在，不存在则创建
set objstream=objfile.createtextfile(Server.MapPath("\data.txt"),true)
objstream.writeline()
set objstream=nothing
else
'读出先前data.txt中的内容
set pre=objfile.opentextfile(Server.MapPath("\data.txt"))
if not pre.atendofstream then
st1=pre.readall
end if
pre.close
end if

'读表单数据
dim st2
st2=request.Form("1")&":"&"<br>"&request.Form("2")

'将st1,st2写入data.txt
dim objstream1
set objstream1=objfile.c

帮我调试2003的一段代码 谁帮我分析一段ASP代码 一段ASP代码,谁帮我看看 帮我解释一段ASP代码 asp高手帮我看一段代码 帮我分析一段ASP代码 大家来帮我看一段ASP代码 帮看一下哪有问题 ASP高手进，帮忙调试一段代码，谢谢 帮我看看一段asp代码。教教我改一下 下面一段asp代码,我不理解,请帮我一下?