<!--#include file="../../Conn.asp" -->
<!--#include file="../../Comm/Site_Class.asp" -->
<!--#include file="../../Comm/md5.asp" -->
<%
PagePath = "../../"

Set Qsite = New Site_Class

Qsite.SiteConfig_Master()
%>
<!--#include file="../Check_Login.asp" -->
<%
Qsite.Check_AdminFlag(arrAdminFlag(1 , 1))

Dim Rs,i
Set Rs = server.CreateObject("ADODB.recordset")

Dim strCompanyName,ViewType,Page
Dim ComId
Dim UserName,PassWord,PassWord2,Question,Answer,Email
Dim CompanyName,CompanyIndustry,CompanyNature
Dim CompanyFormation,RegFunds,EmployeeNum
Dim CompanyLocation_Province,CompanyLocation_City,CompanyLocation_County,CompanyContent
Dim Contact,Tel,Mobile,Fax,QQ,CompanyAddr,Postcode,ComPic
Dim IsLock,IsYear,IsSh,LoginQuantity,ThisLoginDate,ThisLoginIp,ViewQuantity
Dim MemberType,MemberBeginDate,MemberEndDate,ViewJlQuantity,SendMsQuantity
Dim SelBeginYear,selBeginMonth,selBeginDay,SelEndYear,selEndMonth,selEndDay,ThisYear
Dim RegFromIp,RegDate

