关于用户自定义某个栏目会员可以浏览做法-风讯CMS教程
来源:模板无忧 作者:cpx2004
更新时间:2006-06-16
点击:
有很多人问我怎么让网站里的一些栏目实现用风讯的会员系统来限制，就是只有登陆风讯的会员系统才可以访问某个页面！
做法如下：
在要限制的页面加入<!--#include file=\"../Inc/restrict.asp\" --> restrict.asp 存放位置 风讯网站程序目录/INC/ restrict.asp 文件内容如下： <!--#include file=\"Const.asp\" --><!--#include file=\"Cls_DB.asp\" -->
<%
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file=\"MemberCheck.asp\" -->
<%
Dim GroupID,UserPoint
Dim ConfigDoMain
Set ConfigDoMain=conn.execute(\"select domain,IndexExtName from config\")
MemName = Request.Cookies(\"Foosun\")(\"MemName\")
Sub GetGroupID(Val)
GroupID = Val
End Sub Sub GetUserPoint(Val)
UserPoint = Val
End Sub
Dim Rs,Rs1,ReadTF,Rs2
Set Rs=Conn.execute(\"select * from Members where MemName='\"&MemName&\"'\")
Set Rs1=Conn.execute(\"select * from MemGroup where ID=\"&Rs(\"GroupID\")&\"\")
If clng(UserPoint)<>0 then
If clng(UserPoint)>Rs(\"Point\") Then
Response.Write \"<title>浏览</title>\"
Response.Write \"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>\"
Response.Write \"<style>body{font-size:9pt;line-height:140%}</style>\"
Response.Write \"<body>\"
Response.Write \"<meta http-equiv='Refresh' content='5; URL=\"&ConfigDoMain(\"domain\")&\"/index.\"&ConfigDoMain(\"IndexExtName\")&\"'>\" & Chr(13)
Response.Write(\"你的点数不足！5秒后自动<a href=\"&ConfigDoMain(\"domain\")&\"/index.\"&ConfigDoMain(\"IndexExtName\")&\">返回首页</a>...\")
response.End
End if
End if
%>
相关风讯CMS教程：
最新评论：
评论加载中....
发表评论：不能超过250字节,请自觉遵守互联网相关政策法规.
- 昵称: 验证: