这是我在网上找的计数器的一段代码,如下所示,但发到网上却没有显示,请问这是哪里错了,帮我修改一下好吗

您是本网站的第 <font color="blue">
<%
Sub Numberpad()
Set files=Server.CreateObject("Scripting.FileSystemObject"
Set numtxt=files.OpenTextFile(Server.MapPath("/Num.txt")
Application("Num"=numtxt.ReadLine
numtxt.Close
Application("Num"=Application("Num"+1
Response.Write Application("Num"
Set numtxt=files.CreateTextFile(Server.MapPath("/Num.txt",True)
numtxt.WriteLine(Application("Num")
numtxt.Close
End Sub

Application.Lock
Numberpad
Application.UnLock
%>
</font> 位访问者</td>