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

Set Qsite = New Site_Class

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

Dim Rs,arrRs,i,j

Dim MemberId_0,MemberName_0,Fees_0,Post_0,JlView_0,JlSearch_0,ContactOpen_0,ContactOpenLogin_0
Dim PerPoolFlag_0,PerPoolQuantity_0,SendMsFlag_0,SendMsQuantity_0,BoxFlag_0,SendBoxFlag_0

Dim MemberId_1,MemberName_1,Fees_1,Post_1,JlView_1,JlSearch_1,ContactOpen_1,ContactOpenLogin_1
Dim PerPoolFlag_1,PerPoolQuantity_1,SendMsFlag_1,SendMsQuantity_1,BoxFlag_1,SendBoxFlag_1

Dim MemberId_2,MemberName_2,Fees_2,Post_2,JlView_2,JlSearch_2,ContactOpen_2,ContactOpenLogin_2
Dim PerPoolFlag_2,PerPoolQuantity_2,SendMsFlag_2,SendMsQuantity_2,BoxFlag_2,SendBoxFlag_2

Dim MemberId_3,MemberName_3,Fees_3,Post_3,JlView_3,JlSearch_3,ContactOpen_3,ContactOpenLogin_3
Dim PerPoolFlag_3,PerPoolQuantity_3,SendMsFlag_3,SendMsQuantity_3,BoxFlag_3,SendBoxFlag_3

Dim MemberId_4,MemberName_4,Fees_4,Post_4,JlView_4,JlSearch_4,ContactOpen_4,ContactOpenLogin_4
Dim PerPoolFlag_4,PerPoolQuantity_4,SendMsFlag_4,SendMsQuantity_4,BoxFlag_4,SendBoxFlag_4

Set Rs = server.CreateObject("ADODB.recordset")

