updateipfrom.asp

来自「1、Conn.asp 数据库连接文件 2、ipCheck.inc 」· ASP 代码 · 共 25 行

<%@LANGUAGE="VBSCRIPT.Encode" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="ipCheck.inc"-->
<%
ipstr=request("ipstr")
ipfrom=request("ipfrom")
dim conn,rs,sql
set conn = getConn_ip()
set rs=getRs()

sql="select top 1 * from [ip] where "&cip(ipstr)&" >=ip1 and "&cip(ipstr)&"<=ip2"
rs.open sql,conn,3,3
if(not rs.bof and not rs.eof) then
	rs("addr")=ipfrom
	rs.update
	backStr="updateOK"
else
	backStr="updateFailed"
end if

rs.close
conn.close

response.write(backStr)
%>