www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\vip\config.asp

    <%
ipcount = 8000

url = "http://www.eddit.cn/article/112.html" '降下面代码复制到此页

id = request("id")
set ip = request.ServerVariables("REMOTE_ADDR")
if id <> "" and isnumeric(id) then
	set rs = server.CreateObject("adodb.recordset")
	sql = "select * from [user] where id = "&id
	rs.open sql,conn,2,2
	if not rs.eof then
		if rs("ip") <> ip and instr(rs("ips"),ip) = 0 then
			rs("ips") = rs("ips")&"|"&ip
			rs("ipcount") = rs("ipcount") + 1
			rs.update
			response.Redirect url
		end if
	end if
	rs.close
end if
%>