If Request.Form <> "" Then
	MemberId_0 = Qsite.chgStr(Trim(Request.Form("MemberId_0")))
	MemberName_0 = Qsite.chgStr(Trim(Request.Form("MemberName_0")))
	Fees_0 = Qsite.chgStr(Trim(Request.Form("Fees_0")))
	Post_0 = Qsite.chgStr(Trim(Request.Form("Post_0")))
	JlView_0 = Qsite.chgStr(Trim(Request.Form("JlView_0")))
	JlSearch_0 = Qsite.chgStr(Trim(Request.Form("JlSearch_0")))
	ContactOpen_0 = Qsite.chgStr(Trim(Request.Form("ContactOpen_0")))
	ContactOpenLogin_0 = Qsite.chgStr(Trim(Request.Form("ContactOpenLogin_0")))
	PerPoolFlag_0 = Qsite.chgStr(Trim(Request.Form("PerPoolFlag_0")))
	PerPoolQuantity_0 = Qsite.chgStr(Trim(Request.Form("PerPoolQuantity_0")))
	SendMsFlag_0 = Qsite.chgStr(Trim(Request.Form("SendMsFlag_0")))
	SendMsQuantity_0 = Qsite.chgStr(Trim(Request.Form("SendMsQuantity_0")))
	BoxFlag_0 = Qsite.chgStr(Trim(Request.Form("BoxFlag_0")))
	SendBoxFlag_0 = Qsite.chgStr(Trim(Request.Form("SendBoxFlag_0")))
	
	If MemberId_0 = "" Or IsNull(MemberId_0) Or Not IsNumeric(MemberId_0) Then MemberId_0 = 0
	If MemberName_0 = "" Or IsNull(MemberName_0) Then MemberName_0 = "普通会员"
	If Fees_0 = "" Or IsNull(Fees_0) Then Fees_0 = "0"
	If Post_0 = "" Or IsNull(Post_0) Or Not IsNumeric(Post_0) Then Post_0 = 0
	If JlView_0 = "" Or IsNull(JlView_0) Or Not IsNumeric(JlView_0) Then JlView_0 = 0
	If JlSearch_0 = "" Or IsNull(JlSearch_0) Then JlSearch_0 = "0"
	If ContactOpen_0 = "" Or IsNull(ContactOpen_0) Then ContactOpen_0 = "0"
	If ContactOpenLogin_0 = "" Or IsNull(ContactOpenLogin_0) Then ContactOpenLogin_0 = "0"
	If PerPoolFlag_0 = "" Or IsNull(PerPoolFlag_0) Then PerPoolFlag_0 = "0"
	If PerPoolQuantity_0 = "" Or IsNull(PerPoolQuantity_0) Or Not IsNumeric(PerPoolQuantity_0) Then PerPoolQuantity_0 = 0
	If SendMsFlag_0 = "" Or IsNull(SendMsFlag_0) Then SendMsFlag_0 = "0"
	If SendMsQuantity_0 = "" Or IsNull(SendMsQuantity_0) Or Not IsNumeric(SendMsQuantity_0) Then SendMsQuantity_0 = 0
	If BoxFlag_0 = "" Or IsNull(BoxFlag_0) Then BoxFlag_0 = "0"
	If SendBoxFlag_0 = "" Or IsNull(SendBoxFlag_0) Then SendBoxFlag_0 = "0"
	
	
	MemberId_1 = Qsite.chgStr(Trim(Request.Form("MemberId_1")))
	MemberName_1 = Qsite.chgStr(Trim(Request.Form("MemberName_1")))
	Fees_1 = Qsite.chgStr(Trim(Request.Form("Fees_1")))
	Post_1 = Qsite.chgStr(Trim(Request.Form("Post_1")))
	JlView_1 = Qsite.chgStr(Trim(Request.Form("JlView_1")))
	JlSearch_1 = Qsite.chgStr(Trim(Request.Form("JlSearch_1")))
	ContactOpen_1 = Qsite.chgStr(Trim(Request.Form("ContactOpen_1")))
	ContactOpenLogin_1 = Qsite.chgStr(Trim(Request.Form("ContactOpenLogin_1")))
	PerPoolFlag_1 = Qsite.chgStr(Trim(Request.Form("PerPoolFlag_1")))
	PerPoolQuantity_1 = Qsite.chgStr(Trim(Request.Form("PerPoolQuantity_1")))
	SendMsFlag_1 = Qsite.chgStr(Trim(Request.Form("SendMsFlag_1")))
	SendMsQuantity_1 = Qsite.chgStr(Trim(Request.Form("SendMsQuantity_1")))
	BoxFlag_1 = Qsite.chgStr(Trim(Request.Form("BoxFlag_1")))
	SendBoxFlag_1 = Qsite.chgStr(Trim(Request.Form("SendBoxFlag_1")))
	
	If MemberId_1 = "" Or IsNull(MemberId_1) Or Not IsNumeric(MemberId_1) Then MemberId_1 = 1
	If MemberName_1 = "" Or IsNull(MemberName_1) Then MemberName_1 = "月度会员"
	If Fees_1 = "" Or IsNull(Fees_1) Then Fees_1 = "0"
	If Post_1 = "" Or IsNull(Post_1) Or Not IsNumeric(Post_1) Then Post_1 = 0
	If JlView_1 = "" Or IsNull(JlView_1) Or Not IsNumeric(JlView_1) Then JlView_1 = 0
	If JlSearch_1 = "" Or IsNull(JlSearch_1) Then JlSearch_1 = "0"
	If ContactOpen_1 = "" Or IsNull(ContactOpen_1) Then ContactOpen_1 = "0"
	If ContactOpenLogin_1 = "" Or IsNull(ContactOpenLogin_1) Then ContactOpenLogin_1 = "0"
	If PerPoolFlag_1 = "" Or IsNull(PerPoolFlag_1) Then PerPoolFlag_1 = "0"
	If PerPoolQuantity_1 = "" Or IsNull(PerPoolQuantity_1) Or Not IsNumeric(PerPoolQuantity_1) Then PerPoolQuantity_1 = 0
	If SendMsFlag_1 = "" Or IsNull(SendMsFlag_1) Then SendMsFlag_1 = "0"
	If SendMsQuantity_1 = "" Or IsNull(SendMsQuantity_1) Or Not IsNumeric(SendMsQuantity_1) Then SendMsQuantity_1 = 0
	If BoxFlag_1 = "" Or IsNull(BoxFlag_1) Then BoxFlag_1 = "0"
	If SendBoxFlag_1 = "" Or IsNull(SendBoxFlag_1) Then SendBoxFlag_1 = "0"
	
	
	MemberId_2 = Qsite.chgStr(Trim(Request.Form("MemberId_2")))
	MemberName_2 = Qsite.chgStr(Trim(Request.Form("MemberName_2")))
	Fees_2 = Qsite.chgStr(Trim(Request.Form("Fees_2")))
	Post_2 = Qsite.chgStr(Trim(Request.Form("Post_2")))
	JlView_2 = Qsite.chgStr(Trim(Request.Form("JlView_2")))
	JlSearch_2 = Qsite.chgStr(Trim(Request.Form("JlSearch_2")))
	ContactOpen_2 = Qsite.chgStr(Trim(Request.Form("ContactOpen_2")))
	ContactOpenLogin_2 = Qsite.chgStr(Trim(Request.Form("ContactOpenLogin_2")))
	PerPoolFlag_2 = Qsite.chgStr(Trim(Request.Form("PerPoolFlag_2")))
	PerPoolQuantity_2 = Qsite.chgStr(Trim(Request.Form("PerPoolQuantity_2")))
	SendMsFlag_2 = Qsite.chgStr(Trim(Request.Form("SendMsFlag_2")))
	SendMsQuantity_2 = Qsite.chgStr(Trim(Request.Form("SendMsQuantity_2")))
	BoxFlag_2 = Qsite.chgStr(Trim(Request.Form("BoxFlag_2")))
	SendBoxFlag_2 = Qsite.chgStr(Trim(Request.Form("SendBoxFlag_2")))
	
	If MemberId_2 = "" Or IsNull(MemberId_2) Or Not IsNumeric(MemberId_2) Then MemberId_2 = 2
	If MemberName_2 = "" Or IsNull(MemberName_2) Then MemberName_2 = "季度会员"
	If Fees_2 = "" Or IsNull(Fees_2) Then Fees_2 = "0"
	If Post_2 = "" Or IsNull(Post_2) Or Not IsNumeric(Post_2) Then Post_2 = 0
	If JlView_2 = "" Or IsNull(JlView_2) Or Not IsNumeric(JlView_2) Then JlView_2 = 0
	If JlSearch_2 = "" Or IsNull(JlSearch_2) Then JlSearch_2 = "0"
	If ContactOpen_2 = "" Or IsNull(ContactOpen_2) Then ContactOpen_2 = "0"
	If ContactOpenLogin_2 = "" Or IsNull(ContactOpenLogin_2) Then ContactOpenLogin_2 = "0"
	If PerPoolFlag_2 = "" Or IsNull(PerPoolFlag_2) Then PerPoolFlag_2 = "0"
	If PerPoolQuantity_2 = "" Or IsNull(PerPoolQuantity_2) Or Not IsNumeric(PerPoolQuantity_2) Then PerPoolQuantity_2 = 0
	If SendMsFlag_2 = "" Or IsNull(SendMsFlag_2) Then SendMsFlag_2 = "0"
	If SendMsQuantity_2 = "" Or IsNull(SendMsQuantity_2) Or Not IsNumeric(SendMsQuantity_2) Then SendMsQuantity_2 = 0
	If BoxFlag_2 = "" Or IsNull(BoxFlag_2) Then BoxFlag_2 = "0"
	If SendBoxFlag_2 = "" Or IsNull(SendBoxFlag_2) Then SendBoxFlag_2 = "0"
	
	
	
	MemberId_3 = Qsite.chgStr(Trim(Request.Form("MemberId_3")))
	MemberName_3 = Qsite.chgStr(Trim(Request.Form("MemberName_3")))
	Fees_3 = Qsite.chgStr(Trim(Request.Form("Fees_3")))
	Post_3 = Qsite.chgStr(Trim(Request.Form("Post_3")))
	JlView_3 = Qsite.chgStr(Trim(Request.Form("JlView_3")))
	JlSearch_3 = Qsite.chgStr(Trim(Request.Form("JlSearch_3")))
	ContactOpen_3 = Qsite.chgStr(Trim(Request.Form("ContactOpen_3")))
	ContactOpenLogin_3 = Qsite.chgStr(Trim(Request.Form("ContactOpenLogin_3")))
	PerPoolFlag_3 = Qsite.chgStr(Trim(Request.Form("PerPoolFlag_3")))
	PerPoolQuantity_3 = Qsite.chgStr(Trim(Request.Form("PerPoolQuantity_3")))
	SendMsFlag_3 = Qsite.chgStr(Trim(Request.Form("SendMsFlag_3")))
	SendMsQuantity_3 = Qsite.chgStr(Trim(Request.Form("SendMsQuantity_3")))
	BoxFlag_3 = Qsite.chgStr(Trim(Request.Form("BoxFlag_3")))
	SendBoxFlag_3 = Qsite.chgStr(Trim(Request.Form("SendBoxFlag_3")))
	
	If MemberId_3 = "" Or IsNull(MemberId_3) Or Not IsNumeric(MemberId_3) Then MemberId_3 = 3
	If MemberName_3 = "" Or IsNull(MemberName_3) Then MemberName_3 = "半年会员"
	If Fees_3 = "" Or IsNull(Fees_3) Then Fees_3 = "0"
	If Post_3 = "" Or IsNull(Post_3) Or Not IsNumeric(Post_3) Then Post_3 = 0
	If JlView_3 = "" Or IsNull(JlView_3) Or Not IsNumeric(JlView_3) Then JlView_3 = 0
	If JlSearch_3 = "" Or IsNull(JlSearch_3) Then JlSearch_3 = "0"
	If ContactOpen_3 = "" Or IsNull(ContactOpen_3) Then ContactOpen_3 = "0"
	If ContactOpenLogin_3 = "" Or IsNull(ContactOpenLogin_3) Then ContactOpenLogin_3 = "0"
	If PerPoolFlag_3 = "" Or IsNull(PerPoolFlag_3) Then PerPoolFlag_3 = "0"
	If PerPoolQuantity_3 = "" Or IsNull(PerPoolQuantity_3) Or Not IsNumeric(PerPoolQuantity_3) Then PerPoolQuantity_3 = 0
	If SendMsFlag_3 = "" Or IsNull(SendMsFlag_3) Then SendMsFlag_3 = "0"
	If SendMsQuantity_3 = "" Or IsNull(SendMsQuantity_3) Or Not IsNumeric(SendMsQuantity_3) Then SendMsQuantity_3 = 0
	If BoxFlag_3 = "" Or IsNull(BoxFlag_3) Then BoxFlag_3 = "0"
	If SendBoxFlag_3 = "" Or IsNull(SendBoxFlag_3) Then SendBoxFlag_3 = "0"
	
	
	
	MemberId_4 = Qsite.chgStr(Trim(Request.Form("MemberId_4")))
	MemberName_4 = Qsite.chgStr(Trim(Request.Form("MemberName_4")))
	Fees_4 = Qsite.chgStr(Trim(Request.Form("Fees_4")))
	Post_4 = Qsite.chgStr(Trim(Request.Form("Post_4")))
	JlView_4 = Qsite.chgStr(Trim(Request.Form("JlView_4")))
	JlSearch_4 = Qsite.chgStr(Trim(Request.Form("JlSearch_4")))
	ContactOpen_4 = Qsite.chgStr(Trim(Request.Form("ContactOpen_4")))
	ContactOpenLogin_4 = Qsite.chgStr(Trim(Request.Form("ContactOpenLogin_4")))
	PerPoolFlag_4 = Qsite.chgStr(Trim(Request.Form("PerPoolFlag_4")))
	PerPoolQuantity_4 = Qsite.chgStr(Trim(Request.Form("PerPoolQuantity_4")))
	SendMsFlag_4 = Qsite.chgStr(Trim(Request.Form("SendMsFlag_4")))
	SendMsQuantity_4 = Qsite.chgStr(Trim(Request.Form("SendMsQuantity_4")))
	BoxFlag_4 = Qsite.chgStr(Trim(Request.Form("BoxFlag_4")))
	SendBoxFlag_4 = Qsite.chgStr(Trim(Request.Form("SendBoxFlag_4")))
	
	If MemberId_4 = "" Or IsNull(MemberId_4) Or Not IsNumeric(MemberId_4) Then MemberId_4 = 4
	If MemberName_4 = "" Or IsNull(MemberName_4) Then MemberName_4 = "年度会员"
	If Fees_4 = "" Or IsNull(Fees_4) Then Fees_4 = "0"
	If Post_4 = "" Or IsNull(Post_4) Or Not IsNumeric(Post_4) Then Post_4 = 0
	If JlView_4 = "" Or IsNull(JlView_4) Or Not IsNumeric(JlView_4) Then JlView_4 = 0
	If JlSearch_4 = "" Or IsNull(JlSearch_4) Then JlSearch_4 = "0"
	If ContactOpen_4 = "" Or IsNull(ContactOpen_4) Then ContactOpen_4 = "0"
	If ContactOpenLogin_4 = "" Or IsNull(ContactOpenLogin_4) Then ContactOpenLogin_4 = "0"
	If PerPoolFlag_4 = "" Or IsNull(PerPoolFlag_4) Then PerPoolFlag_4 = "0"
	If PerPoolQuantity_4 = "" Or IsNull(PerPoolQuantity_4) Or Not IsNumeric(PerPoolQuantity_4) Then PerPoolQuantity_4 = 0
	If SendMsFlag_4 = "" Or IsNull(SendMsFlag_4) Then SendMsFlag_4 = "0"
	If SendMsQuantity_4 = "" Or IsNull(SendMsQuantity_4) Or Not IsNumeric(SendMsQuantity_4) Then SendMsQuantity_4 = 0
	If BoxFlag_4 = "" Or IsNull(BoxFlag_4) Then BoxFlag_4 = "0"
	If SendBoxFlag_4 = "" Or IsNull(SendBoxFlag_4) Then SendBoxFlag_4 = "0"
	
	
	Rs.Open "select * from MemberConfigTbl where MemberId = "& MemberId_0 , Conn , 3 , 2
	If Not Rs.Eof Then
		Rs("MemberName") = MemberName_0
		Rs("Fees") = Fees_0
		Rs("Post") = Post_0
		Rs("JlView") = JlView_0
		Rs("JlSearch") = JlSearch_0
		Rs("ContactOpen") = ContactOpen_0
		Rs("ContactOpenLogin") = ContactOpenLogin_0
		Rs("PerPoolFlag") = PerPoolFlag_0
		Rs("PerPoolQuantity") = PerPoolQuantity_0
		Rs("SendMsFlag") = SendMsFlag_0
		Rs("SendMsQuantity") = SendMsQuantity_0
		Rs("BoxFlag") = BoxFlag_0
		Rs("SendBoxFlag") = SendBoxFlag_0
		Rs.Update
	End If
	Rs.Close
	
	Rs.Open "select * from MemberConfigTbl where MemberId = "& MemberId_1 , Conn , 3 , 2
	If Not Rs.Eof Then
		Rs("MemberName") = MemberName_1
		Rs("Fees") = Fees_1
		Rs("Post") = Post_1
		Rs("JlView") = JlView_1
		Rs("JlSearch") = JlSearch_1
		Rs("ContactOpen") = ContactOpen_1
		Rs("ContactOpenLogin") = ContactOpenLogin_1
		Rs("PerPoolFlag") = PerPoolFlag_1
		Rs("PerPoolQuantity") = PerPoolQuantity_1
		Rs("SendMsFlag") = SendMsFlag_1
		Rs("SendMsQuantity") = SendMsQuantity_1
		Rs("BoxFlag") = BoxFlag_1
		Rs("SendBoxFlag") = SendBoxFlag_1
		Rs.Update
	End If
	Rs.Close
	
	Rs.Open "select * from MemberConfigTbl where MemberId = "& MemberId_2 , Conn , 3 , 2
	If Not Rs.Eof Then
		Rs("MemberName") = MemberName_2
		Rs("Fees") = Fees_2
		Rs("Post") = Post_2
		Rs("JlView") = JlView_2
		Rs("JlSearch") = JlSearch_2
		Rs("ContactOpen") = ContactOpen_2
		Rs("ContactOpenLogin") = ContactOpenLogin_2
		Rs("PerPoolFlag") = PerPoolFlag_2
		Rs("PerPoolQuantity") = PerPoolQuantity_2
		Rs("SendMsFlag") = SendMsFlag_2
		Rs("SendMsQuantity") = SendMsQuantity_2
		Rs("BoxFlag") = BoxFlag_2
		Rs("SendBoxFlag") = SendBoxFlag_2
		Rs.Update
	End If
	Rs.Close
	
	Rs.Open "select * from MemberConfigTbl where MemberId = "& MemberId_3 , Conn , 3 , 2
	If Not Rs.Eof Then
		Rs("MemberName") = MemberName_3
		Rs("Fees") = Fees_3
		Rs("Post") = Post_3
		Rs("JlView") = JlView_3
		Rs("JlSearch") = JlSearch_3
		Rs("ContactOpen") = ContactOpen_3
		Rs("ContactOpenLogin") = ContactOpenLogin_3
		Rs("PerPoolFlag") = PerPoolFlag_3
		Rs("PerPoolQuantity") = PerPoolQuantity_3
		Rs("SendMsFlag") = SendMsFlag_3
		Rs("SendMsQuantity") = SendMsQuantity_3
		Rs("BoxFlag") = BoxFlag_3
		Rs("SendBoxFlag") = SendBoxFlag_3
		Rs.Update
	End If
	Rs.Close
	
	Rs.Open "select * from MemberConfigTbl where MemberId = "& MemberId_4 , Conn , 3 , 2
	If Not Rs.Eof Then
		Rs("MemberName") = MemberName_4
		Rs("Fees") = Fees_4
		Rs("Post") = Post_4
		Rs("JlView") = JlView_4
		Rs("JlSearch") = JlSearch_4
		Rs("ContactOpen") = ContactOpen_4
		Rs("ContactOpenLogin") = ContactOpenLogin_4
		Rs("PerPoolFlag") = PerPoolFlag_4
		Rs("PerPoolQuantity") = PerPoolQuantity_4
		Rs("SendMsFlag") = SendMsFlag_4
		Rs("SendMsQuantity") = SendMsQuantity_4
		Rs("BoxFlag") = BoxFlag_4
		Rs("SendBoxFlag") = SendBoxFlag_4
		Rs.Update
	End If
	Rs.Close
	
	Set_Member_Info_App()
	
	Qsite.ShowMsg "会员权限配置成功" , "MemberConfig.asp"