If Request.Form <> "" Then
	strCompanyName = Qsite.chgStr(Trim(Request.Form("strCompanyName")))
	ViewType = Qsite.chgStr(Trim(Request.Form("ViewType")))
	Page = Qsite.chgStr(Trim(Request.Form("Page")))
	ComId = Qsite.chgStr(Trim(Request.Form("ComId")))
	
	UserName = Qsite.chgStr(Trim(Request.Form("UserName")))
	PassWord = Qsite.chgStr(Trim(Request.Form("PassWord")))
	PassWord2 = Qsite.chgStr(Trim(Request.Form("PassWord2")))
	Question = Qsite.chgStr(Trim(Request.Form("Question")))
	Answer = Qsite.chgStr(Trim(Request.Form("Answer")))
	Email = Qsite.chgStr(Trim(Request.Form("Email")))
	CompanyName = Qsite.chgStr(Trim(Request.Form("CompanyName")))
	CompanyIndustry = Qsite.chgStr(Trim(Request.Form("CompanyIndustry")))
	CompanyNature = Qsite.chgStr(Trim(Request.Form("CompanyNature")))
	CompanyFormation = Qsite.chgStr(Trim(Request.Form("CompanyFormation")))
	RegFunds = Qsite.chgStr(Trim(Request.Form("RegFunds")))
	EmployeeNum = Qsite.chgStr(Trim(Request.Form("EmployeeNum")))
	CompanyLocation_Province = Qsite.chgStr(Trim(Request.Form("Province")))
	CompanyLocation_City = Qsite.chgStr(Trim(Request.Form("City")))
	CompanyLocation_County = Qsite.chgStr(Trim(Request.Form("County")))
	CompanyContent = Qsite.chgStr(Trim(Request.Form("CompanyContent")))
	Contact = Qsite.chgStr(Trim(Request.Form("Contact")))
	Tel = Qsite.chgStr(Trim(Request.Form("Tel")))
	Mobile = Qsite.chgStr(Trim(Request.Form("Mobile")))
	Fax = Qsite.chgStr(Trim(Request.Form("Fax")))
	QQ = Qsite.chgStr(Trim(Request.Form("QQ")))
	CompanyAddr = Qsite.chgStr(Trim(Request.Form("CompanyAddr")))
	Postcode = Qsite.chgStr(Trim(Request.Form("Postcode")))
	IsLock = Qsite.chgStr(Trim(Request.Form("IsLock")))
	IsYear = Qsite.chgStr(Trim(Request.Form("IsYear")))
	IsSh = Qsite.chgStr(Trim(Request.Form("IsSh")))
	
	MemberType = Qsite.chgStr(Trim(Request.Form("MemberType")))
	selBeginYear = Qsite.chgStr(Trim(Request.Form("BeginYear")))
	selBeginMonth = Qsite.chgStr(Trim(Request.Form("BeginMonth")))
	selBeginDay = Qsite.chgStr(Trim(Request.Form("BeginDay")))
	selEndYear = Qsite.chgStr(Trim(Request.Form("EndYear")))
	selEndMonth = Qsite.chgStr(Trim(Request.Form("EndMonth")))
	selEndDay = Qsite.chgStr(Trim(Request.Form("EndDay")))
	ViewJlQuantity = Qsite.chgStr(Trim(Request.Form("ViewJlQuantity")))
	SendMsQuantity = Qsite.chgStr(Trim(Request.Form("SendMsQuantity")))
	ComPic = Qsite.chgStr(Trim(Request.Form("ComPic")))
	
	If IsNull(strCompanyName) Then strCompanyName = ""
	If IsNull(ViewType) Then ViewType = ""
	If Page = "" Or IsNull(Page) Or Not IsNumeric(Page) Then Page = 1
	If ComId = "" Or IsNull(ComId) Or Not IsNumeric(ComId) Then ComId = 0
	
	If Qsite.CheckStr(UserName , "") = True Then
		Qsite.ShowMsg "输入的用户名称含有非法字符，请返回重新输入" , ""
	End If
	If Qsite.CheckStr(UserName , Qsite.RegNoName) = True Then
		Qsite.ShowMsg "输入的用户名称含有非法字符，请返回重新输入" , ""
	End If
	If Qsite.CheckStr(PassWord , "&|<|>|\|'") = True Or Qsite.CheckStr(PassWord2 , "&|<|>|\|'") = True Then
		Qsite.ShowMsg "输入的密码含有非法字符，请返回重新输入" , ""
	End If
	If Qsite.CheckStr(Question , "\|'|&|""|#|%") = True Then
		Qsite.ShowMsg "输入的提示问题含有非法字符，请返回重新输入" , ""
	End If
	If Qsite.CheckStr(Answer , "\|'|&|""|#|%") = True Then
		Qsite.ShowMsg "输入的问题答案含有非法字符，请返回重新输入" , ""
	End If
	If Email = "" Or IsNull(Email) Then
		Qsite.ShowMsg "请输入邮箱地址" , ""
	End If
	If Not Qsite.IsValidEmail(Email) Then
		Qsite.ShowMsg "输入的电子信箱不正确，请返回重新输入" , ""
	End If
	
	If CompanyName = "" Or IsNull(CompanyName) Then
		Qsite.ShowMsg "请输入公司名称" , ""
	End If
	If CompanyIndustry = "" Or IsNull(CompanyIndustry) Then
		Qsite.ShowMsg "请选择所属行业" , ""
	End If
	If CompanyNature = "" Or IsNull(CompanyNature) Then
		Qsite.ShowMsg "请选择公司性质" , ""
	End If
	If CompanyFormation = "" Or IsNull(CompanyFormation) Then
		Qsite.ShowMsg "请输入成立时间" , ""
	End If
	If RegFunds = "" Or IsNull(RegFunds) Or Not IsNumeric(RegFunds) Then
		Qsite.ShowMsg "请输入注册资金" , ""
	End If
	If EmployeeNum = "" Or IsNull(EmployeeNum) Then
		Qsite.ShowMsg "请选择员工人数" , ""
	End If
	If CompanyLocation_Province = "" Or IsNull(CompanyLocation_Province) Then
		Qsite.ShowMsg "请选择公司所在地" , ""
	End If
	If CompanyLocation_City = "" Or IsNull(CompanyLocation_City) Then
		Qsite.ShowMsg "请选择公司所在地" , ""
	End If
	If CompanyLocation_County = "" Or IsNull(CompanyLocation_County) Or CompanyLocation_County = "不限" Then
		Qsite.ShowMsg "请选择公司所在地" , ""
	End If
	If CompanyContent = "" Or IsNull(CompanyContent) Then
		Qsite.ShowMsg "请输入公司简介" , ""
	End If
	
	If Contact = "" Or IsNull(Contact) Then
		Qsite.ShowMsg "请输入联系人" , ""
	End If
	If Tel <> "" And IsNull(Tel) Then
		Qsite.ShowMsg "请输入联系电话" , ""
	End If
	If Not Qsite.IsValidTel(Tel) Then
		Qsite.ShowMsg "输入的联系电话不正确，请返回重新输入" , ""
	End If
	If Mobile <> "" And Not Qsite.IsValidTel(Mobile) Then
		Qsite.ShowMsg "输入的移动电话不正确，请返回重新输入" , ""
	End If
	If Fax <> "" And Not Qsite.IsValidTel(Fax) Then
		Qsite.ShowMsg "输入的传真号码不正确，请返回重新输入" , ""
	End If
	If QQ <> "" And Not IsNumeric(QQ) Then
		Qsite.ShowMsg "输入的QQ号码不正确，请返回重新输入" , ""
	End If
	If CompanyAddr <> "" And IsNull(CompanyAddr) Then
		Qsite.ShowMsg "请输入通讯地址" , ""
	End If
	If Postcode <> "" And IsNull(Postcode) Then
		Qsite.ShowMsg "请输入邮政编码" , ""
	End If
	If Postcode <> "" And Not IsNumeric(Postcode) Then
		Qsite.ShowMsg "输入的邮政不正确，请返回重新输入" , ""
	End If
	
	If MemberType = "" Or IsNull(MemberType) Or Not IsNumeric(MemberType) Then MemberType = 0
	
	If selEndYear < selBeginYear Then
		Qsite.ShowMsg "结束时间不能小于开始时间" , ""
	End If
	If selEndYear = selBeginYear And selEndMonth < selBeginMonth Then
		Qsite.ShowMsg "结束时间不能小于开始时间" , ""
	End If
	If selEndYear = selBeginYear And selEndMonth = selBeginMonth And selEndDay < selBeginDay Then
		Qsite.ShowMsg "结束时间不能小于开始时间" , ""
	End If
	
	MemberBeginDate = Qsite.FormatDate(selBeginYear & "-" & selBeginMonth & "-" & selBeginDay)
	
	MemberEndDate = Qsite.FormatDate(selEndYear & "-" & selEndMonth & "-" & selEndDay)
	
	If Not IsDate(MemberBeginDate) Then
		Qsite.ShowMsg "开始时间格式不对" , ""
	End If
	
	If Not IsDate(MemberEndDate) Then
		Qsite.ShowMsg "结束时间格式不对" , ""
	End If
	
	If ViewJlQuantity = "" Or IsNull(ViewJlQuantity) Or Not IsNumeric(ViewJlQuantity) Then ViewJlQuantity = 0
	If SendMsQuantity = "" Or IsNull(SendMsQuantity) Or Not IsNumeric(SendMsQuantity) Then SendMsQuantity = 0
	
	If IsLock <> "1" Then IsLock = "0"
	If IsYear <> "1" Then IsYear = "0"
	If IsSh <> "1" Then IsSh = "0"
	
	Rs.Open "select * from CompanyTbl where Email = '"& Email &"' and ComId <> "& ComId , Conn , 1 , 1
	If Not Rs.Eof Then
		Qsite.ShowMsg "此电子信箱已经注册，请返回重新输入" , ""
	End If
	Rs.Close
	
	Rs.Open "select * from CompanyTbl where ComId ="& ComId &" and UserName = '"& UserName &"'" , Conn , 3 , 2
	If PassWord <> "" Then
		Rs("PassWord") = MD5(PassWord)
	End If
	Rs("Question") = Question
	Rs("Answer") = Answer
	Rs("Email") = Email
	
	Rs("CompanyName") = CompanyName
	Rs("CompanyIndustry") = CompanyIndustry
	Rs("CompanyNature") = CompanyNature
	Rs("CompanyFormation") = CompanyFormation
	Rs("RegFunds") = RegFunds
	Rs("EmployeeNum") = EmployeeNum
	Rs("CompanyLocation_Province") = CompanyLocation_Province
	Rs("CompanyLocation_City") = CompanyLocation_City
	Rs("CompanyLocation_County") = CompanyLocation_County
	Rs("CompanyContent") = CompanyContent
	
	Rs("Contact") = Contact
	Rs("Tel") = Tel
	Rs("Mobile") = Mobile
	Rs("Fax") = Fax
	Rs("QQ") = QQ
	Rs("CompanyAddr") = CompanyAddr
	Rs("Postcode") = Postcode
	Rs("ComPic") = ComPic
	
	Rs("IsLock") = IsLock
	Rs("IsYear") = IsYear
	Rs("IsSh") = IsSh
	
	Rs("MemberType") = MemberType
	Rs("MemberBeginDate") = MemberBeginDate
	Rs("MemberEndDate") = MemberEndDate
	Rs("ViewJlQuantity") = ViewJlQuantity
	Rs("SendMsQuantity") = SendMsQuantity
	
	Rs.Update
	Rs.Close
	
	Qsite.ShowMsg "企业信息修改成功" , "Company_List.asp?CompanyName="& strCompanyName &"&ViewType="& ViewType &"&page="& Page
	
