<% userPageRights="{member}" %>
<!--#include file="check.asp"-->

<%
'Define Variable 
dim i
dim rs,rst
dim mTypeName,mGrade,mSql,mFlag,mBgColor
m_modifyid=Request.QueryString("ModifyID")

if m_modifyid="" or IsNumeric(m_modifyid)=false then
 Call Msgbox("对不起，ID号错误！",1)
 Response.end
 end if
 
set rs_a=server.createobject("adodb.recordset")
sql_a="select f_manage_username from t_club where F_id="&m_modifyid
rs_a.open sql_a,conn
if not rs_a.eof then
m_manage=rs_a("f_manage_username")
else
 Call Msgbox("俱乐部已经不存在！",1)
 Response.end
end if
rs_a.close
set rs_a=nothing

	mSql = "Select F_ID,F_UserName,F_Password,F_RealName,F_Email,F_Tel,f_grade,F_Mobile,F_WebSite,F_Address from T_Member Where F_IsCheck=1 and F_UserName='" & m_manage & "'"
    Set rs = conn.Execute(mSql)

	if rs.bof and rs.eof then
        rs.Close
	   CloseDatabase()
	   call Msgbox("对不起，不存在该用户名，或该用户名已被锁定.需管理员审核！",1)
       Response.end
	 else
	 	Response.Cookies("aspxnet")("UserCookies") ="0"
	     Response.Cookies("aspxnet")("RandNumber") = "i9sHflS2fAj883"
		  
          Session("CurUserID") = rs("F_ID")

          Session("CurUserName") = rs("F_UserName")
          Session("Curgrade") =rs("f_grade")
	    
		Response.Redirect "../member/club_viewsub.asp?id="&m_modifyid
	 end if




 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
%>