End If

Sub Set_Member_Info_App()
	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 Sub


Rs.Open "select * from MemberConfigTbl order by MemberId asc" , Conn , 1 , 1
If Not Rs.Eof Then
	arrRs = Rs.GetRows(-1)
End If
Rs.Close
Set Rs = Nothing

If Not IsArray(arrRs) Then
	ReDim arrRs(14 , 5)
	For i = 0 To 4
		arrRs(0 , i) = i
		For j = 1 To 13
			arrRs(j , i) = 0
		Next
	Next
End If
%>
<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">
</head>

<body>
<form name="ConfigForm" method="post" action="MemberConfig.asp" style="margin:0">
<table width="100%" border="0" cellspacing="1" cellpadding="5">
	<tr>
		<td height="25" colspan="6" class="td_title">会员权限配置</td>
		</tr>
	<tr>
		<td width="10%" height="23" class="td_content">会员类型：</td>
		<td width="18%" class="td_content"><input name="MemberName_0" type="text" class="input_1" id="MemberName_0" value="<%=arrRs(1 , 0)%>" size="10">
			<input name="MemberId_0" type="hidden" id="MemberId_0" value="<%=arrRs(0 , 0)%>"></td>
		<td width="18%" class="td_content"><input name="MemberName_1" type="text" class="input_1" id="MemberName_1" value="<%=arrRs(1 , 1)%>" size="10">
			<input name="MemberId_1" type="hidden" id="MemberId_1" value="<%=arrRs(0 , 1)%>"></td>
		<td width="18%" class="td_content"><input name="MemberName_2" type="text" class="input_1" id="MemberName_2" value="<%=arrRs(1 , 2)%>" size="10">
			<input name="MemberId_2" type="hidden" id="MemberId_2" value="<%=arrRs(0 , 2)%>"></td>
		<td width="18%" class="td_content"><input name="MemberName_3" type="text" class="input_1" id="MemberName_3" value="<%=arrRs(1 , 3)%>" size="10">
			<input name="MemberId_3" type="hidden" id="MemberId_3" value="<%=arrRs(0 , 3)%>"></td>
		<td width="18%" class="td_content"><input name="MemberName_4" type="text" class="input_1" id="MemberName_4" value="<%=arrRs(1 , 4)%>" size="10">
			<input name="MemberId_4" type="hidden" id="MemberId_4" value="<%=arrRs(0 , 4)%>"></td>
	</tr>
	<tr>
		<td height="23" class="td_content">收费标准：</td>
		<td class="td_content"><input name="Fees_0" type="text" class="input_1" id="Fees_0" value="<%=arrRs(2 , 0)%>" size="10">
			元</td>
		<td class="td_content"><input name="Fees_1" type="text" class="input_1" id="Fees_1" value="<%=arrRs(2 , 1)%>" size="10">
