📄 nopermission.asp

📁 电子商务网络购物系统

💻 ASP

字号:

<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True 

Dim strReturnPage
Dim strReturnPageProperties	
Dim intForumID

Select Case Request.QueryString("RP")
	Case "Search"
		strReturnPage = "searchchk.asp"
		strReturnPageProperties = "?RP=" & Request.QueryString("RP") & "&Spn=" & Request.QueryString("Spn") & "&search=" & Server.URLEncode(Request.QueryString("search")) & "&searchMode=" & Request.QueryString("searchMode") & "&searchIn=" & Request.QueryString("searchIn") & "&forum=" & Request.QueryString("forum") & "&searchSort=" & Request.QueryString("searchSort")
	Case "Active"
		strReturnPage = "active_topics.asp"
		strReturnPageProperties = "?pn=" & CInt(Request.QueryString("pn"))
	Case Else
		strReturnPage = "index.asp"
		strReturnPageProperties = "?fid=0"
End Select


%>  
<html>
<head>


<title>拒绝访问</title>


  <table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
 <tr> 
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %>禁止访问<br /></td>
  </tr>
</table>
<div align="center">
  <br /><br /><br />
 <span class="lgText">对不起,你没有浏览本页面的权限</span><br />
  <br />
  <%
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
If Request.QueryString("M") = "IP" Then %>
<span class="text">对不起,你的IP被屏蔽</span>
<%
ElseIf Request.QueryString("M") = "sID" Then %>
<span class="text">请开通浏览器的Cookies功能</span>
<%
ElseIf intGroupID = 2 Then %>
<a href="reg.asp" target="_self"><img src="images/register.gif"  alt="注册" border="0" align="absmiddle"></a>&nbsp;&nbsp;<a href="login.asp" target="_self"><img src="images/login.gif"  alt="登录" border="0" align="absmiddle"></a><br />
<% End If %>
<br />
<br />
<!-- #include file="includes/footer.asp" -->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -