inc.asp
来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 442 行 · 第 1/2 页
ASP
442 行
<%
'****************************************************
' Hxcms Ver7.6 Power by Hx66.net
' Web: http://www.Hx66.net http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
'=================================================
'过程名：head
'作 用：页头
'参 数：无
'web: www.hx66.net-----Hxcms7.5
'=================================================
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"<div align=center><font color=red size=2>对不起，您的IP已被系统管理员锁定!</font></div>"
response.end
end if
if webopen="yes" then
response.write"<div align=center><font color=red size=2>"& offweb &"</font></div>"
response.end
end if
%>
<!--
┌──────────HX66─┐
│ 花香盈路HX66.net版权所有 │
└───────────.net┘
-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-CN" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="generator" content="HxCms" />
<meta name="keywords" content="hx66,xc" />
<meta name="description" content="新闻，文章，歌曲，影视，下载，特效，图片，博客，商城，供求，黄页，酷站，连接，统计，留言" />
<meta name="robots" content="all" />
<meta name="author" content="xc,xc@hx66.net" />
<title><%=webname%> - <%=start%></title>
<link href="skin/<%=skin%>/css.css" rel="stylesheet" type="text/css" />
<base onmouseover="window.status='HxCms hx66.com.cn……';return true" />
<SCRIPT language=javaScript src="inc/js.js" type=text/javascript></SCRIPT>
<style type="text/css">
<!--
.menuskin {
BORDER: #003366 1px solid; VISIBILITY: hidden; FONT: 12px Verdana;
POSITION: absolute; BACKGROUND-COLOR:#F6F6F6;
background-image:url("img/menubg.gif");
}
.menuskin A {
PADDING-RIGHT: 6px; PADDING-LEFT: 20px; COLOR: #333333; TEXT-DECORATION: none;
}
.menuitems{
margin:2px;padding:1px;word-break:keep-all;
}
-->
</style>
</HEAD>
<BODY>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="table-hx66s">
<tr>
<td valign="top" background="skin/<%=skin%>/banner.gif" height="140"></td>
</tr>
</table>
<%end sub
'=================================================
'过程名：menu
'作 用：导航
'参 数：无
'web: www.hx66.net-----Hxcms7.5
'=================================================
sub menu()%>
<!--#include file="menu.asp"-->
<%end sub
'=================================================
'过程名：footer
'作 用：页脚
'参 数：无
'web: www.hx66.net-----Hxcms7.5
'=================================================
sub footer()
time2=timer
dim skin1
skin1=""&skin&""
if skin1="0" then
hxskin="淡蓝风格"
elseif skin1="1" then
hxskin="黄色魅力"
elseif skin1="2" then
hxskin="墨蓝深远"
elseif skin1="3" then
hxskin="粉红诱惑"
elseif skin1="4" then
hxskin="灰色畅想"
elseif skin1="5" then
hxskin="花之仙子"
elseif skin1="6" then
hxskin="生命绿色"
elseif skin1="7" then
hxskin="新年风格"
elseif skin1="8" then
hxskin="蓝蓝海岸"
end if%>
<table width="760" border="0" align="center" cellspacing="0" cellpadding="0" class="table-hx66s" bgcolor="#FFFFFF">
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="23" class="a1" align="right"><font color=#999999>当前风格：<%=hxskin%></font> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" background="skin/<%=skin%>/bg_bott.jpg" class="table-hx66s">
<tr>
<td valign="top" height="6"></td>
</tr>
<tr>
<td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center" valign="TOP"><a href='about.asp'>关于本站</a> | <a href='about.asp?hx66=lx'>联系我们</a> | <a href='about.asp?hx66=gg'>广告合作</a> | <a href='about.asp?hx66=dt'>网站地图</a> | <a href="link.asp">友情连接</a> | <a href='admin.asp' target='_blank' Title='后台管理'>后台管理</a> | <script language='JavaScript' src='counter.asp'></script><SCRIPT language="javaScript" src="blog_menu.asp" type=text/javascript></SCRIPT></td>
</tr>
<tr>
<td width="100%" align="center">Copyright © 2005 - 2008 Hx66.net Inc. All Rights Reserved.<BR><a href="http://www.hx66.com.cn" target="_blank">HxCms Ver7.6 免费版</a> 页面执行时间：<%=FormatNumber((time2-time1)*1000,2)%>MS<br><%=WebName%> 版权所有 <a href="http://www.miibeian.gov.cn" target="_blank"><%=webinfo%></a></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" height="20"><!--#include file="count.asp"--></td>
</tr>
</table>
<noscript><iframe src=*.html></iframe></noscript>
</body>
</html>
<%end sub
'=================================================
'过程名：无
'作 用：会员登陆判断
'参 数：无
'web: www.hx66.net-----Hxcms7.5
'=================================================
if Request.Cookies("HX_USER")("User_Name")="" or isnull(Request.Cookies("HX_USER")("User_Name")) or Request.Cookies("HX_USER")("User_Pwd")="" or isnull(Request.Cookies("HX_USER")("User_Pwd")) then
UserLogined=False
checkmember=False
SupAdmin=False
Hx66_Grade=""
Hx66_points=""
else
function ReplaceBadChar(strChar)
if strChar="" then
ReplaceBadChar=""
else
ReplaceBadChar=replace(replace(replace(replace(replace(replace(replace(strChar,"'",""),"*",""),"?",""),"(",""),")",""),"<",""),".","")
end if
end function
userid=clng(request.Cookies("HX_USER")("uid"))
username=ReplaceBadChar(request.Cookies("HX_USER")("User_Name"))
password=ReplaceBadChar(request.Cookies("HX_USER")("User_Pwd"))
sql="select * from [User] where userid=" & userid &" and UserName='" & Username & "' and password='" & password & "'"
set rs0=server.createobject("adodb.recordset")
rs0.open sql,conn,1,1
IF Rs0.eof Then
Response.Redirect "show_error.asp?eid=非法登录,请不要破坏此系统,如果依然有问题请联系管理员!"
Response.End
else
UserLogined=True
Hx66_uid=rs0("UserID")
Hx66_name=rs0("UserName")
Hx66_Password=rs0("Password")
Hx66_Question=rs0("Question")
Hx66_Answer=rs0("Answer")
Hx66_Email=rs0("Email")
Hx66_sex=rs0("sex")
Hx66_RegDate=rs0("RegDate")
Hx66_LoginTimes=rs0("LoginTimes")
Hx66_Homepage=rs0("Homepage")
Hx66_QQ=rs0("QQ")
Hx66_LastLoginTime=rs0("LastLoginTime")
Hx66_Grade=rs0("UserGrade")
Hx66_points=rs0("points")
Hx66_Photo=rs0("UserPhoto")
Hx66_Sign=rs0("UserSign")
Hx66_friend=rs0("Userfriend")
Hx66_collect=rs0("usercollect")
Hx66_hidden=rs0("hidden")
Hx66_whe=rs0("whe")
Hx66_birthday=rs0("birthday")
Hx66_phone=rs0("phone")
Hx66_address=rs0("address")
Hx66_vipin=rs0("vipindate")
Hx66_vipend=rs0("vipenddate")
rs0.close
set rs0=nothing
End IF
IF Hx66_Grade=1 and Hx66_vipend-date()<=0 Then conn.Execute("insert into message(incept,sender,title,content,sendtime) values('"&Hx66_name&"','"&webname&"','系统消息--VIP资格到期','亲爱的用户"&Hx66_name&"，您的VIP资格有效期已到，非常感谢你对本站的支持。',now())")
IF Hx66_Grade=1 and Hx66_vipend-date()<=0 Then Conn.execute("update [User] set UserGrade=0 where UserID in ("&userid&")")
dim checkmember,SupAdmin
IF blog_yes=1 then
checkmember=true
Elseif blog_yes=2 and Hx66_Grade=1 then
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?