End If

strCompanyName = Qsite.chgStr(Trim(Request.QueryString("strCompanyName")))
ViewType = Qsite.chgStr(Trim(Request.QueryString("ViewType")))
Page = Qsite.chgStr(Trim(Request.QueryString("Page")))
ComId = Qsite.chgStr(Trim(Request.QueryString("ComId")))

If IsNull(strCompanyName) Then strCompanyName = ""
If IsNull(ViewType) Then ViewType = ""
If Page = "" Or IsNull(Page) Or Not IsNumeric(Page) Then Page = 1
If ComId = "" Or IsNull(ComId) Or Not IsNumeric(ComId) Then ComId = 0

Rs.Open "select * from CompanyTbl where ComId = "& ComId , Conn , 1 , 1
If Rs.Eof Then
	UserName = ""
	PassWord = ""
	Question = ""
	Answer = ""
	Email = ""
	CompanyName = ""
	CompanyIndustry = ""
	CompanyNature = ""
	CompanyFormation = ""
	RegFunds = ""
	EmployeeNum = ""
	CompanyLocation_Province = ""
	CompanyLocation_City = ""
	CompanyLocation_County = ""
	CompanyContent = ""
	Contact = ""
	Tel = ""
	Mobile = ""
	Fax = ""
	QQ = ""
	CompanyAddr = ""
	Postcode = ""
	ComPic = ""
	IsLock = ""
	IsYear = ""
	IsSh = ""
	LoginQuantity = ""
	ThisLoginDate = ""
	ThisLoginIp = ""
	ViewQuantity = ""
	MemberType = 0
	MemberBeginDate = ""
	MemberEndDate = ""
	ViewJlQuantity = 0
	SendMsQuantity = 0
	RegFromIp = ""
	RegDate = ""
