 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="../head.asp"-->
<link href="COAD.css" rel="stylesheet" type="text/css">
<table width="100%" height="81" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>

<TABLE width="783"   border=0 align="center" cellPadding=0 cellSpacing=0 >
<tr><td><table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td>&nbsp;</td>
    </tr>
  </table></td></tr>
    <td height="35" align="center" bgcolor="#EFEFEF" style="word-break:break-all" >欢迎&nbsp;<%=username%>&nbsp;<font color="#000000"><b>请选择会员升级类型</b></font>：
      </td>
</tr><tr><td height="1" bgcolor="#CCCCCC"></td></tr><br />
<tr> <form name="form" method="post" action="websentj.asp">
<input type="hidden" name="yy" id="" value="<%=username%>">
  <td height="68" align="center" style=" text-align:center"><input type="radio" style="display:none"  name="dengji" />
    <%
  if username="" then
Response.write("<script >alert('对不起！参数传递错误！');window.location.href='"&HOPE_InstallDir&"member/err.asp';</script>")
response.End()
end if	

         
	 set rss=server.CreateObject("adodb.recordset")
sq="select * from websen_corporation where [User]='"&username&"'"
rss.open sq,conn,1,1
leixing=rss("leixing")
dengji1=rss("gradeid")
rss.close
set rsg=server.CreateObject("adodb.recordset")
sg="select gradename from websen_vipgrade where roleid="&dengji1
rsg.open sg,conn,1,1
gradename=rsg("gradename")
roleid=rsg("roleid")

response.Write "您现在是<font color='#FF0000'>"&gradename&"</font>会员"
rsg.close

	dim ll
	ll=trim(request.Form("dengji"))
	ll=trim(request("dengji"))
	gg=trim(request.Form("dengji"))

	response.Write gg
	if issession=0 then
 	username=Replace_Text(request.Cookies("Yxmember"))
 	else
 	username=session("user")
 	end if
	
iscanreg=true
set rsdj=server.CreateObject("adodb.recordset")
sqldj="select * from Websen_vipgrade  where allowreg=1 order by roleid desc  " 
rsdj.open sqldj,conn,1,1
if rsdj.eof then 
iscanreg=false
response.Write("&nbsp;&nbsp;温馨提示：<font color=red>对不起！当前没有任何等级提供选者！</font>(如果需要帮助请与网站管理员联系！谢谢您的支持！)")
 end if
 if not rsdj.eof  then 
  denjisort=1
 
 do while not rsdj.eof

 %>
             <%if dengji1=1  then
	response.Write "<input type='radio' name='dengji' id='dengji'    maxlength='20' disabled='disabled' />"
			 else
			 %>
			 
          <% if leixing=1 then%>
    <input type="radio" name="dengji" id="dengji"   value="<%=rsdj("id")%>" maxlength="20" disabled="disabled" />
	   <%else%>
	   <input type="radio" name="dengji" id="dengji"   value="<%=rsdj("id")%>" maxlength="20"  />
	   <%end if
	   end if
	   %>
    <a href="quanxian.asp?rid=<%=rsdj("id")%>"><%=rsdj("gradename")%></a>&nbsp;&nbsp;
	
    <%

	
 denjisort=denjisort+1
 if denjisort mod 7=0 then 
 response.Write("<br><br> ")
 end if
 rsdj.movenext 
 loop
 rsdj.close
 end if

%>

</td> 

<tr><td bgcolor="#F6F6F6" height="2" align="center"><br>
<% if dengji1=1 then 
response.Write "你已经是最高会员"
else
%>
<% if leixing=1   then%>
<input type="submit"   value="等待审核..."   disabled="disabled"/>
<%else%>
<input type="submit"   value="提交"/>
<%end if
end if
%>

</form></td></tr>
</TABLE>
 <!--#include file="../checkrole.asp"-->