泰拉瑞亚开发者的时装:关于留言板制作的 问题！！！！

< %
Name = Request(”Name”) )
Email = Request(”Email”)
Subject = Request(”Subject”)
Memo = Request(”Memo”)
If Name = “” Or Email = “” Or Subject = “” Or Memo = “” Then
Response.Write “输入框不能为空白!”
Response.End
End If
Line1 = “留言人：” & Name
Line1 = Line1 & String(5, “ ”)
Email = “< A HREF=mailto:” & Email & “>” & Email & “< /A>”
Line1 = Line1 & “Email？” & Email & “< BR>”
Line2 = “主 题：” & Subject & “< BR>”
Memo = Replace( Memo, vbCrLf, “< BR>” )
Line3 = “< TABLE BORDER=1>< TR>< TD>”
Line3 = Line3 & “您的留言：” & Memo & “< /TD>< /TR>< /TABLE>”
Line4 = “时 间：” & Now()
Set fso = Server.CreateObject(”Scripting.FileSystemObject”) Application.Lock
TxtPath = Server.MapPath(”book1.txt”)
NewPath = Server.MapPath(”newbook.txt”)
fso.MoveFile TxtPath, NewPath
Set fin = fso.OpenTextFile(NewPath, , True)
Set fout = fso.CreateTextFile(TxtPath)
这段留言程序中的NewPath = Server.MapPath(”newbook.txt”) 是干什么的啊！谢谢了
能不能在说详细点啊 ！把
TxtPath = Server.MapPath(”book1.txt”)
NewPath = Server.MapPath(”newbook.txt”)
fso.MoveFile TxtPath, NewPath
Set fin = fso.OpenTextFile(NewPath, , True)
Set fout = fso.CreateTextFile(TxtPath)
这全给我说一遍吧