谁帮我改一下。。。。

斷々弦

<%      
    Set files=Server.CreateObject("Scripting.FileSystemObject")
    Set numtxt=files.OpenTextFile(Server.MapPath("Num.txt"))
    nvisitors=numtxt.ReadLine
if clng(Application("Num"))<nvisitors then
     Application("Num")=nvisitors+1
else
     Application("Num")=Application("Num")+1
end if
    numtxt.Close   
    Set numtxt=files.CreateTextFile(Server.MapPath("Num.txt"),True)
    numtxt.WriteLine(Application("Num"))
    numtxt.Close
NUM=len(nvisitors)
Application.Lock
for i=1 to  NUM
   response.write "<img src='NUM/"&mid(nvisitors,i,1)&".gif'></img>"
Next   
Application.UnLock
%>
改成JS文件。
用document.write来输出图片