<!--#include file="../inc/dbconn.inc"-->
<%

sub WriteToDB
        HtmlReffer = Request.Servervariables("HTTP_REFERER") & " "
        ClientIP   = Request.Servervariables("REMOTE_HOST")
        Filename   = Request.QueryString("FileId") 
        if trim(HtmlReffer) = "" then
          HtmlReffer = "unknown"
        end if
        
        IP = Split(ClientIP, ".", -1, 1)
        iIP = ((CLng(IP(0)) * 256 + CLng(IP(1)))*256 + CLng(IP(2)))*256 + CLng(IP(3)) - 2147483647
        
        MaxLen = 36
        SQL = "select city from tb_ip where start<= " & iIP & " AND end >= " & iIP
        set rs = Server.CreateObject("ADODB.Recordset")
        rs.open SQL, conn, 1, 1
        if not rs.eof then
          'if Len(ClientIP & rs("city")) <= MaxLen then
             ClientIP = ClientIP & rs("city")
          'else 
          '   ClientIP = IP(2) & "." & IP(3) & rs("city")
          'end if
        end if
        rs.close
        set rs = nothing        

	SQL = "Insert into FileDown(HtmlReffer, Filename, ClientIP, DownDate) values('" & HtmlReffer & "', '" & Filename & "', '" & ClientIP & "', '" & Year(now) & "-" & right("0" & Month(now), 2) & "-" & right("0" & Day(Now), 2) & " " & right("0" & Hour(now), 2) & ":" & right("0" & Minute(now), 2) & ":" & right("0" & Second(Now), 2) & "')"
	conn.Execute SQL

	conn.close
	set conn=nothing  

end sub

on error resume next
WriteToDb

if LCase(request.querystring("FileId")) = "mygrep10_cn.exe" then 
  response.redirect "mygrep10_cn.zip"
else  
  if (InStr(LCase(request.querystring("FileId")), "ent") > 0) and (InStr(LCase(request.querystring("FileId")), "zip") > 0) then
    response.redirect "AspAppEnt29.zip"
  elseif (InStr(LCase(request.querystring("FileId")), "pro") > 0) and (InStr(LCase(request.querystring("FileId")), "zip") > 0) then
    response.redirect "AspAppPro29.zip"
  else
    response.redirect request.querystring("FileId")
  end if
end if
%>