<!--#include file="conn.asp"-->
<%
Dim UserName,sql,rs,JFM
username=trim(Request.QueryString("username"))

call FTBBS_HTML_MB
If username="" then
   response.redirect "default.asp"
Else
    JFM=trim(Request.QueryString("jfm"))
    sql="select JFM,jfmsign from clubuser where clubuser_name='"&UserName&"' "
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open sql,conn,1,3
    if rs.BOF and rs.EOF then
        Response.Write "<br><br><center><li>没有找到这个用户</li></center><br><br><br>"
    else
        if rs("JFM")=JFM and rs("payuser")=3 then
            rs("jfmsign")=0
            rs.Update
            Response.Write "<br><br><br><li>激活成功</li>"
            Response.Write "<li><a href=""default.asp"" jfmsign>返回首页</a></li>"
        else
            Response.Write "<br><br><center><li>你的激活参数有误或帐号已经激活</li></center><br><br><br>"
        end if
    end if
    rs.Close
    set rs=nothing
End If
closedb
%>