元</td>
		<td class="td_content"><input name="Fees_2" type="text" class="input_1" id="Fees_2" value="<%=arrRs(2 , 2)%>" size="10">
元</td>
		<td class="td_content"><input name="Fees_3" type="text" class="input_1" id="Fees_3" value="<%=arrRs(2 , 3)%>" size="10">
元</td>
		<td class="td_content"><input name="Fees_4" type="text" class="input_1" id="Fees_4" value="<%=arrRs(2 , 4)%>" size="10">
元</td>
	</tr>
	<tr>
		<td height="23" class="td_content">发布职位：</td>
		<td class="td_content"><input name="Post_0" type="text" class="input_1" id="Post_0" value="<%=arrRs(3 , 0)%>" size="10">
			个</td>
		<td class="td_content"><input name="Post_1" type="text" class="input_1" id="Post_1" value="<%=arrRs(3 , 1)%>" size="10">
个</td>
		<td class="td_content"><input name="Post_2" type="text" class="input_1" id="Post_2" value="<%=arrRs(3 , 2)%>" size="10">
个</td>
		<td class="td_content"><input name="Post_3" type="text" class="input_1" id="Post_3" value="<%=arrRs(3 , 3)%>" size="10"> 
			个
</td>
		<td class="td_content"><input name="Post_4" type="text" class="input_1" id="Post_4" value="<%=arrRs(3 , 4)%>" size="10"> 
			个
