📄 nc_usercls.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
字号:
<%
Class Check
	Private ErrMsg
	Private SucMsg
	Public CacheName
	Public i
	Public CheckAdmin
	Public CheckAdminAll
	Public Administer
	Public tempAdmin
	Public tadmin
	Public Flag
	Public Purview
	Public AdminName

	Private Sub Class_Initialize()
		On Error Resume Next
		CacheName = Replace(Replace(Replace(Replace(LCase(Server.MapPath("index.asp")), "index.asp", ""), ":", ""), "\", ""), "admin", "")
	End Sub

	Public Property Get AdminChk()
		AdminChk = Administer
	End Property

	Public Property Let AdminChk(iIndex)
		Administer = iIndex
	End Property

	Public Sub Check()
	 If DownsysClass.memberName = Empty Then
		Response.Write "<script>alert('对不起!你还没有登陆 \n\n如果你是本站会员请先登陆!');location.replace('user.asp')</script>"
		Response.End
	 End If

	End Sub

	Public Function ChkAdmin(tadmin, Administer)
		ChkAdmin = False
		If Flag = 1 Then
			ChkAdmin = True
		Else
			If Administer <> "" Then
				tempAdmin = Split(Administer, ",")
				For i = 0 To UBound(tempAdmin)
					If Trim(tempAdmin(i)) = Trim(tadmin) Then
						ChkAdmin = True
						Exit For
					End If
				Next
			End If
		End If
	End Function

	Public Sub Error_Msg(ErrMsg)
		Response.Write "<html><head><title>错误提示信息!</title><meta http-equiv=Content-Type content=text/html; charset=gb2312>" & vbCrLf
		Response.Write "<link href=style.css rel=stylesheet type=text/css></head><body>" & vbCrLf
		Response.Write "<table cellpadding=5 cellspacing=1 border=0 width=75% align=center class=tableBorder1>" & vbCrLf
		Response.Write "  <tr><th>错误提示信息!</th></tr>" & vbCrLf
		Response.Write "  <tr><td width=100% height=45 class=forumRow><b>产生错误的可能原因：</b><BR>" & ErrMsg & "</td></tr>" & vbCrLf
		Response.Write "  <tr><td align=center height=25 class=forumRowHighlight><a href='" & Request.ServerVariables("HTTP_REFERER") & "'>返回上一页...</a></td></tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Write "</body></html>" & vbCrLf
	End Sub
	'********成功提示信息****************
	Public Sub Succeed_Msg(SucMsg)
		Response.Write "<table width=""75%"" align=""center"" border=""0"" cellpadding=""5"" cellspacing=""1"" class=""tableBorder1"">" & vbCrLf
		Response.Write "    <tr> " & vbCrLf
		Response.Write "      <th>成功提示信息!</th>" & vbCrLf
		Response.Write "    </tr>" & vbCrLf
		Response.Write "  <tr><td width=100% height=45 class=forumRow>" & SucMsg & "</td></tr>" & vbCrLf
		Response.Write "  <tr><td align=center height=25 class=forumRowHighlight><a href='" & Request.ServerVariables("HTTP_REFERER") & "'>返回上一页...</a></td></tr>" & vbCrLf
		Response.Write " </table>" & vbCrLf
	End Sub

End Class
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -