<%
response.buffer=true
response.Charset="gb2312"
if session("u_levelid")=1 then response.write "":response.end
conn.open constr
act=trim(requesta("act"))
if act="do" then
apipwd=requesta("apipwd")
apiiplist=requesta("apiiplist")
if apipwd="" then url_return "密码必须设置",-1
iplist=""
cur=1
if trim(apiiplist)<>"" then
for each iplistitem in split(apiiplist,vbcrlf)
if isCheckip(trim(iplistitem)) then
iplist=iplist & trim(iplistitem) & ","
cur=cur+1
else
url_return "IP地址:"& iplistitem &"有错误",-1
exit for
end if
next
if right(iplist,1)="," then iplist=left(iplist,len(iplist)-1)
end if
if cur>5 then url_return "IP最多为5个,请检查",-1
sql="select * from APIuser_list where u_id="& session("u_sysid")
rs.open sql,conn,3,3
if rs.eof and rs.bof then
rs.addnew()
end if
rs("a_password")=apipwd
rs("u_id")=session("u_sysid")
rs("a_iplist")=iplist
rs.update()
rs.close
Alert_Redirect "设置成功",request("script_name")
end if
sql="select * from APIuser_list where u_id="& session("u_sysid")
rs.open sql,conn,1,1
if not rs.eof then
apipwd=rs("a_password")
apilock=rs("a_lock")
apiiplist=trim(rs("a_iplist"))
if apiiplist&""<>"" then
apiiplist=replace(apiiplist,",",vbcrlf)
end if
end if
rs.close
function isCheckip(sInput)
Dim oRegExp
Set oRegExp = new RegExp
oRegExp.Pattern = "^(\d{1,4}\.\d{1,4}\.\d{1,4}\.\d{1,4}$)|(^\d{1,4}\.\d{1,4}\.\d{1,4}\.\d{1,4}\/\d{1,2}$)"
oRegExp.IgnoreCase = false
oRegExp.Global = True
isCheckip = oRegExp.Test(sInput)
Set oRegExp = Nothing
end function
%>