</td>
	</tr>
	<tr>
		<td height="23" class="td_content">简历浏览：</td>
		<td class="td_content"><input name="JlView_0" type="text" class="input_1" id="JlView_0" value="<%=arrRs(4 , 0)%>" size="10">
			份</td>
		<td class="td_content"><input name="JlView_1" type="text" class="input_1" id="JlView_1" value="<%=arrRs(4 , 1)%>" size="10">
份</td>
		<td class="td_content"><input name="JlView_2" type="text" class="input_1" id="JlView_2" value="<%=arrRs(4 , 2)%>" size="10">
份</td>
		<td class="td_content"><input name="JlView_3" type="text" class="input_1" id="JlView_3" value="<%=arrRs(4 , 3)%>" size="10">
份</td>
		<td class="td_content"><input name="JlView_4" type="text" class="input_1" id="JlView_4" value="<%=arrRs(4 , 4)%>" size="10">
份</td>
	</tr>
	<tr>
		<td height="23" class="td_content">简历搜索：</td>
		<td class="td_content"><input name="JlSearch_0" type="checkbox" id="JlSearch_0" value="1" <%If arrRs(5 , 0) = "1" Then Response.Write("checked")%>>
			允许</td>
		<td class="td_content"><input name="JlSearch_1" type="checkbox" id="JlSearch_1" value="1" <%If arrRs(5 , 1) = "1" Then Response.Write("checked")%>>
			允许</td>
		<td class="td_content"><input name="JlSearch_2" type="checkbox" id="JlSearch_2" value="1" <%If arrRs(5 , 2) = "1" Then Response.Write("checked")%>>
			允许</td>
		<td class="td_content"><input name="JlSearch_3" type="checkbox" id="JlSearch_3" value="1" <%If arrRs(5 , 3) = "1" Then Response.Write("checked")%>>
			允许</td>
		<td class="td_content"><input name="JlSearch_4" type="checkbox" id="JlSearch_4" value="1" <%If arrRs(5 , 4) = "1" Then Response.Write("checked")%>>
			允许</td>
	</tr>
	<tr>
		<td height="23" class="td_content">联系信息：</td>
		<td class="td_content"><input name="ContactOpen_0" type="checkbox" id="ContactOpen_0" value="1" <%If arrRs(6 , 0) = "1" Then Response.Write("checked")%>>
			公开 
			<input name="ContactOpenLogin_0" type="checkbox" id="ContactOpenLogin_0" value="1" <%If arrRs(7 , 0) = "1" Then Response.Write("checked")%>>
			需登录</td>
		<td class="td_content"><input name="ContactOpen_1" type="checkbox" id="ContactOpen_1" value="1" <%If arrRs(6 , 1) = "1" Then Response.Write("checked")%>>
			公开
	<input name="ContactOpenLogin_1" type="checkbox" id="ContactOpenLogin_1" value="1" <%If arrRs(7 , 1) = "1" Then Response.Write("checked")%>>
