<%
Server.ScriptTimeOut=6000
file="add169.txt"
set fsFilesys=CreateObject("Scripting.FileSystemObject")
Set con=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("blank.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
con.Open connstr
Set rs = Server.CreateObject("ADODB.Recordset")

line=0
set myText=fsFilesys.OpenTextFile(Server.MapPath("/")&"/count/"&file)
for n=1 to 1000000
text=mytext.readline
line=line+1

if len(text)<15 then
response.write line&"̫ˣ"
response.end
end if

ip1=left(text,12)
text=mid(text,14)
ip2=left(text,12)
text=mid(text,14)
if instr(text,"")>0 then
country=left(text,instr(text,"")-1)
city=mid(text,instr(text,"")+1)
else
country=text
city=""
end if
response.write "country:"&country&"<br>"


sql="select * from country where name='"&country&"'"
rs.open sql,con,2,2

if not rs.eof then%>
<%=country%>Ѵ,ܼ룡<br>
<%else
rs.addnew
rs("name")=country
rs("num")=0
%>
<%=country%>ѳɹ<br>
<%end if
rs.Update
rs.close
next
mytext.close
con.close%>