Add existing code files

克樊道人

2024-12-02 61ce8cc6883e5f94e6470141df3484167caf31ed

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>  
<% Session.CodePage=65001 %>  
<% Response.charset = "utf-8" %> 
<!--#include virtual="/inc/odbc.asp"--> 
<!--#include virtual="/inc/function.asp"--> 
<!--#include virtual="/inc/core.asp"--> 
<meta http-equiv="Content-Type" content="text/html;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 
%>