<%
'=================================================
'过程名：head
'作 用：页头
'参 数：无
'=================================================
sub head()
if Request.Cookies("skins")<>"" and skinopen="yes" then
skin=Request.Cookies("skins")
end if
dim Ip_address
Ip_address=Request.ServerVariables ("HTTP_X_FORWARDED_FOR") '获得客户端的代理ip地址
If Ip_address="" Then
Ip_address= Request.ServerVariables ("REMOTE_ADDR") '获得客户端的ip地址
End If
'--------ID限制
u_uid=Request.Cookies("HX_CHECK")("uid")
checkopen=False
if bad_ID<>"" then
check_uid=split(bad_ID,"|")
for z=0 to ubound(check_uid)
'if instr(u_uid,check_uid(z))>0 then
if check_uid(z)=u_uid then
checkopen=true
exit for
end if
next
end if
'--------ID限制
if valid_ip(Ip_address)<>"true" OR checkopen=true then
response.write"
对不起，您的IP已被系统管理员锁定!
"
response.end
end if
if webopen="yes" then
response.write"
"& offweb &"
"
response.end
end if
%>
酷多网站地图
<%if qq="yes" then%><%end if%>