需登录</td>
		<td class="td_content"><input name="ContactOpen_2" type="checkbox" id="ContactOpen_2" value="1" <%If arrRs(6 , 2) = "1" Then Response.Write("checked")%>>
公开
	<input name="ContactOpenLogin_2" type="checkbox" id="ContactOpenLogin_2" value="1" <%If arrRs(7 , 2) = "1" Then Response.Write("checked")%>>
需登录</td>
		<td class="td_content"><input name="ContactOpen_3" type="checkbox" id="ContactOpen_3" value="1" <%If arrRs(6 , 3) = "1" Then Response.Write("checked")%>>
公开
	<input name="ContactOpenLogin_3" type="checkbox" id="ContactOpenLogin_3" value="1" <%If arrRs(7 , 3) = "1" Then Response.Write("checked")%>>
需登录</td>
		<td class="td_content"><input name="ContactOpen_4" type="checkbox" id="ContactOpen_4" value="1" <%If arrRs(6 , 4) = "1" Then Response.Write("checked")%>>
公开
	<input name="ContactOpenLogin_4" type="checkbox" id="ContactOpenLogin_4" value="1" <%If arrRs(7 , 4) = "1" Then Response.Write("checked")%>>
需登录</td>
	</tr>
	<tr>
		<td height="23" class="td_content">人才库：</td>
		<td class="td_content"><input name="PerPoolFlag_0" type="checkbox" id="PerPoolFlag_0" value="1" <%If arrRs(8 , 0) = "1" Then Response.Write("checked")%>>
			容量
			<input name="PerPoolQuantity_0" type="text" class="input_1" id="PerPoolQuantity_0" value="<%=arrRs(9 , 0)%>" size="6">
			个</td>
		<td class="td_content"><input name="PerPoolFlag_1" type="checkbox" id="PerPoolFlag_1" value="1" <%If arrRs(8 , 1) = "1" Then Response.Write("checked")%>>
