關于用戶自定義某個欄目會員可以瀏覽做法

2024-08-30 19:06:13

字體：大中小

來源：轉載

供稿：網友

有很多人問我怎么讓網站里的一些欄目實現用風訊的會員系統來限制，就是只有登陸風訊的會員系統才可以訪問某個頁面！

做法如下：

在要限制的頁面加入

restrict.asp 存放位置風訊網站程序目錄/INC/

restrict.asp 文件內容如下：

<%
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>

<%
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
%>

上一篇：3.1-頁面關鍵字標簽及采集新聞自動添加關鍵字

下一篇：新建、修改標簽提高瀏覽速度(改圖片為普通button)