<!--'封ip
uip=Request.ServerVariables("REMOTE_ADDR")
set rs=server.createobject("adodb.recordset")
sql="select * from pingbi"
rs.open sql,conn,1,1
ip=rs("pingbi_ip")
mystring=ip
call mystr(mystring,allstr,leng)
youipp=0
youippip=""
for i=0 to leng
if InStr(uip,allstr(i))>0 then
youipp=youipp+1
youippip=allstr(i)
end if
If i=leng Then Exit For
Next
if youipp>0 then 'ip被屏蔽
%>
<script language="vbScript">
msgbox "你的IP:<=uip%>已被封闭!请与管理员联系!"
window.location="login.asp"
</script>
end if-->
看不明白.请联系我qq:70074004
域名注册/空间租用/网站制作/ASP编程开发/平面设..有意者,请联系:0429-8994637 QQ:70074004