<%
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")
			MailSmtp = Rs("MailSmtp")
			MailUserName = Rs("MailUserName")
			MailPassWord = Rs("MailPassWord")
		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")
			MailSmtp = Rs("MailSmtp")
			MailUserName = Rs("MailUserName")
			MailPassWord = Rs("MailPassWord")
		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 , "/")
		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()
		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("<link href=""css/blue.css"" rel=""stylesheet"" type=""text/css"">" & vbCrLf)
		Response.Write("</head>" & vbCrLf)
		
		Response.Write("<body>" & vbCrLf)
	End Sub
	
	Sub SiteTj()
		Response.Write("<table width=""983"" border=""0"" align=""center""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=""100%"" 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"" align=""center"" cellspacing=""0"" cellpadding=""0"" class=""fontblack"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td width=""245""><a href=http://"&SiteUrl&"><img src=""" & PagePath & SiteLogo & """ onload=""javascript:if(this.width>225)this.width=225;"" border=""0"" /></a></td>" & vbCrLf)
		Response.Write("<td width=""730""><script language=""javascript"" src=""" & PagePath & "Ad/Top_01.asp?PagePath=" & PagePath & """></script></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)
	End Sub
	
	Public Sub MenuShow()
    Response.Write("<table width=""983"" height=""35"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""fontblack"">" & vbCrLf)
	Response.Write("<tr><td width=""39"" class=""menubg3"">&nbsp;</td>" & vbCrLf)
	Response.Write("<td width=""92""  class=""menubg1""align=""center""><table width=""97%"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
	Response.Write("<tr><td height=""6""></td></tr>" & vbCrLf)
	Response.Write("<tr><td align=""center""><a href=""" & PagePath & "index.asp"" class=""top_menu1"">首 页</a></td>" & vbCrLf)
	Response.Write("</tr></table></td>" & vbCrLf)
	Response.Write("<td width=""92""  class=""menubg2""align=""center""><table width=""97%"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
	Response.Write("<tr><td height=""6""></td></tr>" & vbCrLf)
	Response.Write("<tr><td align=""center""><a href=""" & PagePath & "Company_Index.asp"" target=""_blank"" class=""top_menu2"">单位招聘</a></td>" & vbCrLf)
	Response.Write("</tr></table></td>" & vbCrLf)
	Response.Write("<td width=""92"" class=""menubg2""align=""center""><table width=""97%"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
	Response.Write("<tr><td height=""6""></td></tr>" & vbCrLf)
	Response.Write("<tr><td align=""center""><a href=""" & PagePath & "Person_Index.asp"" class=""top_menu2"">个人求职</a></td>" & vbCrLf)
	Response.Write("</tr></table></td>" & vbCrLf)
	Response.Write("<td width=""92"" class=""menubg2""align=""center""><table width=""97%"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
	Response.Write("<tr><td height=""6""></td></tr>" & vbCrLf)
	Response.Write("<tr><td align=""center""><a href=""#"" class=""top_menu2"">猎头人才</a></td>" & vbCrLf)
	Response.Write("</tr></table></td>" & vbCrLf)
	Response.Write("<td width=""92"" class=""menubg2""><table width=""97%"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
	Response.Write("<tr><td height=""6""></td></tr>" & vbCrLf)
	Response.Write("<tr><td align=""center""><a href=""#"" class=""top_menu2"">洽谈预告</a></td>" & vbCrLf)
	Response.Write("</tr></table></td>" & vbCrLf)
	Response.Write("<td width=""92"" class=""menubg2""align=""center""><table width=""97%"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
	Response.Write("<tr><td height=""6""></td></tr>" & vbCrLf)
	Response.Write("<tr><td align=""center""><a href=""#"" class=""top_menu2"">高校毕业</a></td>" & vbCrLf)
	Response.Write("</tr></table></td>" & vbCrLf)
	Response.Write("<td width=""92""align=""center"" valign=""middle"" class=""menubg2""><table width=""97%"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
	Response.Write("<tr><td height=""6""></td></tr>" & vbCrLf)
	Response.Write("<tr><td align=""center""><a href=""#"" class=""top_menu2"">用户反馈</a></td>" & vbCrLf)
	Response.Write("</tr></table></td>" & vbCrLf)
	Response.Write("<td width=""283"" class=""menubg3""><table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
	Response.Write("<tr><td height=""6"" colspan=""2""></td></tr>" & vbCrLf)
	Response.Write("<tr><td width=""65%"" align=""center"" class=""top"" ><a href=""#"" class=""top"">www.yn<font color=ff6600>RCW</font>.com</a></td>" & vbCrLf)
	Response.Write("<td width=""35%"">&nbsp;</td></tr></table></td>" & vbCrLf)
	Response.Write("</tr></table>" & vbCrLf)
    Response.Write("<table width=""983"" height=""25"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""fontblack"">" & vbCrLf)
	Response.Write("<tr>" & vbCrLf)
	Response.Write("<td valign=""middle"" class=""menubgtop""><span class=""fontyellow""> &nbsp;&nbsp; ·</span><a href=""../person/new.asp"" class=""yellow"">查找工作</a> <span class=""fontyellow"">·</span><a href=""../person/login.asp"" class=""yellow"">免费求职发布</a> <span class=""fontyellow"">·</span><a href=""../company/new.asp"" class=""yellow"">查找人才</a> <span class=""fontyellow"">·</span><a href=""../company/login.asp"" class=""yellow"">免费招聘发布</a> <span class=""font12_bai"">|</span><span class=""STYLE12""><font color=""#FFFFFF"">&nbsp; </font></span><font color=""#FFFFFF""><a href=""http://www.ynrcw.com"" class=""bai"">总站：</a> <a href=""/zhejiang/hz.asp"" class=""bai"">木鸡鸡&nbsp; </a><a href=""/zhejiang/hzz.asp"" class=""bai"">昆明&nbsp; </a><a href=""/zhejiang/jh.asp"" class=""bai"">昆明&nbsp; </a><a href=""/zhejiang/jx.asp"" class=""bai"">嘉兴&nbsp; </a><a href=""/zhejiang/zs.asp"" class=""bai"">舟山</a></font></td>" & vbCrLf)
Response.Write("</tr></table>" & vbCrLf)
		Response.Write("<table width=""983"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf)
		Response.Write("<tr>" & vbCrLf)
		Response.Write("<td height=""10"" bgcolor=""#FFFFFF""></td>" & vbCrLf)
		Response.Write("</tr>" & vbCrLf)
		Response.Write("</table>" & vbCrLf)

	End Sub
	
	Sub SiteTopCompany()
	 %>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>会员管理中心 - 胶州人才网站, 胶州人才网！</title>
 <meta name="keywords" content="胶州人才网站,胶州招聘网站,胶州人力资源,胶州人才市场,胶州找工作,胶州兼职,胶州培训,胶州职业顾问,胶州职业规划,胶州人事代理">
 <meta name="description" content="胶州人才网是胶州地区内最具影响力的人才网站之一，为企业提供一站式的人才招聘服务，帮助个人求职者与企业搭建最佳互动平台，打造胶州地区权威求职招聘网站!！">
<!--#include file="../top.asp" -->
<%
	End Sub
	
	Public Sub MenuShowCompany()
	End Sub
	
	Sub SiteTopPerson()


	 %>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>会员管理中心 - 胶州人才网站, 胶州人才网！</title>
 <meta name="keywords" content="胶州人才网站,胶州招聘网站,胶州人力资源,胶州人才市场,胶州找工作,胶州兼职,胶州培训,胶州职业顾问,胶州职业规划,胶州人事代理">
 <meta name="description" content="胶州人才网是胶州地区内最具影响力的人才网站之一，为企业提供一站式的人才招聘服务，帮助个人求职者与企业搭建最佳互动平台，打造胶州地区权威求职招聘网站!！">
<!--#include file="../top.asp" -->
<%

	End Sub
	
	Public Sub MenuShowPerson()


	End Sub
	
	Public Sub CloseConn()
		Conn.Close
		Set Conn = Nothing
	End Sub
	
	Public Sub Bottom()
		Response.Write(CopyRight_Joy())
		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("<form id=""LoginForm"" name=""LoginForm"" method=""post"" action=""Login_Check.asp"" style=""margin:0"" onsubmit=""return CheckLogin();"">" & vbCrLf)
                      Response.Write("<table width=""95%"" height=""125"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""fontblack""><tr>" & vbCrLf)
                          Response.Write("<td><table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""3"" class=""fontblack""><tr>" & vbCrLf)
                                Response.Write("<td width=""32%"" align=""right"" class=""fontblack"">会员名：</td>" & vbCrLf)
                                Response.Write("<td colspan=""2""><input name=""UserName"" type=""text"" class=""ipt""  id=""UserName"" size=""21"" style=""width:120px;"" maxlength=""20"" /></td>" & vbCrLf)
                              Response.Write("</tr>" & vbCrLf)
                              Response.Write("<tr>" & vbCrLf)
                                Response.Write("<td align=""right"" class=""fontblack"">密&nbsp; 码：</td>" & vbCrLf)
                                Response.Write("<td colspan=""2""><input name=""PassWord"" type=""password"" class=""ipt"" id=""PassWord"" size=""21"" style=""width:120px;"" maxlength=""20"" /></td>" & vbCrLf)
                              Response.Write("</tr>" & vbCrLf)
                              Response.Write("<tr>" & vbCrLf)
                                Response.Write("<td align=""right"" valign=""middle"" class=""fontblack"">验证码：</td>" & vbCrLf)
                                Response.Write("<td width=""68%""><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""fontblack""><tr>" & vbCrLf)
                                      Response.Write("<td width=""43%""><input name=""code"" type=""text"" id=""code"" class=""ipt"" size=""10"" maxlength=""4""></td>" & vbCrLf)
                                      Response.Write("<td width=""57%"" align=""center""><img src=""Code/code.asp"" align=""absmiddle"" /></td>" & vbCrLf)
                                    Response.Write("</tr>" & vbCrLf)
                               Response.Write(" </table></td>" & vbCrLf)
                              Response.Write("</tr>" & vbCrLf)
                          Response.Write("</table></td>" & vbCrLf)
                        Response.Write("</tr>" & vbCrLf)
                        Response.Write("<tr>" & vbCrLf)
                          Response.Write("<td align=""center""><input type=""radio"" name=""UserType"" value=""Person"" id=""t1"" />" & vbCrLf)
                           Response.Write("<label for=""t1"">个人会员</label>" & vbCrLf)
                          Response.Write("<input type=""radio"" name=""UserType"" value=""Company"" id=""t2"" />" & vbCrLf)
                         Response.Write("<label for=""t2"">单位会员</label></td>" & vbCrLf)
                        Response.Write("</tr>" & vbCrLf)
                        Response.Write("<tr>" & vbCrLf)
                         Response.Write(" <td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""fontblack"">" & vbCrLf)
                              Response.Write("<tr>" & vbCrLf)
                                Response.Write("<td colspan=""2""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf)
                                    Response.Write("<tr>" & vbCrLf)
                                      Response.Write("<td height=""26"" colspan=""3"" align=""right""><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""fontblack"">" & vbCrLf)
                                          Response.Write("<tr>" & vbCrLf)
                                            Response.Write("<td width=""94%"" align=""right""><input name=""image"" type=""image"" src=""images/denglu.jpg"" width=""110"" height=""23"" border=""0"" /></td>" & vbCrLf)
                                            Response.Write("<td width=""6%"">&nbsp;</td>" & vbCrLf)
                                          Response.Write("</tr>" & vbCrLf)
                                      Response.Write("</table></td>" & vbCrLf)
                                      Response.Write("<td width=""20%"" rowspan=""2""><img src=""images/mf.gif"" width=""45"" height=""34"" /></td>" & vbCrLf)
                                   Response.Write("</tr>" & vbCrLf)
                                    Response.Write("<tr>" & vbCrLf)
                                      Response.Write("<td width=""39%"" height=""26"" align=""right""><a href=""Person_Reg.asp""><img src=""images/font_01.gif"" width=""80"" height=""18"" border=""0"" /></a></td>" & vbCrLf)
                                      Response.Write("<td width=""3%""></td>" & vbCrLf)
                                      Response.Write("<td width=""38%""><a href=""Company_Reg.asp""><img src=""images/font_02.gif"" width=""80"" height=""18"" border=""0"" /></a></td>" & vbCrLf)
                                    Response.Write("</tr>" & vbCrLf)
                                Response.Write("</table></td>" & vbCrLf)
                              Response.Write("</tr>" & vbCrLf)
                          Response.Write("</table></td>" & vbCrLf)
                        Response.Write("</tr>" & vbCrLf)
                      Response.Write("</table>" & vbCrLf)
                  Response.Write("</form>" & vbCrLf)
		Else
			arrMember = Member_Info()
			Response.Write("<table width=""95%"" 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)

		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
	
		
Private Function AddZero(str)
		If Len(str) = 1 Then
			AddZero = "0" & str
		Else
			AddZero = str
		End If
	End Function


	
Public Function FormatDate(strDate)
		If IsDate(strDate) Then
			If InStr(Cstr(strDate) , "-") > 0 And InStr(Cstr(strDate) , ":") <= 0 Then
				FormatDate = Cstr(Year(strDate)) & "-" & AddZero(Cstr(Month(strDate))) & "-" & AddZero(Cstr(Day(strDate)))
			ElseIf InStr(Cstr(strDate) , "-") <= 0 And InStr(Cstr(strDate) , ":") > 0 Then
				FormatDate = AddZero(Cstr(Hour(strDate))) & ":" & AddZero(Cstr(Minute(strDate))) & ":" & AddZero(Cstr(Second(strDate)))
			ElseIf InStr(Cstr(strDate) , "-") > 0 And InStr(Cstr(strDate) , ":") > 0 Then
				FormatDate =Cstr(Year(strDate)) & "-" & AddZero(Cstr(Month(strDate))) & "-" & AddZero(Cstr(Day(strDate))) & " " & AddZero(Cstr(Hour(strDate))) & ":" & AddZero(Cstr(Minute(strDate))) & ":" & AddZero(Cstr(Second(strDate)))
			End If
		Else
			FormatDate = ""
		End If
	End Function

	
	
Public Function CheckStr(str , strExcluedStr)
		Dim sTemp,ExcluedStr,constExcluedStr,i
		sTemp = str
		ExcluedStr = strExcluedStr
		constExcluedStr = "~|!|@|#|$|%|^|&|*|+|=|\|'|""|<|>"
		CheckStr = False
		If IsNull(sTemp) = True Then
			Exit Function
		End If
		If ExcluedStr = "" Or IsNull(ExcluedStr) Then ExcluedStr = constExcluedStr
		If InStr(ExcluedStr , "|") <= 0 Then ExcluedStr = constExcluedStr
		ExcluedStr = Split(ExcluedStr , "|")
		For i = 0 To Ubound(ExcluedStr)
			If InStr(sTemp , ExcluedStr(i)) > 0 Then
				CheckStr = True
				Exit Function
			End If
		Next
	End Function

	
	
Public Function CheckUserName(str)
		Dim sTemp,constStr,i,tempStr
		sTemp = LCase(str)
		constStr = "abcdefghijklmnopqrstuvwxyz0123456789_"
		CheckUserName = False
		If IsNull(sTemp) = True Then
			Exit Function
		End If
		For i = 1 To Len(sTemp)
			tempStr = Mid(sTemp , i , 1)
			If InStr(constStr , tempStr) <= 0 Then
				CheckUserName = True
				Exit Function
			End If
		Next
	End Function

	
	
Public Function IsValidEmail(email)
	
		dim names, name, i, c
		
		IsValidEmail = true
		names = Split(email, "@")
		if UBound(names) <> 1 then
		IsValidEmail = false
		exit function
		end if
		for each name in names
		if Len(name) <= 0 then
		IsValidEmail = false
		exit function
		end if
		for i = 1 to Len(name)
		c = Lcase(Mid(name, i, 1))
		if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
		IsValidEmail = false
		exit function
		end if
		next
		if Left(name, 1) = "." or Right(name, 1) = "." then
		IsValidEmail = false
		exit function
		end if
		next
		if InStr(names(1), ".") <= 0 then
		IsValidEmail = false
		exit function
		end if
		i = Len(names(1)) - InStrRev(names(1), ".")
		if i <> 2 and i <> 3 then
		IsValidEmail = false
		exit function
		end if
		if InStr(email, "..") > 0 then
		IsValidEmail = false
		end if
	
	End Function

	
	
Public Function IsValidTel(Tel)
		Dim TelNum,TelNums,i,j,c
		IsValidTel = True
		If InStr(Tel , ",") <= 0 Then
			TelNums = Split(Tel , "-")
			For Each TelNum In TelNums
				If Len(TelNum) <= 0 Then
					IsValidTel = False
					Exit Function
				End If
				For i = 1 To Len(TelNum)
					c = Lcase(Mid(TelNum , i , 1))
					If Not IsNumeric(c) Then
						IsValidTel = False
						Exit Function
					End If
				Next
			Next
		Else
			TelNums = Split(Tel , ",")
			For i = 0 To Ubound(TelNums)
				TelNums(i) = Split(TelNums(i) , "-")
				For Each TelNum In TelNums(i)
					If Len(TelNum) <=0 Then
						IsValidTel = False
						Exit Function
					End If
					For j = 1 To Len(TelNum)
						c = Lcase(Mid(TelNum , j , 1))
						If Not IsNumeric(c) Then
							IsValidTel = False
							Exit Function
						End If
					Next
				Next
			Next
		End If
	End Function

	
	
Private Function IncludeField(strTable , strField , strKeyField , strFieldValue)
		Dim Rs
		Set Rs = server.CreateObject("ADODB.recordset")
		Rs.Open "select "& strField &" from "& strTable &" where "& strKeyField &" = "& strFieldValue , Conn , 1 , 1
		Do While Not Rs.Eof
			IncludeField = IncludeField & "," & Rs(strField)
			IncludeField = IncludeField & IncludeField(strTable , strField , strKeyField , Rs(strField))
		Rs.MoveNext
		Loop
		Rs.Close
		Set Rs = Nothing
	End Function
	
	Public Function OutIncludeField(strTable , strField , strKeyField , strFieldValue)
		OutIncludeField = IncludeField(strTable , strField , strKeyField , strFieldValue)
		OutIncludeField = strFieldValue & OutIncludeField
	End Function

	
	
Function CopyRight_Joy()
%>
  <!--#include file="../foot.asp" -->
<%
	End Function
End Class
%> 