Else
	UserName = Rs("UserName")
	PassWord = Rs("PassWord")
	Question = Rs("Question")
	Answer = Rs("Answer")
	Email = Rs("Email")
	CompanyName = Rs("CompanyName")
	CompanyIndustry = Rs("CompanyIndustry")
	CompanyNature = Rs("CompanyNature")
	CompanyFormation = Rs("CompanyFormation")
	RegFunds = Rs("RegFunds")
	EmployeeNum = Rs("EmployeeNum")
	CompanyLocation_Province = Rs("CompanyLocation_Province")
	CompanyLocation_City = Rs("CompanyLocation_City")
	CompanyLocation_County = Rs("CompanyLocation_County")
	CompanyContent = Rs("CompanyContent")
	Contact = Rs("Contact")
	Tel = Rs("Tel")
	Mobile = Rs("Mobile")
	Fax = Rs("Fax")
	QQ = Rs("QQ")
	CompanyAddr = Rs("CompanyAddr")
	Postcode = Rs("Postcode")
	ComPic = Rs("ComPic")
	IsLock = Rs("IsLock")
	IsYear = Rs("IsYear")
	IsSh = Rs("IsSh")
	LoginQuantity = Rs("LoginQuantity")
	ThisLoginDate = Rs("ThisLoginDate")
	ThisLoginIp = Rs("ThisLoginIp")
	ViewQuantity = Rs("ViewQuantity")
	MemberType = Rs("MemberType")
	MemberBeginDate = Rs("MemberBeginDate")
	MemberEndDate = Rs("MemberEndDate")
	ViewJlQuantity = Rs("ViewJlQuantity")
	SendMsQuantity = Rs("SendMsQuantity")
	RegFromIp = Rs("RegFromIp")
	RegDate = Rs("RegDate")