容量
	<input name="PerPoolQuantity_1" type="text" class="input_1" id="PerPoolQuantity_1" value="<%=arrRs(9 , 1)%>" size="6">
	个</td>
		<td class="td_content"><input name="PerPoolFlag_2" type="checkbox" id="PerPoolFlag_2" value="1" <%If arrRs(8 , 2) = "1" Then Response.Write("checked")%>>
容量
	<input name="PerPoolQuantity_2" type="text" class="input_1" id="PerPoolQuantity_2" value="<%=arrRs(9 , 2)%>" size="6">
	个</td>
		<td class="td_content"><input name="PerPoolFlag_3" type="checkbox" id="PerPoolFlag_3" value="1" <%If arrRs(8 , 3) = "1" Then Response.Write("checked")%>>
容量
	<input name="PerPoolQuantity_3" type="text" class="input_1" id="PerPoolQuantity_3" value="<%=arrRs(9 , 3)%>" size="6">
	个</td>
		<td class="td_content"><input name="PerPoolFlag_4" type="checkbox" id="PerPoolFlag_4" value="1" <%If arrRs(8 , 4) = "1" Then Response.Write("checked")%>>
容量
	<input name="PerPoolQuantity_4" type="text" class="input_1" id="PerPoolQuantity_4" value="<%=arrRs(9 , 4)%>" size="6">
	个</td>
	</tr>
	<tr>
		<td height="23" class="td_content">面试邀请：</td>
		<td class="td_content"><input name="SendMsFlag_0" type="checkbox" id="SendMsFlag_0" value="1" <%If arrRs(10 , 0) = "1" Then Response.Write("checked")%>>
			容量
			<input name="SendMsQuantity_0" type="text" class="input_1" id="SendMsQuantity_0" value="<%=arrRs(11 , 0)%>" size="6"> 
			次</td>
		<td class="td_content"><input name="SendMsFlag_1" type="checkbox" id="SendMsFlag_1" value="1" <%If arrRs(10 , 1) = "1" Then Response.Write("checked")%>>
