<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
 <!--#include file="../head.asp"-->
  <%
  
dengji=request("dengji")
if dengji="" then
response.Write("<script >alert('请选者你要升级会员类型！');history.back(-1);</script>")
end if
yy=request("yy")
set rs=server.CreateObject("adodb.recordset")
sq1="select roleid,gradename from Websen_vipgrade  where id="&dengji
rs.open sq1,conn,1,1
 roleid=rs("roleid")
 gradename=rs("gradename")
 'response.Write gradename
 rs.close
 set rss=server.CreateObject("adodb.recordset")
sq="select * from websen_corporation where [User]='"&yy&"'"
rss.open sq,conn,1,3
gradeid=rss("gradeid")
if roleid=gradeid then
response.Write("<script >alert('不能选者同类会员升级！');history.back(-1);</script>")
else
rss("Demand")=gradename
rss("sqdate")=now()
rss("leixing")=1
rss.update
response.Write("<script >alert('会员升级数据提交成功！等待审核！');window.location='dengji.asp';</script>")

rss.close
end if
%>