End If
Rs.Close

If IsDate(MemberBeginDate) Then
	SelBeginYear = Year(MemberBeginDate)
	selBeginMonth = Month(MemberBeginDate)
	selBeginDay = Day(MemberBeginDate)
End If

If IsDate(MemberEndDate) Then
	SelEndYear = Year(MemberEndDate)
	selEndMonth = Month(MemberEndDate)
	selEndDay = Day(MemberEndDate)
End If

ThisYear = Year(Date())
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>企业管理</title>
<link href="../skins/css/main.css" rel="stylesheet" type="text/css">
<script language="javascript" src="../../Comm/Area_All.js"></script>
<script language="javascript" src="../../Comm/Area_Function.js"></script>
<script language="javascript">
function CheckForm()
{
	if(PosForm.ComPic.value == "")
	{
		alert("请输入图片/Flash地址，或上传图片/Flash");
		PosForm.ComPic.focus();
		return false;
	}

function UploadLogo()
{
	window.open('../../Company/Upload_Logo.asp','Upload','width=380px,height=90px,left=300,top=300');
} 
</script>
</head>

<body>
<form name="SearchForm" method="post" action="Company_Edit.asp" style="margin:0">
<table width="100%" border="0" cellspacing="1" cellpadding="5">
	<tr>
		<td height="25" colspan="2" class="td_title">企业信息修改</td>
	</tr>
	<tr>
		<td height="15" colspan="2"></td>
	</tr>
	<tr>
		<td height="23" colspan="2" class="td_content"><strong>帐号信息</strong></td>
		</tr>
	<tr>
		<td width="15%" height="23" class="td_content">用户名：</td>
		<td width="85%" class="td_content"><input name="UserName" type="text" class="input_1" id="UserName" value="<%=UserName%>" size="40" readonly>
			(不能修改)
				<input name="strCompanyName" type="hidden" id="strCompanyName" value="<%=strCompanyName%>">
			<input name="ViewType" type="hidden" id="ViewType" value="<%=ViewType%>">
			<input name="Page" type="hidden" id="Page" value="<%=Page%>">
			<input name="ComId" type="hidden" id="ComId" value="<%=ComId%>"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">登录密码：</td>
		<td class="td_content"><input name="PassWord" type="password" class="input_1" id="PassWord" size="40">
			(如果不修改请留空)</td>
	</tr>
	<tr>
		<td height="23" class="td_content">确认密码：</td>
		<td class="td_content"><input name="PassWord2" type="password" class="input_1" id="PassWord2" size="40"></td>
	</tr>
	<!--<tr>
		<td height="23" class="td_content">提示问题：</td>
		<td class="td_content"><input name="Question" type="text" class="input_1" id="Question" value="<%=Question%>" size="40">
			(用于取回密码)</td>
	</tr>
	<tr>
		<td height="23" class="td_content">问题答案：</td>
		<td class="td_content"><input name="Answer" type="text" class="input_1" id="Answer" value="<%=Answer%>" size="40">
			(用于取回密码)</td>
	</tr>-->
	<tr>
		<td height="23" class="td_content">电子信箱：</td>
		<td class="td_content"><input name="Email" type="text" class="input_1" id="Email" value="<%=Email%>" size="40">
			(用于取回密码)</td>
	</tr>
	<tr>
      <td height="23" class="td_content">证件审核：</td>
	  <td class="td_content"><input name="ComPic" type="text" class="input_1" id="ComPic" value="<%=Compic%>" size="40">
			<input name="Btn" type="button" class="input_1" id="Btn" value="上传图片/Flash" onClick="UploadLogo();"></td>
    </tr>
	<%if Compic<>"" then%>
	<tr>
      <td height="23" class="td_content">&nbsp;</td>
	  <td class="td_content"><a href="../../<%=Compic%>" target="_blank"><img src="../../Images/zfb_iden_small_iden.gif" alt="已通过认证" width="34" height="20" border="0"></a>&nbsp;&nbsp;已通过认证，点击查看证件大图</td>
	</tr>
	<%end if%>
	<tr>
		<td height="23" class="td_content">注册IP：</td>
		<td class="td_content"><%=RegFromIp%></td>
	</tr>
	<tr>
		<td height="23" class="td_content">注册时间：</td>
		<td class="td_content"><%=RegDate%></td>
	</tr>
	<tr>
		<td height="23" class="td_content">上次登录IP：</td>
		<td class="td_content"><%=ThisLoginIp%></td>
	</tr>
	<tr>
		<td height="23" class="td_content">上次登录时间：</td>
		<td class="td_content"><%=ThisLoginDate%></td>
	</tr>
	<tr>
		<td height="23" class="td_content">总登录次数：</td>
		<td class="td_content"><%=LoginQuantity%></td>
	</tr>
	<tr>
		<td height="23" class="td_content">被浏览次数：</td>
		<td class="td_content"><%=ViewQuantity%></td>
	</tr>
	<tr>
		<td height="15" colspan="2"></td>
	</tr>
	<tr>
		<td height="23" colspan="2" class="td_content"><strong>基本信息</strong></td>
		</tr>
	<tr>
		<td height="23" class="td_content">公司名称：</td>
		<td class="td_content"><input name="CompanyName" type="text" class="input_1" id="CompanyName" value="<%=CompanyName%>" size="50"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">所属行业：</td>
		<td class="td_content"><select name="CompanyIndustry" class="input_1" id="CompanyIndustry">
						<option value="">--请选择--</option>
						<%
						Rs.Open "select * from PositionTbl where PositionKey = 0 order by PositionId asc" , Conn , 1 , 1
						Do While Not Rs.Eof
							Response.Write("<option value="""& Rs("PositionName") &""" ")
							If Rs("PositionName") = CompanyIndustry Then Response.Write("selected")
							Response.Write(">"& Rs("PositionName") &"</option>")
						Rs.MoveNext
						Loop
						Rs.Close
						%>
		</select>		</td>
	</tr>
	<tr>
		<td height="23" class="td_content">公司性质：</td>
		<td class="td_content"><select name="CompanyNature" class="input_1" id="CompanyNature">
						<option value="">--请选择--</option>
						<%
						Rs.Open "select * from CompanyNatureTbl order by CompanyNatureId asc" , Conn , 1 , 1
						Do While Not Rs.Eof
							Response.Write("<option value="""& Rs("CompanyNatureName") &""" ")
							If Rs("CompanyNatureName") = CompanyNature Then Response.Write("selected")
							Response.Write(">"& Rs("CompanyNatureName") &"</option>")
						Rs.MoveNext
						Loop
						Rs.Close
						%>
		</select>		</td>
	</tr>
	<tr>
		<td height="23" class="td_content">成立时间：</td>
		<td class="td_content"><input name="CompanyFormation" type="text" class="input_1" id="CompanyFormation" value="<%=CompanyFormation%>" size="20"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">注册资金：</td>
		<td class="td_content"><input name="RegFunds" type="text" class="input_1" id="RegFunds" value="<%=RegFunds%>" size="20">
			万元</td>
	</tr>
	<tr>
		<td height="23" class="td_content">员工人数：</td>
		<td class="td_content"><select name="EmployeeNum" class="input_1" id="EmployeeNum">
						<option value="" <%If EmployeeNum = "" Then Response.Write("selected")%>>--请选择--</option>
						<option value="10人以下" <%If EmployeeNum = "10人以下" Then Response.Write("selected")%>>10人以下</option>
						<option value="10-50人" <%If EmployeeNum = "10-50人" Then Response.Write("selected")%>>10-50人</option>
						<option value="50-200人" <%If EmployeeNum = "50-200人" Then Response.Write("selected")%>>50-200人</option>
						<option value="200-500人" <%If EmployeeNum = "200-500人" Then Response.Write("selected")%>>200-500人</option>
						<option value="500-1000人" <%If EmployeeNum = "500-1000人" Then Response.Write("selected")%>>500-1000人</option>
						<option value="1000以上" <%If EmployeeNum = "1000以上" Then Response.Write("selected")%>>1000以上</option>
		</select>		</td>
	</tr>
	<tr>
		<td height="23" class="td_content">公司所在地：</td>
		<td class="td_content"><select name="Province" class="input_1" id="Province" onChange="SelChgCity('City' , document.all.Province.options[document.all.Province.selectedIndex].value , arrProvince , arrCity , 'County');">
											</select>
												<select name="City" class="input_1" id="City" onChange="SelChgCounty('County' , document.all.City.options[document.all.City.selectedIndex].value , arrCity , arrCounty);">
												</select>
												 <select name="County" class="input_1" id="County">
												</select></td>
	</tr>
	<tr>
		<td height="23" class="td_content">公司简介：</td>
		<td class="td_content"><textarea name="CompanyContent" cols="60" rows="8" class="input_1" id="CompanyContent"><%=CompanyContent%></textarea></td>
	</tr>
	<tr>
		<td height="15" colspan="2"></td>
	</tr>
	<tr>
		<td height="23" colspan="2" class="td_content"><strong>联系方式</strong></td>
		</tr>
	<tr>
		<td height="23" class="td_content">联系人：</td>
		<td class="td_content"><input name="Contact" type="text" class="input_1" id="Contact" value="<%=Contact%>" size="30"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">联系电话：</td>
		<td class="td_content"><input name="Tel" type="text" class="input_1" id="Tel" value="<%=Tel%>" size="60"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">手机号码：</td>
		<td class="td_content"><input name="Mobile" type="text" class="input_1" id="Mobile" value="<%=Mobile%>" size="60"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">传真号码：</td>
		<td class="td_content"><input name="Fax" type="text" class="input_1" id="Fax" value="<%=Fax%>" size="60"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">QQ：</td>
		<td class="td_content"><input name="QQ" type="text" class="input_1" id="QQ" value="<%=QQ%>" size="20"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">通讯地址：</td>
		<td class="td_content"><input name="CompanyAddr" type="text" class="input_1" id="CompanyAddr" value="<%=CompanyAddr%>" size="60"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">邮政编码：</td>
		<td class="td_content"><input name="Postcode" type="text" class="input_1" id="Postcode" value="<%=Postcode%>" size="10" maxlength="6"></td>
	</tr>
	<tr>
		<td height="15" colspan="2">&nbsp;</td>
	</tr>
	<tr>
		<td height="23" colspan="2" class="td_content"><strong>状态信息</strong></td>
		</tr>
	<tr>
		<td height="23" class="td_content">是否锁定：</td>
		<td class="td_content"><input type="radio" name="IsLock" value="1" <%If IsLock = "1" Then Response.Write("checked")%>>
			是 
			<input type="radio" name="IsLock" value="0" <%If IsLock = "0" Then Response.Write("checked")%>> 
			否 </td>
	</tr>
	<tr>
		<td height="23" class="td_content">常年招聘：</td>
		<td class="td_content"><input type="radio" name="IsYear" value="1" <%If IsYear = "1" Then Response.Write("checked")%>>
是
	<input type="radio" name="IsYear" value="0" <%If IsYear = "0" Then Response.Write("checked")%>>
否 </td>
	</tr>
	<tr>
		<td height="23" class="td_content">帐号审核：</td>
		<td class="td_content"><input type="radio" name="IsSh" value="0" <%If IsSh = "0" Then Response.Write("checked")%>>
是
	<input type="radio" name="IsSh" value="1" <%If IsSh = "1" Then Response.Write("checked")%>>
否 </td>
	</tr>
	<tr>
		<td height="23" class="td_content">会员类型：</td>
		<td class="td_content"><select name="MemberType" class="input_1" id="MemberType">
		<%
		Rs.Open "select * from MemberConfigTbl order by MemberId asc" , Conn , 1 , 1
		Do While Not Rs.Eof
		%>
			<option value="<%=Rs("MemberId")%>" <%If Cstr(Rs("MemberId")) = Cstr(MemberType) Then Response.Write("selected")%>><%=Rs("MemberName")%></option>
		<%
		Rs.MoveNext
		Loop
		Rs.Close
		%>
		</select></td>
	</tr>
	<tr>
		<td height="23" class="td_content">会员开始时间：</td>
		<td class="td_content"><select name="BeginYear" class="input_1" id="BeginYear">
		<%
			For i = ThisYear To ThisYear + 15
				Response.Write("<option value="""& i &""" ")
				If Cint(i) = Cint(selBeginYear) Then Response.Write(" selected")
				Response.Write(">"& i &"</option>")
			Next
		%>
		</select>
			年
			<select name="BeginMonth" class="input_1" id="BeginMonth">
			<%
				For i = 1 To 12
					Response.Write("<option value="""& i &""" ")
					If Cint(i) = Cint(selBeginMonth) Then Response.Write(" selected")
					Response.Write(">"& i &"</option>")
				Next
			%>
			</select>
			月
			<select name="BeginDay" class="input_1" id="BeginDay">
			<%
				For i = 1 To 31
					Response.Write("<option value="""& i &""" ")
					If Cint(i) = Cint(selBeginDay) Then Response.Write(" selected")
					Response.Write(">"& i &"</option>")
				Next
			%>
			</select>
			日</td>
	</tr>
	<tr>
		<td height="23" class="td_content">会员结束时间：</td>
		<td class="td_content"><select name="EndYear" class="input_1" id="EndYear">
		<%
			For i = ThisYear To ThisYear + 15
				Response.Write("<option value="""& i &""" ")
				If Cint(i) = Cint(selEndYear) Then Response.Write(" selected")
				Response.Write(">"& i &"</option>")
			Next
		%>
		</select>
			年
			<select name="EndMonth" class="input_1" id="EndMonth">
			<%
				For i = 1 To 12
					Response.Write("<option value="""& i &""" ")
					If Cint(i) = Cint(selEndMonth) Then Response.Write(" selected")
					Response.Write(">"& i &"</option>")
				Next
			%>
			</select>
			月
			<select name="EndDay" class="input_1" id="EndDay">
			<%
				For i = 1 To 31
					Response.Write("<option value="""& i &""" ")
					If Cint(i) = Cint(selEndDay) Then Response.Write(" selected")
					Response.Write(">"& i &"</option>")
				Next
			%>
			</select>
			日</td>
	</tr>
	<tr>
		<td height="23" class="td_content">已浏览简历数量：</td>
		<td class="td_content"><input name="ViewJlQuantity" type="text" class="input_1" id="ViewJlQuantity" value="<%=ViewJlQuantity%>" size="10"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">已发送面试数量：</td>
		<td class="td_content"><input name="SendMsQuantity" type="text" class="input_1" id="SendMsQuantity" value="<%=SendMsQuantity%>" size="10"></td>
	</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
	<tr>
		<td align="center"><input name="Submit" type="submit" class="input_1" value=" 修  改 ">
			<input name="Submit" type="reset" class="input_1" value=" 重  置 ">
			<input name="Submit" type="button" class="input_1" value=" 返  回 " onClick="javascript:history.back();"></td>
	</tr>
</table>
</form>
<script language="javascript">
	InitArea("Province" , "City" , "County" , arrProvince , arrCity , arrCounty , "<%=CompanyLocation_Province%>" , "<%=CompanyLocation_City%>" , "<%=CompanyLocation_County%>")
</script>
<br>
</body>
</html>
