<%
Class Site_Class
	Public SiteName,SiteUrl,SiteLogo,SiteIcp,SiteClose,SiteCloseNote,SiteMeta1,SiteMeta2
	Public SiteQQ
	Public NewPerSh,NewComSh,PerRegClose,PerRegCloseNote,ComRegClose,ComRegCloseNote,RegNoName
	Public NewPerSendFlag,NewPerSend,NewComSendFlag,NewComSend
	Public MailType,MailSmtp,MailUserName,MailPassWord
	Public arrMember
	Public FzId,FzProvince,FzCity,FzCounty
	Public IndNewZp,IndNewJl
	
	Public Sub SiteConfig()
		Dim Rs
		If Not IsObject(Conn) Then ConnectionDatabase()
		
		Set Rs = Conn.Execute("select * from SiteConfigTbl where ConfigId = 1")
		If Not Rs.Eof Then
			SiteName = Rs("SiteName")
			SiteUrl = Rs("SiteUrl")
			SiteLogo = Rs("SiteLogo")
			SiteIcp = Rs("SiteIcp")
			SiteClose = Rs("SiteClose")
			SiteCloseNote = Rs("SiteCloseNote")
			SiteMeta1 = Rs("SiteMeta1")
			SiteMeta2 = Rs("SiteMeta2")
			IndNewZp = Rs("IndNewZp")
			IndNewJl = Rs("IndNewJl")
			SiteQQ = Rs("SiteQQ")
			NewPerSh = Rs("NewPerSh")
			NewComSh = Rs("NewComSh")
			PerRegClose = Rs("PerRegClose")
			PerRegCloseNote = Rs("PerRegCloseNote")
			ComRegClose = Rs("ComRegClose")
			ComRegCloseNote = Rs("ComRegCloseNote")
			RegNoName = Rs("RegNoName")
		Else
			SiteClose = "1"
			SiteCloseNote = "网站维护中……"
		End If
		Set Rs = Nothing
		
		If IndNewZp = "" Or Not IsNumeric(IndNewZp) Then IndNewZp = 40
		If IndNewJl = "" Or Not IsNumeric(IndNewJl) Then IndNewJl = 20
		If Session("MemberType") = "" Or Not IsNumeric(Session("MemberType")) Then Session("MemberType") = 0
	End Sub
	
	Public Sub SiteConfig_Master()
		Dim Rs
		If Not IsObject(Conn) Then ConnectionDatabase()
		
		Set Rs = Conn.Execute("select * from SiteConfigTbl where ConfigId = 1")
		If Not Rs.Eof Then
			SiteName = Rs("SiteName")
			SiteUrl = Rs("SiteUrl")
			SiteLogo = Rs("SiteLogo")
			SiteIcp = Rs("SiteIcp")
			SiteClose = Rs("SiteClose")
			SiteCloseNote = Rs("SiteCloseNote")
			SiteMeta1 = Rs("SiteMeta1")
			SiteMeta2 = Rs("SiteMeta2")
			IndNewZp = Rs("IndNewZp")
			IndNewJl = Rs("IndNewJl")
			SiteQQ = Rs("SiteQQ")
			NewPerSh = Rs("NewPerSh")
			NewComSh = Rs("NewComSh")
			PerRegClose = Rs("PerRegClose")
			PerRegCloseNote = Rs("PerRegCloseNote")
			ComRegClose = Rs("ComRegClose")
			ComRegCloseNote = Rs("ComRegCloseNote")
			RegNoName = Rs("RegNoName")
		Else
			SiteClose = "1"
			SiteCloseNote = "网站维护中……"
		End If
		Set Rs = Nothing
	End Sub
	
	Public Sub GotoErrPage()
		Dim PageUrl,IsLogin,IsErrPage
		PageUrl = Request.ServerVariables("Script_Name")
		IsLogin = InStr(PageUrl , "Master/")
		IsErrPage = InStr(PageUrl , "ErrPage.asp")
		
		If SiteClose = "1" And IsLogin = "0" And IsErrPage = "0" Then
			Response.Redirect(PagePath & "ErrPage.asp")
			Response.End()
		End If
	End Sub
	
	Public Function Member_Info()
		If vartype(Application("arrMember")) = 0 Then
			Dim Rs
			Set Rs = server.CreateObject("ADODB.recordset")
			If Not IsObject(Conn) Then ConnectionDatabase()
			
			Rs.Open "select * from MemberConfigTbl order by MemberId asc" , Conn , 1 , 1
			If Not Rs.Eof Then
				Application("arrMember") = Rs.GetRows(-1)
			End If
			Rs.Close
			Set Rs = Nothing
		End If
		Member_Info = Application("arrMember")
	End Function
	
	Public Sub Nav()
		SiteHead()
		SiteTj()
		SiteTopAd()
		MenuShow()
	End Sub
	
	Public Sub Nav_Company()
		SiteHead()
		SiteTopCompany()
		MenuShowCompany()
	End Sub
	
	Public Sub Nav_Person()
		SiteHead()
		SiteTopPerson()
		MenuShowPerson()
	End Sub
	
	Public Sub SiteHead()
		Response.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & vbCrLf)
		Response.Write("<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbCrLf)
		Response.Write("<head>" & vbCrLf)
		Response.Write("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />" & vbCrLf)
		Response.Write("<meta name=""keywords"" content=""" & SiteMeta1 & """>" & vbCrLf)
		Response.Write("<meta name=""description"" content=""" & SiteMeta2 & """>" & vbCrLf)
		Response.Write("<title>" & PageTitle & "</title>" & vbCrLf)
		Response.Write("<link href=""" & PagePath & "css.css"" rel=""stylesheet"" type=""text/css"" />" & vbCrLf)
		Response.Write("</head>" & vbCrLf)
		
		Response.Write("<body>" & vbCrLf)
	End Sub
	
	Sub SiteTj()
		Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""1"" bgcolor=""#DEDEDE""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""25"" bgcolor=""#F9F9F9""><table width=""1003"" align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td width=""494"" height=""25"">&nbsp;&nbsp;<script language=""javascript"" src=""" & PagePath & "Top_Tj.asp""></script></td>" & vbCrLf)
		Response.Write("<td width=""484"" height=""25"" align=""right""><script language=""javascript"" src=""" & PagePath & "Top_Set.asp?SiteName=" & SiteName & "&SiteUrl=" & SiteUrl & """></script></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""1"" bgcolor=""#DEDEDE""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)
	End Sub
	
	Sub SiteTopAd()
		Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""80""><table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td width=""233"" height=""70"" align=""center"" class=""logo_td_r""><img src=""" & PagePath & SiteLogo & """ onload=""javascript:if(this.width>210)this.width=210;"" /></td>" & vbCrLf)
		Response.Write("<td width=""447"" height=""70"" align=""center""><script language=""javascript"" src=""" & PagePath & "Ad/Top_01.asp?PagePath=" & PagePath & """></script></td>" & vbCrLf)
		Response.Write("<td width=""323"" height=""70"" align=""center""><script language=""javascript"" src=""" & PagePath & "Ad/Top_02.asp?PagePath=" & PagePath & """></script></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""1"" bgcolor=""#FFFFFF""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)
	End Sub
	
	Public Sub MenuShow()
		Dim strClass_1,strClass_2
		strClass_1 = " class=""menu_on"" "
		strClass_2 = " class=""menu_off"" "
		Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""37"" valign=""bottom"" background=""" & PagePath & "Images/MenuLine.gif"">" & vbCrLf)
		Response.Write("<table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td width=""15"" height=""30""></td>" & vbCrLf)
		Response.Write("<td width=""89"" height=""30"" align=""center""><a href="""& PagePath &"Index.asp"" ")
		If strMenu = "首页" Then
			Response.Write(strClass_1)
		Else
			Response.Write(strClass_2)
		End If
		Response.Write(">首 页</a></td>" & vbCrLf)
		Response.Write("<td width=""89"" height=""30"" align=""center""><a href="""& PagePath &"Company_Index.asp"" ")
		If strMenu = "企业招聘" Then
			Response.Write(strClass_1)
		Else
			Response.Write(strClass_2)
		End If
		Response.Write(">企业招聘</a></td>" & vbCrLf)
		Response.Write("<td width=""89"" height=""30"" align=""center""><a href="""& PagePath &"Person_Index.asp"" ")
		If strMenu = "个人求职" Then
			Response.Write(strClass_1)
		Else
			Response.Write(strClass_2)
		End If
		Response.Write(">个人求职</a></td>" & vbCrLf)
		Response.Write("<td width=""89"" height=""30"" align=""center""><a href="""& PagePath &"News_Index.asp"" ")
		If strMenu = "人才资讯" Then
			Response.Write(strClass_1)
		Else
			Response.Write(strClass_2)
		End If
		Response.Write(">人才资讯</a></td>" & vbCrLf)
		Response.Write("<td width=""89"" height=""30"" align=""center""><a href="""& PagePath &"help_Index.asp"" ")
		If strMenu = "会员帮助" Then
			Response.Write(strClass_1)
		Else
			Response.Write(strClass_2)
		End If
		Response.Write(">会员帮助</a></td>" & vbCrLf)
		Response.Write("<td width=""89"" height=""30"" align=""center""><a href="""& PagePath &"liuyan_Index.asp"" ")
		If strMenu = "在线留言" Then
			Response.Write(strClass_1)
		Else
			Response.Write(strClass_2)
		End If
		Response.Write(">在线留言</a></td>" & vbCrLf)
		Response.Write("<td width=""454"" height=""30"">&nbsp;</td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""25"" valign=""bottom"" bgcolor=""#F7F3EF"">" & vbCrLf)

		If Session("PerId") <> "" Or Session("ComId") <> "" Or Session("AdminId") <> "" Then
		
			Response.Write("<table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td width=""15"" height=""20""></td>" & vbCrLf)
			Response.Write("<td height=""20"" class=""txt_999"">" & Session("RealName") & "，您好！欢迎访问" & SiteName & "！ &nbsp; <a href=""" & PagePath & Session("UserType") & "/Index.asp"" class=""Reg"">进入管理中心</a> &nbsp; <a href=""" & PagePath & "Logout.asp"" class=""Reg"">安全退出</a></td>" & vbCrLf)
			Response.Write("<td width=""15"" height=""20""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)
		
		Else
		
			Response.Write("<table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td width=""15"" height=""20""></td>" & vbCrLf)
			Response.Write("<td width=""496"" height=""20"" class=""txt_999"">欢迎访问" & SiteName & "</td>" & vbCrLf)
			Response.Write("<td width=""477"" height=""20"" align=""right"" style=""color:#FF0000""><a href=""" & PagePath & "Login.asp"" class=""Reg"">登录</a> | <a href=""" & PagePath & "Company_Reg.asp"" class=""Reg"">企业免费注册</a> | <a href=""" & PagePath & "Person_Reg.asp"" class=""Reg"">个人会员注册</a></td>" & vbCrLf)
			Response.Write("<td width=""15"" height=""20""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)
		
		End If
		
		Response.Write("</td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""1"" bgcolor=""#ECEFF3""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)
		Response.Write("<table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""15"" bgcolor=""#FFFFFF""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)

	End Sub
	
	Sub SiteTopCompany()
		Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""80""><table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td width=""233"" height=""70"" align=""center"" class=""logo_td_r""><img src=""" & PagePath & SiteLogo & """ width=""210"" height=""60"" /></td>" & vbCrLf)
		Response.Write("<td width=""400"" height=""70"" align=""left"" valign=""bottom"" style=""line-height:25px; padding-left:20px;""><font class=""namecss"">"& Session("RealName") &"</font><br />欢迎进入企业后台管理系统 &nbsp;&nbsp;[ <a href=""../Logout.asp""><font color=""#BC3A3A"">退出系统</font></a> ]</td>" & vbCrLf)
		Response.Write("<td width=""370"" height=""70"" align=""right"" valign=""bottom"" style=""line-height:25px; padding-right:120px;""><a href=""../Index.asp"">人才首页</a> | <a href=""../Company_Index.asp"">企业招聘</a> | <a href=""../Person_Index.asp"">个人求职</a> | <a href=""../News_Index.asp"">人才资讯</a> | <a href=""../help_Index.asp"">帮助</a></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""1"" bgcolor=""#FFFFFF""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)
	End Sub
	
	Public Sub MenuShowCompany()
		Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""37"" valign=""bottom"" background=""" & PagePath & "Images/MenuLine.gif"">" & vbCrLf)
		Response.Write("<table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""30"" align=""center"" style=""color:#FFFFFF;"">")
		Response.Write("| <a href=""Index.asp"" class=""menu_com"">后台首页</a> ")
		Response.Write("| <a href=""ChgComInfo_2.asp"" class=""menu_com"">企业信息管理</a> ")
		Response.Write("| <a href=""Job_Manage.asp"" class=""menu_com"">招聘信息管理</a> ")
		Response.Write("| <a href=""BoxList.asp"" class=""menu_com"">简历信息管理</a> ")
		Response.Write("| <a href=""ChgComInfo_4.asp"" class=""menu_com"">QQ面试设置</a> ")
		Response.Write("| <a href=""../Company_View.asp?ComId="& Session("ComId") &""" target=""_blank"" class=""menu_com"">浏览公司页面</a> ")
		Response.Write("|")
		Response.Write("</td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""15"" bgcolor=""#FFFFFF""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)

	End Sub
	
	Sub SiteTopPerson()
		Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""80""><table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td width=""233"" height=""70"" align=""center"" class=""logo_td_r""><img src=""" & PagePath & SiteLogo & """ width=""210"" height=""60"" /></td>" & vbCrLf)
		Response.Write("<td width=""400"" height=""70"" align=""left"" valign=""bottom"" style=""line-height:25px; padding-left:20px;""><font class=""namecss"">"& Session("RealName") &"</font><br />欢迎进入个人后台管理系统 &nbsp;&nbsp;[ <a href=""../Logout.asp""><font color=""#BC3A3A"">退出系统</font></a> ]</td>" & vbCrLf)
		Response.Write("<td width=""370"" height=""70"" align=""right"" valign=""bottom"" style=""line-height:25px; padding-right:120px;""><a href=""../Index.asp"">首页</a> | <a href=""../Company_Index.asp"">企业招聘</a> | <a href=""../Person_Index.asp"">个人求职</a> | <a href=""../News_Index.asp"">人才资讯</a> | <a href=""../help_Index.asp"">帮助</a></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""1"" bgcolor=""#FFFFFF""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)
	End Sub
	
	Public Sub MenuShowPerson()
		Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""37"" valign=""bottom"" background=""" & PagePath & "Images/MenuLine.gif"">" & vbCrLf)
		Response.Write("<table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""30"" align=""center"" style=""color:#FFFFFF;"">")
		Response.Write("| <a href=""Index.asp"" class=""menu_com"">后台首页</a> ")
		Response.Write("| <a href=""ChgPerInfo_2.asp"" class=""menu_com"">个人简历管理</a> ")
		Response.Write("| <a href=""BoxList.asp"" class=""menu_com"">个人求职管理</a> ")
		Response.Write("| <a href=""ChgPerInfo_9.asp"" class=""menu_com"">QQ面试设置</a> ")
		Response.Write("| <a href=""../Person_View.asp?PerId="& Session("PerId") &""" target=""_blank"" class=""menu_com"">浏览简历页面</a> ")
		Response.Write("|")
		Response.Write("</td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""15"" bgcolor=""#FFFFFF""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)

	End Sub
	
	Public Sub CloseConn()
		Conn.Close
		Set Conn = Nothing
	End Sub
	
	Public Sub Bottom()
		Dim strQQ,i
		Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""15""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""5"" bgcolor=""#FF1F1F""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""25"" bgcolor=""#FFDEDE""><table width=""1003"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""25"" align=""center"">")
		Response.Write("<a href="""& PagePath &"AboutUs.asp"">关于我们</a> | ")
		Response.Write("<a href="""& PagePath &"AdPrice.asp"">广告报价</a> | <a href="""& PagePath &"ContactUs.asp"">联系方式</a> | <a href="""& PagePath &"help_index.asp"">会员帮助</a>")
		Response.Write("</td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td align=""center"" style=""padding-top:10px; line-height:25px;"">")
		Response.Write("版权所有 " & SiteName & "  ")
		Response.Write(" &nbsp;&nbsp;<a href=""http://www.miibeian.gov.cn"" target=""_blank"">"& SiteIcp &"</a>  ")
		If SiteQQ <> "" Then
			Response.Write(" &nbsp;&nbsp;客服QQ： ")
			If InStr(SiteQQ , "|") <= 0 Then
				Response.Write("<a target=blank href=tencent://message/?uin="& SiteQQ &"&Site="& SiteName &"&Menu=yes><img border=""0"" SRC=http://wpa.qq.com/pa?p=1:"& SiteQQ &":5 alt=""客服1""></a>" & vbCrLf)
			Else
				strQQ = Split(SiteQQ , "|")
				For i = 0 To Ubound(strQQ)
					Response.Write("<a target=blank href=tencent://message/?uin="& strQQ(i) &"&Site="& SiteName &"&Menu=yes><img border=""0"" SRC=http://wpa.qq.com/pa?p=1:"& strQQ(i) &":5 alt=""客服"& i + 1 &"""></a> &nbsp;&nbsp;" & vbCrLf)
				Next
			End If
		End If
		Response.Write("</td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td align=""center"" style=""line-height:25px;"">")
		Response.Write(CopyRight_Joy())
		Response.Write("</td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		
		Response.Write("</table>" & vbCrLf)
		Response.Write("</body>" & vbCrLf)
		Response.Write("</html>" & vbCrLf)
		
		CloseConn()
	End Sub
	
	Public Sub LoginShow()
		
		If Session("PerId") = "" and Session("ComId") = "" and Session("AdminId") = "" Then
			Response.Write("<script language=""javascript"">" & vbCrLf)
			Response.Write("function CheckLogin(){" & vbCrLf)
			Response.Write("if(LoginForm.UserName.value == """"){" & vbCrLf)
			Response.Write("alert(""请输入用户名"");" & vbCrLf)
			Response.Write("LoginForm.UserName.focus();" & vbCrLf)
			Response.Write("return false;" & vbCrLf)
			Response.Write("}" & vbCrLf)
			Response.Write("if(LoginForm.PassWord.value == """"){" & vbCrLf)
			Response.Write("alert(""请输入登录密码"");" & vbCrLf)
			Response.Write("LoginForm.PassWord.focus();" & vbCrLf)
			Response.Write("return false;" & vbCrLf)
			Response.Write("}" & vbCrLf)
			Response.Write("if(LoginForm.UserType[0].checked == false && LoginForm.UserType[1].checked == false){" & vbCrLf)
			Response.Write("alert(""请选择用户类型"");" & vbCrLf)
			Response.Write("return false;" & vbCrLf)
			Response.Write("}" & vbCrLf)
			Response.Write("return true;" & vbCrLf)
			Response.Write("}" & vbCrLf)
			Response.Write("</script>" & vbCrLf)
			
			Response.Write("<table width=""250"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""7""><img src=""Images/Login_01.jpg"" width=""250"" height=""7"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""24"" background=""Images/Login_02.jpg"" style=""padding-left:18px; padding-top:4px;""><strong>用户登录</strong></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td valign=""top"" height=""124"" background=""Images/login_03.jpg""><form id=""LoginForm"" name=""LoginForm"" method=""post"" action=""Login_Check.asp"" style=""margin:0"" onsubmit=""return CheckLogin();"">" & vbCrLf)
			Response.Write("<table width=""240"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td width=""57"" height=""30"" align=""right"">用户名：</td>" & vbCrLf)
			Response.Write("<td width=""163""><input name=""UserName"" type=""text"" class=""input_bk_D2D2D2"" id=""UserName"" size=""23"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30"" align=""right"">密&nbsp;&nbsp;码：</td>" & vbCrLf)
			Response.Write("<td><input name=""PassWord"" type=""password"" class=""input_bk_D2D2D2"" id=""PassWord"" size=""23"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30"" align=""right"">类&nbsp;&nbsp;型：</td>" & vbCrLf)
			Response.Write("<td><input type=""radio"" name=""UserType"" value=""Company"" />企业 ")
			Response.Write("<input type=""radio"" name=""UserType"" value=""Person"" />个人 &nbsp;<input name=""imageField"" type=""image"" src=""Images/Login_05.jpg"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td colspan=""2"" align=""center"" height=""30""><a href=""Person_Reg.asp"">个人会员注册</a> &nbsp;&nbsp;&nbsp;<a href=""Company_Reg.asp"">企业免费注册</a></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)
			Response.Write("</form>" & vbCrLf)
			Response.Write("</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""5""><img src=""Images/Login_04.jpg"" width=""250"" height=""5"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)

		Else
			arrMember = Member_Info()
			
			Response.Write("<table width=""250"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""7""><img src=""Images/Login_01.jpg"" width=""250"" height=""7"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""24"" background=""Images/Login_02.jpg"" style=""padding-left:18px; padding-top:4px;""><strong>用户信息</strong></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td valign=""top"" height=""124"" background=""Images/login_03.jpg"">" & vbCrLf)
			Response.Write("<table width=""240"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""15""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""25"">" & Session("RealName") & "，您好！</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""25"">您当前为：")

			If Session("UserType") = "Person" Then
				Response.Write("个人普通会员")
			ElseIf Session("UserType") = "Company" Then
				Response.Write("企业" & arrMember(1 , Session("thisMemberType")) & Session("MemberZt"))
			ElseIf Session("UserType") = "Master" Then
				Response.Write("网站管理员")
			Else
				Response.Write("未知会员类型")
			End If
			Response.Write("</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""25"">您是第" & Session("LoginQuantity") & "次登录本系统！</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""25""><a href=""" & PagePath & Session("UserType") & "/Index.asp""><font color=""#FF0000"">进入会员管理中心</font></a> | <a href=""" & PagePath & "Logout.asp"">退出</a></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)
			Response.Write("</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""5""><img src=""Images/Login_04.jpg"" width=""250"" height=""5"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)

		End If
	End Sub
	
	Public Sub nLoginShow()
		
		If Session("PerId") = "" and Session("ComId") = "" and Session("AdminId") = "" Then
			Response.Write("<script language=""javascript"">" & vbCrLf)
			Response.Write("function CheckLogin(){" & vbCrLf)
			Response.Write("if(LoginForm.UserName.value == """"){" & vbCrLf)
			Response.Write("alert(""请输入用户名"");" & vbCrLf)
			Response.Write("LoginForm.UserName.focus();" & vbCrLf)
			Response.Write("return false;" & vbCrLf)
			Response.Write("}" & vbCrLf)
			Response.Write("if(LoginForm.PassWord.value == """"){" & vbCrLf)
			Response.Write("alert(""请输入登录密码"");" & vbCrLf)
			Response.Write("LoginForm.PassWord.focus();" & vbCrLf)
			Response.Write("return false;" & vbCrLf)
			Response.Write("}" & vbCrLf)
			Response.Write("if(LoginForm.UserType[0].checked == false && LoginForm.UserType[1].checked == false){" & vbCrLf)
			Response.Write("alert(""请选择用户类型"");" & vbCrLf)
			Response.Write("return false;" & vbCrLf)
			Response.Write("}" & vbCrLf)
			Response.Write("return true;" & vbCrLf)
			Response.Write("}" & vbCrLf)
			Response.Write("</script>" & vbCrLf)
			
			Response.Write("<table width=""180"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30""><img src=""" & PagePath & "Images/n_Login_01.gif"" width=""180"" height=""30"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td valign=""top"" background=""" & PagePath & "Images/n_Login_02.gif""><form id=""LoginForm"" name=""LoginForm"" method=""post"" action=""" & PagePath & "Login_Check.asp"" style=""margin:0"" onsubmit=""return CheckLogin();"">" & vbCrLf)
			Response.Write("<table width=""170"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""10""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30"">用户名 <input name=""UserName"" type=""text"" class=""input_bk_D2D2D2"" id=""UserName"" size=""16"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30"">密&nbsp;&nbsp;码 <input name=""PassWord"" type=""password"" class=""input_bk_D2D2D2"" id=""PassWord"" size=""16"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30"">类&nbsp;&nbsp;型 <input type=""radio"" name=""UserType"" value=""Company"" />企业 ")
			Response.Write("<input type=""radio"" name=""UserType"" value=""Person"" />个人</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td align=""center"" height=""30""><input name=""imageField"" type=""image"" src=""" & PagePath & "Images/n_Login_04.gif"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""1"" background=""" & PagePath & "Images/n_Login_05.gif""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td align=""center"" height=""30"" style=""line-height:20px;""><a href=""" & PagePath & "Person_Reg.asp"">个人会员注册</a> <a href=""" & PagePath & "Company_Reg.asp"">企业免费注册</a><br /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""1"" background=""" & PagePath & "Images/n_Login_05.gif""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""10""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)
			Response.Write("</form>" & vbCrLf)
			Response.Write("</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""8""><img src=""" & PagePath & "Images/n_Login_03.gif"" width=""180"" height=""8"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""10""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)

		Else
			arrMember = Member_Info()
			
			Response.Write("<table width=""180"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30""><img src=""" & PagePath & "Images/n_Login_06.gif"" width=""180"" height=""30"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td valign=""top"" background=""" & PagePath & "Images/n_Login_02.gif"">" & vbCrLf)
			Response.Write("<table width=""170"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""0"">" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""10""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30"">" & Session("RealName") & "，您好！</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30"">您当前为：")
			If Session("UserType") = "Person" Then
				Response.Write("个人普通会员")
			ElseIf Session("UserType") = "Company" Then
				Response.Write("企业" & arrMember(1 , Session("thisMemberType")) & Session("MemberZt"))
			ElseIf Session("UserType") = "Master" Then
				Response.Write("网站管理员")
			Else
				Response.Write("未知会员类型")
			End If
			Response.Write("</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30"">您是第" & Session("LoginQuantity") & "次登录本系统！</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""30""><a href=""" & PagePath & Session("UserType") & "/Index.asp""><font color=""#FF0000"">进入会员管理中心</font></a> | <a href=""" & PagePath & "Logout.asp"">退出</a></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""10""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)
			Response.Write("</td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""8""><img src=""" & PagePath & "Images/n_Login_03.gif"" width=""180"" height=""8"" /></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("<tr>" & vbCrLf)
			Response.Write("<td height=""10""></td>" & vbCrLf)
			Response.Write("</tr>" & vbCrLf)
			Response.Write("</table>" & vbCrLf)

		End If
	End Sub
	
	Public Function chgStr(str)
		Dim sTemp
		sTemp = str
		chgStr = ""
		If IsNull(sTemp) = True Then
			Exit Function
		End If
		sTemp = Replace(sTemp, "&", "&amp;")
		sTemp = Replace(sTemp, "<", "&lt;")
		sTemp = Replace(sTemp, ">", "&gt;")
		sTemp = Replace(sTemp, Chr(34), "&quot;")
		sTemp = Replace(sTemp , "'" , "&#8217;")
		sTemp = Replace(sTemp , """" , "&quot;")
		sTemp = Replace(sTemp , "０" , "0")
		sTemp = Replace(sTemp , "１" , "1")
		sTemp = Replace(sTemp , "２" , "2")
		sTemp = Replace(sTemp , "３" , "3")
		sTemp = Replace(sTemp , "４" , "4")
		sTemp = Replace(sTemp , "５" , "5")
		sTemp = Replace(sTemp , "６" , "6")
		sTemp = Replace(sTemp , "７" , "7")
		sTemp = Replace(sTemp , "８" , "8")
		sTemp = Replace(sTemp , "９" , "9")
		chgStr = sTemp
	End Function
	
	Public Function chgStr2(str)
		Dim sTemp
		sTemp = str
		chgStr2 = ""
		If IsNull(sTemp) = True Then
			Exit Function
		End If
		sTemp = Replace(sTemp, chr(0), "<br />")
		sTemp = Replace(sTemp, chr(13), "<br />")
		sTemp = Replace(sTemp, chr(10), "")
		sTemp = Replace(sTemp, "  ", "&nbsp; ")
		sTemp = Replace(sTemp, "  ", "&nbsp; ")
		chgStr2 = sTemp
	End Function
	
	Public Function chgStrHtml(str)
		Dim sTemp
		sTemp = str
		chgStrHtml = ""
		If IsNull(sTemp) = True Then
			Exit Function
		End If
		sTemp = Replace(sTemp , "'" , "’")
		chgStrHtml = sTemp
	End Function
	
	Public Sub ShowMsg(MsgStr , FileName)
		Response.Write("<script>alert('"& MsgStr &"');")
		If FileName = "" Then
			Response.Write("history.back();")
		ElseIf FileName = "Cls" Then
			Response.Write("window.close();")
		Else
			Response.Write("location.href='"& FileName &"';")
		End If
		Response.Write("</script>")
		Response.End()
	End Sub
	
	Public Sub Page_Cn(CurrentPage , TotalPage , TotalRecord , FileName)
		Response.Write("页次：<font color='#FF0000'>"& CurrentPage &"</font>/"& TotalPage &"&nbsp;&nbsp;共有&nbsp;<font color='#FF0000'>"& TotalRecord &"</font>&nbsp;条信息&nbsp;&nbsp;&nbsp;")
		If CurrentPage > 1 Then
			Response.Write("<a href='"& FileName &"&page=1'>第一页</a>&nbsp;<a href='"& FileName &"&page="& CurrentPage - 1 &"'>上一页</a>&nbsp;")
		Else
			Response.Write("第一页&nbsp;上一页&nbsp;")
		End If
		If CurrentPage < TotalPage Then
			Response.Write("<a href='"& FileName &"&page="& CurrentPage + 1 &"'>下一页</a>&nbsp;<a href='"& FileName &"&page="& TotalPage &"'>最后页</a>&nbsp;")
		Else
			Response.Write("下一页&nbsp;最后页&nbsp;")
		End If
	End Sub
	
	Public Sub Check_AdminFlag(strFlag)
		If strFlag <> "1" Then
			Response.Write("权限不足，请与管理员联系！")
			Response.End()
		End If
	End Sub
	
	#@~^lAAAAA==@#@&n.b\mY+,s!UmDkGx,b[[\+DKc/DD#@#@&7d&0,SnxcdDDbP{~F,K4n	@#@&77ib[N\nMW~{Pr!J,[,dYM@#@&di2sd@#@&i7dzNN\n.W,',/OD@#@&id3x9~q6@#@&7AxN~o!x^YbG	@#@&miMAAA==^#~@

	#@~^ZwMAAA==@#@&n;(VbmPwE	^YbWUPwW.hmYfmO+v/YM9CY#@#@&7d(W,qdfmO+v/O.GlYnb,K4+	@#@&d7iq6Pq	?D.`;/ODv/O.GlYbPBPJ EbP@*PZP)x[~&xjYMcZkY.ckYD9CD+bPB~r)E*P@!'PZP:4+	@#@&did7oKD:mOfmY+,x~ZkYM`e+C.v/ODGCY#b~LPJRE,[~b9[\+.K`;/YM`tGxDtc/DD9CD+#*bPLPJ E~[,b9Nt+.GvZdYMcfmXcdDDfCO#b#@#@&id7AVk+q6P&U?DDcZkY.ckYDGCY#PB~EOr#,@!xPT~zx[P&U?DDc/kYDcdDD9lDn*PS,J=J#,@*,TP:tnx@#@&77idsK.:mYfmOnP{PzN[}n.K`//D.`_W;.v/Y.9mYn#*b,[~r)rP[,b9[}DG`;/O.vHk	;Y`/D.9lD+*#bP'~r)EPL~b9NtnMW`/dDDc?^Kx[v/DDfmYb#*@#@&did3sk+q6~q	?YMc//DDv/OD9CD+bPB~J Jb~@*P!~)	N~q	jDDc;/DD`kYM9lD+bPBPElr#P@*~!,KtU@#@&ididoW.hmY9lDnP{ZdOM`5nCM`dYM9mYn*#,[PrOr~[,b[N\+.GvZ/D.`tWxD4c/DDGlO+bb*P'PrRJ,[~)9N}n.K`//D.vfCH`kYDGlDn#*#~[,J~E,[Pz[N\+DKc//DDvCGE.ckY.fmO+*#b~LPJlE,[~b9[\+.K`;/YM`trx!Yn`kY.9mY+*b#,[PrlEPLPzN[}n.K`//D.`U+^G	N`dOMfCYb*#@#@&did2	N,(0@#@&7dAVdn@#@&di7sKD:mO9lD+,'~JE@#@&d72	[P&0@#@&i2x[~wEUmDrKx@#@&nvEAAA==^#~@
	
	#@~^kgIAAA==@#@&n;(VbmPwE	^YbWUP;tn^0?YMc/DDPB~dYM2XmsEn[UY.#@#@&difrh,/Knha~361s!+[UYM~mKxkO2XmsENjOM~k@#@&di/Kh2P{PkY.@#@&7i2am^;+9?O.,'PdOM2am^;NjDD@#@&dimKU/D2am^En[UYD,xPrUuek@$u[ufuYu?kLuMu3k'--kv-JJk@!-@*E@#@&7iZ4m0?YMP{~smVd+@#@&77&0P&d1!VVvdP+sw*PxPP.!+~K4nx@#@&77i26rO,s;x1ObWU@#@&id2	N,(0@#@&7d&0~3XmV!nNUYD,x~JrP}D~qdH!Vs`Aam^En[UYDb~:tnx,3Xms!+9?YMP{~mKxdYA6^s!+NUOD@#@&di(WP&xUY.`3a1V;+9jYMPS~ruJb~@!'~!,P4+U,2XmV!+9jYMPxP1WUdD261sEN?D.@#@&idA6^V;n9?OD,xPUwsrD`2a^^EnNUOMPS,J-J#@#@&i7sKD~k,'~T,KW,i4KEx9c361V!+[?O.*@#@&di7q6P(UUYDcd:+hw,S,2a1V!+NUYMck*#~@*,!~P4+x@#@&didd;4nm0?DD~'~PMEn@#@&7did3abYPo;	mOkKU@#@&7idAxN,q6@#@&idH+XY@#@&i2x9~s!xmDrGx@#@&qbsAAA==^#~@
	
	#@~^wAEAAA==@#@&n;(VbmPwE	^YbWUP;tn^0j/.1m:+vdOD*@#@&d7frh,/P+s2~1WUdD?Y.Sb~O+s2UY.@#@&id/:+s2P{PJZm/nckYD*@#@&idmKUdYUYMPxPEC(m[+6LtbLVssxW25M/OE7AXX"ZFy&clvF0,|J@#@&id/4m3`d+M1lsn~',smVd+@#@&id(0,(/gEssv/Knha#~',PMEn,K4+x@#@&i7dA6rY,s;U1YkKU@#@&ddAU[P&0@#@&7doGMPrP{~F,KG~d+xcd:+hw*@#@&d7iY:wUYM~',HrNv/PnswPB~k,~P8b@#@&idiqWP(UUY.`1GxkYjOMP~~O:2?D.*P@!{PZPK4+	@#@&id7d;tn^0j/.1m:+,x~KME@#@&d77i2akD~s!x^ObWx@#@&id72	[,qW@#@&id16D@#@&i2UN,s;U1YkKU@#@&yHgAAA==^#~@
	
	#@~^8wMAAA==@#@&n;(VbmPwE	^YbWUP&/#C^kNAhlbV`hCk^#@#@&7@#@&7iNr:,Uls+dS,xlhnBPr~,^@#@&7i@#@&dd&/jCVbN3:mks~{PYM;+@#@&diUC:/,'~?2sbYc+sCk^~~E@$J#@#@&idr0,i~W;	Nvxls+kbP@!@*~F,Y4n	@#@&i7qk.l^r[2slbV~'~WmVd+@#@&di+arDP0;U1YrW	@#@&d7x9Pk6@#@&7d6W.Pl^4,xlsnPbxP	Ch+k@#@&d7kW~d+U`	C:#~@!{P!~O4+U@#@&7iqdjl^kNA:mrV,'~0mVdn@#@&din6bYP6;UmDkKx@#@&77x[PbW@#@&d7WKDPr~{PqPDG,Sn	`	l:#@#@&dim~',S^Ck+`trNvxlsnSPb~,Fb#@#@&idr0,(xUY.crl4^[0Ltb%0Vh	Wa;DkY!-hXX"{ RES,m#,@!',!PmU[P	WDP(/H;s+.k1cm*PO4x@#@&7iqd.msbN3slbVP{P6CVk+@#@&idnabYP6;x1YkKU@#@&idx[PrW@#@&7d	n6D@#@&7ik0~J0O`	Cs+S,F*P',JcEPKD~Ibo4Ovxlsn~,F#,x~JcJ,Y4+U@#@&d7qk#l^k[3slks~{PWl^d@#@&id6kDP6;x1YrW	@#@&7i+x9~k6@#@&i7U+XY@#@&7drW,qU?D.`	lhnk`FbS,J J*~@!'~ZPDt+	@#@&7d&/#l^k[3slk^~',0l^dn@#@&di+akO~6EUmDrW	@#@&7i+x[~b0@#@&i7bPx,Sx`	lsn/vFb#,O~(	?YM]+7`xmhn/vF*~~J E*@#@&dir0,k~@!@*P ~C	N~k,@!@*Pf,Y4+x@#@&i7qk.CVbN3hmkV,xP6lVkn@#@&id6rY~W!x^YbGx@#@&77xN~r6@#@&dir6P(	?DD`:mrVBPERcJb~@*P!,Otx@#@&77qk.mVrN3hmksP{~0mVdn@#@&d7n	N~k6@#@&d@#@&dAxN,s!UmDkGx@#@&vwIBAA==^#~@
	
	#@~^1gMAAA==@#@&n;(VbmPwE	^YbWUP&/#C^kN:nVvK+^b@#@&idGkhPPn^1;:BP+^1;hk~kS%Bm@#@&i7&/#mVbNKV,xP:D;+@#@&77&0P&U?DD`:nsPBPr~E#~@!{PTP:4+	@#@&7idKnsgEh/,x,?2^kD`KV,SPrOE#@#@&77isWM~2mmt,PnVgEsP(x~PVHEsd@#@&d77iq0~JxcKsgEh*P@!'PZP:4+	@#@&did77&/.msk9K+^~xPwl^/n@#@&7id7dAakDPo;	mYrG	@#@&di7i2U9P&0@#@&di7dwW.PbPx~8PKK~Sx`:ns1!:*@#@&d77id^P{~S1ldnvHk[c:+s1!h,~~bPBPF*#@#@&did7d&0~HKYP&d1!:+Mr^`1#,K4+U@#@&d7di7d&/#C^kNPn^PxPwC^/n@#@&iddidi36bY~s!x^ObWx@#@&diddi3UN,q6@#@&d77i1n6D@#@&id7H6Y@#@&id3Vkn@#@&7id:+VgEsdP{Pjw^kOc:+V,SPr~J*@#@&didwW.Pr~{PTP:GP`4G;	N`Pn^1;:kb@#@&7idiK+^1!h/vkbP{Pj2^kYvP+^1Esdck*PBPEOEb@#@&7di7sKD~3mmt~PVHEs~&x~:+^1Es/vr#@#@&7did7(6PSU`:+Vg;h#,@!{!~K4n	@#@&di7did(djlVr[:+sP{~wlsk+@#@&didi7dA6rY,s;U1YkKU@#@&ddi772	N,qW@#@&7id7dwGD,L~x,FPPG,SnxvPVH!:*@#@&idi7dim~',S^Ck+`trNvK+^H;:,~,L~~~q*#@#@&i7did7(6P1GO,qd1!hDr1`1#P:tU@#@&d7did77&/.msk9K+^~xPwl^/n@#@&7id7di72XkO~wEx^ObWU@#@&7id7idAxN,q6@#@&id7di1naD@#@&i7di1+XO@#@&idi1n6O@#@&d72	[P&0@#@&i2x[~wEUmDrKx@#@&TOEAAA==^#~@
	
	#@~^CQMAAA==@#@&n.b\mY+,s!UmDkGx,qU^^ENokVNvdOD:l(VnPS~kY.sbnV9PS~kYDFnHsr+^[,~~kYMskV9#l^En#@#@&77Gk:,]/@#@&dijnY,IkPxPdnM\nDc/DlOn}4Ln^D`EbG6GA M+1WD9/OJ*@#@&diId }w+	~Jk+V^OPr[,/ODorV[PLEP6DGh,J[~dDDPl(sP'rPSt+M+,E[,/ODn+zob+V9~[rP',E'PkYMsr+s[jlsE~~,ZGU	P~~q,~~F@#@&id9KPqtk^+,HWDP]/c2GW@#@&di7q	mV![nsb+^N~'~(	msE9nsb+s[,[PESrP'P"dv/OMsb+V9#@#@&did(x1V;[sksN,'P&U^V!Nsr+s[,[~q	^V!Nnob+V[ckY.Km8^+~BPkYDwksN,~~/DDFnHsksN,~P"dc/DDwknV[b*@#@&di]/cHG-1+aO@#@&7ddGKw@#@&diI/cZ^G/@#@&di?nO,I/,xPgWY4rUo@#@&i2UN~o!x^YbGx@#@&7@#@&dn;8^k^Pw;	mObW	Pr!Y&Um^E[+wkns9`/D.Km4V~SPkYMsr+s[,~~/D.|XorVN~S,/ODwrV[jl^E+*@#@&7d}EOq	ms;9+sbnV9P',(Um^E9+okns9`dYMPl(Vn~BP/O.wknV9~BPdDDn+XwksN,~~/DDorVNjCV!+#@#@&7d}EDqUms;9+oksN,'~dDDsrn^N#l^;P',r!Yq	m^;Nsr+^N@#@&i2x9~s!xmDrGx@#@&D+oAAA==^#~@
	
	#@~^JwEAAA==@#@&s;	mDkW	P;GwHIro4YmBKX`*@#@&idfbh~/DD;W2X@#@&iddYM/WaX~x,JZG2HDro4O,P+Z!lPO, ZT%,@!CP4DnW{JJ4OYa)zJAAhcLKXdYn^4R^Ws&JrPOCMo+OxrJm4^C	3Er@*xWXkY^tcZG:@!zC@*,PP,KWS+D[~AHP@!l~t.n6'EJ4OYa)&&Shh zDh.mc^K:&rJ,YlMoO'rJm4^lUVrJ@*IOhMmR;Gh@!Jl@*J@#@&77;W2X"ro4YmBKXPx~kY.ZK2H@#@&i2	NPwE	^YbWU@#@&PVYAAA==^#~@
End Class
%>