📄 altert.asp
字号:
<!--#include file=conn.asp-->
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<%
sqlarea1="select * from kip where kuserid='40'"
set rssqlarea1=Server.createobject("adodb.recordset")
rssqlarea1.open sqlarea1,conn,1,1
if not rssqlarea1.eof then'这个用户有IP值
areaarray=rssqlarea1.getrows(,,2)'//因为只取了一个字段的值所以二维数组的字段为0
rsrecordcount=rssqlarea1.recordcount'//有多少个IP记录
rssqlarea1.close
set rssqlarea1=nothing
else
rssqlarea1.close
set rssqlarea1=nothing
end if
for i=0 to clng(rsrecordcount-1)
areaip=Trim(Replace(areaarray(0,i),".",""))
areaip1="select * from IpInfo where StartIp like '"&left(areaip,6)&"%'"'//判断前六位
set rsareaip1=Server.createobject("adodb.recordset")
rsareaip1.open areaip1,conn,1,1
if not rsareaip1.eof then'//如果前六位相等
rsarearecount1=rsareaip1.recordcount'//统计前6位相等的地区数
'------如果有其它地区
if rsarearecount1=1 then
area=rsareaip1("Area")
rsareaip1.close
set rsareaip1=nothing
elseif rsarearecount1>1 then
while not rsareaip1.eof
afterip=mid(rsareaip1("StartIp"),6,3)'从第六位起取后三位
if afterip=mid(areaip,6,3) and clng(mid(areaip,9,3))<clng(mid(rsareaip1("EndIp"),9,3)) then'比较IP后三位
area=rsareaip1("Area")
end if
rsareaip1.movenext
wend
if area=empty then
area="无法判断"
end if
rsareaip1.close
set rsareaip1=nothing
end if
'--------
else
rsareaip1.close
set rsareaip1=nothing
area="无法判断"
end if
areaid1=43
set rsareanum=Server.createobject("adodb.recordset")
rsareanum.open "select * from kcountarea where countarea='"&area&"'",conn,1,1
source=rsareanum(""&areaid1&"")'找到这个地区找出这个用户名字段的值
rsareanum.close
set rsareanum=nothing
areain="update kcountarea set "&areaid1&"="&source&"+1 where countarea='"&area&"'"'//更新这个用户字段的对应地区的值
conn.execute areain
next
%>
</HEAD>
<BODY>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -