<%      
    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来输出图片

<% 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 dim str_img for i=1 to NUM str_img=str_img&"<img src='NUM/"&mid(nvisitors,i,1)&".gif'></img>" Next response.write("<script language=javascript>") response.write("document.write('"&str_img&"');") response.write("</script>") Application.UnLock %>

---

如果对了不用谢，给他爹说一声，他爹最喜欢成就感。

还是不行。。。。
他提示行1有错

<% 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 dim str_img for i=1 to NUM str_img=str_img&"<img src='NUM/"&mid(nvisitors,i,1)&".gif'></img>" Next response.write("document.write('"&str_img&"');") Application.UnLock %>

本来是这样子的： 你是本站的第 <% 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 %> 个客人 我想把他改成： 你是本站的第<script language="javascript" src=counter.asp></script>个客人 connter.asp如下： <% 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 dim str_img for i=1 to NUM str_img=str_img&"<img src='NUM/"&mid(nvisitors,i,1)&".gif'></img>" Next response.write("document.write('"&str_img&"');") Application.UnLock %> 但是我试了还是不能用。

可能你的asp文件都有问题

你先做好 再改成js文件就行了