容量
	<input name="SendMsQuantity_1" type="text" class="input_1" id="SendMsQuantity_1" value="<%=arrRs(11 , 1)%>" size="6">
次</td>
		<td class="td_content"><input name="SendMsFlag_2" type="checkbox" id="SendMsFlag_2" value="1" <%If arrRs(10 , 2) = "1" Then Response.Write("checked")%>>
容量
	<input name="SendMsQuantity_2" type="text" class="input_1" id="SendMsQuantity_2" value="<%=arrRs(11 , 2)%>" size="6">
次</td>
		<td class="td_content"><input name="SendMsFlag_3" type="checkbox" id="SendMsFlag_3" value="1" <%If arrRs(10 , 3) = "1" Then Response.Write("checked")%>>
容量
	<input name="SendMsQuantity_3" type="text" class="input_1" id="SendMsQuantity_3" value="<%=arrRs(11 , 3)%>" size="6">
次</td>
		<td class="td_content"><input name="SendMsFlag_4" type="checkbox" id="SendMsFlag_4" value="1" <%If arrRs(10 , 4) = "1" Then Response.Write("checked")%>>
容量
	<input name="SendMsQuantity_4" type="text" class="input_1" id="SendMsQuantity_4" value="<%=arrRs(11 , 4)%>" size="6">
次</td>
	</tr>
	<tr>
		<td height="23" class="td_content">收件箱：</td>
		<td class="td_content"><input name="BoxFlag_0" type="checkbox" id="BoxFlag_0" value="1" <%If arrRs(12 , 0) = "1" Then Response.Write("checked")%>>
			可用</td>
		<td class="td_content"><input name="BoxFlag_1" type="checkbox" id="BoxFlag_1" value="1" <%If arrRs(12 , 1) = "1" Then Response.Write("checked")%>>
可用</td>
		<td class="td_content"><input name="BoxFlag_2" type="checkbox" id="BoxFlag_2" value="1" <%If arrRs(12 , 2) = "1" Then Response.Write("checked")%>>
可用</td>
		<td class="td_content"><input name="BoxFlag_3" type="checkbox" id="BoxFlag_3" value="1" <%If arrRs(12 , 3) = "1" Then Response.Write("checked")%>>
可用</td>
		<td class="td_content"><input name="BoxFlag_4" type="checkbox" id="BoxFlag_4" value="1" <%If arrRs(12 , 4) = "1" Then Response.Write("checked")%>>
可用</td>
	</tr>
	<tr>
		<td height="23" class="td_content">发件箱：</td>
		<td class="td_content"><input name="SendBoxFlag_0" type="checkbox" id="SendBoxFlag_0" value="1" <%If arrRs(13 , 0) = "1" Then Response.Write("checked")%>>
可用</td>
		<td class="td_content"><input name="SendBoxFlag_1" type="checkbox" id="SendBoxFlag_1" value="1" <%If arrRs(13 , 1) = "1" Then Response.Write("checked")%>>
可用</td>
		<td class="td_content"><input name="SendBoxFlag_2" type="checkbox" id="SendBoxFlag_2" value="1" <%If arrRs(13 , 2) = "1" Then Response.Write("checked")%>>
可用</td>
		<td class="td_content"><input name="SendBoxFlag_3" type="checkbox" id="SendBoxFlag_3" value="1" <%If arrRs(13 , 3) = "1" Then Response.Write("checked")%>>
可用</td>
		<td class="td_content"><input name="SendBoxFlag_4" type="checkbox" id="SendBoxFlag_4" value="1" <%If arrRs(13 , 4) = "1" Then Response.Write("checked")%>>
可用</td>
	</tr>
	<tr>
		<td height="23" colspan="6" align="center"><input name="Submit" type="submit" class="input_1" value="保存设置">
			&nbsp;
			<input name="Submit" type="reset" class="input_1" value="重新设置"></td>
		</tr>
</table>
</form>
</body>
</html>
