<% Dim action,userIP action = Request.QueryString("action") If Lcase(action) = "noload" Then userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") Call InFile(Request.ServerVariables("HTTP_REFERER"),userIP) Response.End End If Dim FromUrl FromUrl = Lcase(Request.ServerVariables("server_name")) If InStr("www.sw163.org",FromUrl)>0 Then Response.Redirect "http://www.0660ok.com/" Response.End End If If InStr("www.hlfrc.com",FromUrl) > 0 Then Response.Redirect "job/" Response.End End If If InStr("www.1wchina.com",FromUrl) > 0 Then Response.Redirect "web/" Response.End End If If InStr("www.0660e.com",FromUrl) > 0 Then Response.Redirect "mj/" Response.End End If If InStr("www.0660bbs.com",FromUrl) > 0 Then Response.Redirect "bbs/" Response.End End If If InStr("www.1w3w.com|www.hfsw.gd.cn",FromUrl) > 0 Then Response.Redirect "b2b/" Response.End End If If InStr("www.sw3721.com",FromUrl) > 0 Then Response.Redirect "shop/" Response.End End If If InStr("www.0660114.com",FromUrl) > 0 Then Response.Redirect "info/" Response.End End If Function InFile(CreateUrl,userIP) Dim Fso,MyFile,FileUrl Set Fso = Server.CreateObject("Scripting.FileSystemObject") FileUrl = Server.MapPath("./sw/FromSite")&"\"&Date()&".txt" If Not Fso.FileExists(FileUrl) Then Set MyFile = Fso.CreateTextFile(FileUrl,True) PutInStr = CreateUrl & " " & now() & " " & userIP & VBCrlf PutInStr = Replace(PutInStr,"^",Chr(34)) MyFile.Write(PutInStr) Else Set MyFile = Fso.OpenTextFile(FileUrl,1) If Not(MyFile.AtEndOfStream) Then If Not(InStr(MyFile.ReadAll,userIP) > 0) Then MyFile.Close Set MyFile = Fso.OpenTextFile(FileUrl,8) PutInStr = CreateUrl & " " & now() & " " & userIP & VBCrlf PutInStr = Replace(PutInStr,"^",Chr(34)) MyFile.Write(PutInStr) End If End If End If MyFile.Close Dim PutInStr Set Fso = Nothing End Function %> '