fso.asp

重庆宽频P2P电影小偷程序,可以做一个大型的电影站了

<!--#include file="ip2.asp" -->
<%
dim filename,MDBpath,fso,fout,IPstop,html

sub err_fisrt
   Response.Redirect "http://www.pp023.com/skin/qq530/all/movie.html"
   'response.write "你的IP第一次被禁止..."
   myfile = server.mappath("../p2p/ip.txt")                                    '记录一下坏蛋的ip地址
   Set fso = Server.CreateObject("Scripting.FileSystemObject") 
   set f = fso.OpenTextFile(myfile,8)
   f.write(now&","&ip&vbcrlf)
   f.close
   set f=nothing
   set fso=nothing
   response.end
end sub

sub err_second
   '将坏蛋的ip地址保存在ip2.asp数据库中
   response.write "你的IP被记录到不良记录中..."
   html=IpStop
   html=html&ip&"|"
   html="<%IpStop="""&html
   html=html&"""%"
   html=html&">"
   filename="../p2p/ip2.asp"
   MDBpath="./"
   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
   fout.Write html
   fout.close
   set fout=nothing
   set fso=nothing
   response.end
end sub
%>