在要限制的頁面加入<!--#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 %>
