AI闁诲繐绻愮换妤佺閿燂拷 闂佺厧鐤囧Λ鍕疮閹炬潙顕辨慨妯块哺閺嗭拷
闂佺硶鏅濋崰搴ㄥ箖閿燂拷
闂佽浜介崝蹇撶暦閿燂拷关于用户自定义某个栏目会员可以浏览做法_风讯Cms教程
教程Tag：暂无Tag,欢迎添加,赚取U币!
缂傚倷绀佸ú锕傚焻缁€鎱筪eCMS闁荤喐鐟ュΛ婵嬨€傞崼鏇炴瀬婵炲棙鍨熼弻锟�婵炴垶姊规竟鍡涘煘閺嶎厽鈷掗柨鐕傛嫹 缂備礁顦遍崰鎰耿閸ヮ剙绀夐柍銉ㄦ珪閻濓拷 闂備緡鍋勯ˇ杈╃礊婢跺本鍏滈柡鍥ㄦ皑闂夊秹鏌ゆ潏銊︻棖缂佹唻鎷� 闂佸搫鍟版慨鎾椽閺嶎偆鍗氭繛鍡樻尰濮ｆ劗鈧鎮堕崕閬嶅矗閿燂拷,闂佽皫鍕姢閻庤濞婂鍫曞礃椤斿吋顏熸繛鎴炴尨閸嬫捇姊哄▎鎯ф灈闁告瑥绻樺濠氭晸閿燂拷!
有很多人问我怎么让网站里的一些栏目实现用风讯的会员系统来限制，就是只有登陆风讯的会员系统才可以访问某个页面！
做法如下：
在要限制的页面加入<!--#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教程：
- 相关链接：
- 教程说明：
风讯Cms教程-关于用户自定义某个栏目会员可以浏览做法
。