<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> <% Session.CodePage=65001 %> <% Response.charset = "utf-8" %> <% Set rs = Server.CreateObject("ADODB.Recordset") OpenID=trim(Request("OpenID")) Phone=trim(Request("Phone")) If OpenID<>"" Then sql="select ToUserID from weixinOpenID where OpenID='"&OpenID&"'" rs.open sql,objConn,1,1 if not rs.eof Then UserID=rs(0) sql="delete from weixinOpenID where ToUserID="&UserID objConn.Execute sql sql="delete from UserPhone where ToUserID="&UserID objConn.Execute sql sql="delete from Coupon where ToUserID="&UserID objConn.Execute sql sql="delete from UserInformation where ToUserID="&UserID objConn.Execute sql sql="update UserData set UserPhone=null,UserName=null,UserNickName=NUll,UserAvatarUrl=null where UserID="&UserID objConn.Execute sql End If rs.close() Response.Write "用户清除完成 "&now() ElseIf Phone<>"" Then sql="select ToUserID from UserPhone where strPhone='"&Phone&"'" rs.open sql,objConn,1,1 if not rs.eof Then UserID=rs(0) sql="delete from weixinOpenID where ToUserID="&UserID objConn.Execute sql sql="delete from UserPhone where ToUserID="&UserID objConn.Execute sql sql="delete from Coupon where ToUserID="&UserID objConn.Execute sql sql="delete from UserInformation where ToUserID="&UserID objConn.Execute sql sql="update UserData set UserPhone=null,UserName=null,UserNickName=NUll,UserAvatarUrl=null where UserID="&UserID objConn.Execute sql End If rs.close() Response.Write "手机用户清除完成 "&now() Else Response.Write "OpenID为空" End If %>