cookies跨不了域很麻煩,有了這個腳本就方便多了.

1. <%  
2. ip=Request.ServerVariables("REMOTE_ADDR")  
3. set Fso=CreateObject("Scripting.FileSystemObject")  
4. Set Files=Fso.OpenTextFile(server.mappath("./ip.txt"),1,false)  
5. data=files.readall  
6. files.close  
7. set fso=nothing  
8. if InstrRev(data, ip, -1, 0) = 0 then  
9.     set Fso=CreateObject("Scripting.FileSystemObject")  
10.     Set File=Fso.OpenTextFile(server.mappath("./ip.txt"),8,true)  
11.     file.writeline ip  
12.     file.close  
13.     set fso=nothing  
14.     response.write "此IP今天第一次訪問該頁面"  
15.     response.end  
16. else  
17.     response.write "此IP以前訪問過了"  
18.     response.end  
19. end if  
20. %>