| 欢迎<%=session("mastername")%>进入管理页面
|
>
|
<%call leftmenu()%>
|
| >
添加ip数据来源：
|
|
<%
dim sip,str1,str2,str3,num_1,num_2
if request("action") = "save" then
sip=cstr(request("ip1"))
'dot=instr(ip,".")-1
'response.write dot
str1=left(sip,cint(instr(sip,".")-1))
sip=mid(sip,cint(instr(sip,"."))+1)
str2=left(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=left(sip,cint(instr(sip,"."))-1)
str4=mid(sip,cint(instr(sip,"."))+1)
num_1=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
sip=cstr(request("ip2"))
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num_2=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
'response.write num_1 &","& num_2
'response.end
set rs = server.CreateObject ("adodb.recordset")
sql="select * from address"
rs.open sql,conn,1,3
rs.addnew
rs("ip1")=num_1
rs("ip2")=num_2
rs("country")=trim(request("country"))
if request("city")<>"" then
rs("city")=trim(request("city"))
end if
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "添加成功！"
else
%>
<%end if%>
|
|
<%
end sub
%> |