<%
IF Request("ck") = 1238907654 Then
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM member Where mem_num = '"&Request("mem_num")&"'"
rs.Open SQL,connCon,1,3
rs("mem_check") = "已審核"
rs("mem_uptime") = now()
rs.update
rs.close
Set rs = nothing
Else
Call Alert("確認錯誤，請您重新到信箱點選確認信，或是聯絡客服人員","//"&Session("SERVER_NAME")&"",0)
End IF
%>
註冊帳號確認 | <%=Session("SERVER_NAME")%>