用 户 激 活-By ActCMS.com

<% Dim UserName:UserName=ACTCMS.RSQL(ACTCMS.S("UserName")) Dim CheckNum:CheckNum=ACTCMS.S("CheckNum") If ACTCMS.S("Flag")="Check" Then Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET") RS.Open "Select CheckNum,GroupID,UserName From User_Act Where UserName='" & UserName & "'",Conn,1,3 If RS.Eof And RS.Bof Then rs.close:set rs=nothing Response.Write "
":response.end else if rs("checknum")=checknum then rs("groupid")=3 rs.update Response.Write "
":response.end else rs.close:set rs=nothing Response.Write "
":response.end end if end if rs.close:set rs=nothing End If %>

用 户 激 活
您的用户名： |
您的激活码： |