<%@ Language=VBScript %>
<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>

<%set rs=server.CreateObject ("ADODB.recordset")
 sql="select * from my_system where system_id=1"
 rs.Open sql,conn1,2,3

	rs("affiliate_selected")=Request("affiliate_selected")
	rs("affiliate_visit_value")=FormatNumber(Request("affiliate_visit_value"),2,-1)
	rs("affiliate_join_value")=FormatNumber(Request("affiliate_join_value"),2,-1)
	rs("affiliate_join_vip")=FormatNumber(Request("affiliate_join_vip"),2,-1)
	rs.Update 

Response.Redirect "affiliate_manage.asp"
%>