主题:  这段代码对吗？

yidixiaoyu
职务：普通成员
等级：1
金币：1.0
发贴：190
#12003/11/3 16:04:29
<%
d1=request("s1")
if not d1=" "then
Set TestFile=Server.CreateObject("Scripting.FileSystemObject")
file1=server.MapPath("/asp/tc1.txt")
Set TestTextFile=TsetFile.OpenTextFile(file1,8,Ture)
TestTextFile.WriteLine d1+"----"
TestTextFile.Close
end if
%>




<%
Response.Write"

网上简易留言板


"
Response.Write"已有留言如下；
"
Response.Write"
"
%>






这段代码对吗？action="tc11-1-1.asp是不是还要编个程序