|
- <%
- ip=Request.ServerVariables("REMOTE_HOST")
- Set Rs = Server.CreateObject("Adodb.Recordset")
- Rs.Open "Select * From ip where ip='"&ip&"' and ci>2",Conn,1,1
- if not rs.eof
- '//满足要求记录存在,调到其他页面
- response.Write"<script>location.href='logini.asp'</script>"
- else
- response.Write"<script>location.href='hosty.asp'</script>"
- end if
- rs.close
- set rs=nothing
- conn.close
- %>
复制代码 |
|