日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

關(guān)于用戶自定義某個(gè)欄目會(huì)員可以瀏覽做法_風(fēng)訊Cms教程

編輯Tag賺U幣
教程Tag：暫無Tag,歡迎添加,賺取U幣!

有很多人問我怎么讓網(wǎng)站里的一些欄目實(shí)現(xiàn)用風(fēng)訊的會(huì)員系統(tǒng)來限制，就是只有登陸風(fēng)訊的會(huì)員系統(tǒng)才可以訪問某個(gè)頁面！


做法如下：

在要限制的頁面加入<!--#include file="../Inc/restrict.asp" -->

restrict.asp 存放位置 風(fēng)訊網(wǎng)站程序目錄/INC/

restrict.asp 文件內(nèi)容如下：

<!--#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("你的點(diǎn)數(shù)不足！5秒后自動(dòng)<a href="&ConfigDoMain("domain")&"/index."&ConfigDoMain("IndexExtName")&">返回首頁</a>...")
response.End
End if
End if
%>

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板

來源：模板無憂//所屬分類：風(fēng)訊Cms教程/更新時(shí)間：2006-06-16
相關(guān)風(fēng)訊Cms教程：