三方整合动易后台删除用户不能同步的临时解决方法

Posted on 2006-08-01 by 小李刀刀

问题描述：整合成功后，在动易后台删除用户时另外两个系统不能同步。而其它所有操作都已正常。

临时方案：修改动网和oblog的接口解决。

动网的修改：

打开动网论坛根目录下的dv_dpo.asp文件，找到147行左右的

D_Users = Split(UserName,",")

修改为：

If Left(UserName,1) = "," Then UserName = Right(UserName,Len(UserName)-1)D_Users = Split(UserName,",")

Oblog的修改：

打开Oblog的/API/oblogresponse.asp文件，289-336行左右，找到下面两个函数，在每个函数体的第一行增加红色代码：

修改前
[codes=VB]Sub DelUser()
    Dim rs,i
    If UserName="" Then
        ErrMsg= ("用户名不能为空(不能大于14小于4)！")
        FoundErr=True
        Exit Sub
    End If
    If InStr(UserName,",")>0 Then
        UserName=Split(UserName,",")
        For i=0 To UBound(UserName)
            deloneuser(UserName(i))
        Next
    Else
        deloneuser(UserName)
    End If
End Sub
'同上
Sub Deloneuser(UserName)
    If UserName="" Then
        ErrMsg=("用户名不能为空！")
        FoundErr=True
        Exit Sub
    End If
    Dim rs,fso,f,uname,udir,userid
    Set rs=oblog.execute("select user_dir,UserName,user_folder,userid from oblog_user where UserName='" & UserName & "'")
    If Not rs.eof Then
        udir=rs(0)
        uname=rs(1)
        userid=rs(3)
        Set fso=server.createobject("scripting.filesystemobject")
        If fso.FolderExists(server.MapPath(blogdir & udir&"/"&rs("user_folder"))) then
            Set f = fso.GetFolder(server.MapPath(blogdir & udir&"/"&rs("user_folder")))
            f.delete True
        End If
        Set f=Nothing
        Set fso=Nothing
        oblog.execute("delete from oblog_log where userid="&userid)
        oblog.execute("delete from oblog_comment where userid="&userid)
        oblog.execute("delete from oblog_message where userid="&userid)
        oblog.execute("delete from oblog_subject where userid="&userid)
        oblog.execute("delete from oblog_user where userid=" & userid)
        oblog.execute("delete from oblog_upfile where userid=" & userid)
        oblog.execute("delete from oblog_friend where userid=" & userid)
        oblog.execute("update oblog_pm set dels=1 where sender='" &UserName&"'")
    End If
    Set rs=Nothing
End Sub[/codes]

 

修改后
[codes=VB]Sub DelUser()
    If Left(UserName,1) = "," Then UserName = Right(UserName,Len(UserName)-1)
    Dim rs,i
    If UserName="" Then
        ErrMsg= ("用户名不能为空(不能大于14小于4)！")
        FoundErr=True
        Exit Sub
    End If
    If InStr(UserName,",")>0 Then
        UserName=Split(UserName,",")
        For i=0 To UBound(UserName)
            deloneuser(UserName(i))
        Next
    Else
        deloneuser(UserName)
    End If
End Sub
'同上
Sub Deloneuser(UserName)
    If Left(UserName,1) = "," Then UserName = Right(UserName,Len(UserName)-1)
    If UserName="" Then
        ErrMsg=("用户名不能为空！")
        FoundErr=True
        Exit Sub
    End If
    Dim rs,fso,f,uname,udir,userid
    Set rs=oblog.execute("select user_dir,UserName,user_folder,userid from oblog_user where UserName='" & UserName & "'")
    If Not rs.eof Then
        udir=rs(0)
        uname=rs(1)
        userid=rs(3)
        Set fso=server.createobject("scripting.filesystemobject")
        If fso.FolderExists(server.MapPath(blogdir & udir&"/"&rs("user_folder"))) then
            Set f = fso.GetFolder(server.MapPath(blogdir & udir&"/"&rs("user_folder")))
            f.delete True
        End If
        Set f=Nothing
        Set fso=Nothing
        oblog.execute("delete from oblog_log where userid="&userid)
        oblog.execute("delete from oblog_comment where userid="&userid)
        oblog.execute("delete from oblog_message where userid="&userid)
        oblog.execute("delete from oblog_subject where userid="&userid)
        oblog.execute("delete from oblog_user where userid=" & userid)
        oblog.execute("delete from oblog_upfile where userid=" & userid)
        oblog.execute("delete from oblog_friend where userid=" & userid)
        oblog.execute("update oblog_pm set dels=1 where sender='" &UserName&"'")
    End If
    Set rs=Nothing
End Sub[/codes]

About 小李刀刀

网页重构/前端开发人员，目前就职于腾讯科技互联网用户体验设计中心（Tencent ISUX）。
This entry was posted in 所谓技术 and tagged . Bookmark the permalink.

12 Responses to "三方整合动易后台删除用户不能同步的临时解决方法"

  • By popoljz 2007-04-08 - 15:44

    刀刀
    我怎么都整合不好
    要不就是显示 服务起无法响应
    要不就是数据库不能同步

    还有为什么。我下载的官方免费版的动易跟动网

    网上的说的很多程序我这都没有捏

    就是针对修改服务器无法响应的那些文件

    还有我想整合动易动网跟风月同学录大学版，具体怎么弄

    你能不能给我传个具体的方法。。。跟接口文件

    我实在是心力交瘁啦

    我QQ：748456345 邮箱：qql5717@163.com

    你或者直接在这发连接也行

    我还有就是 有时在动易注册不了

    Reply
  • By xiaoye 2007-03-26 - 01:22

    我安装的是动易SP5和动网7，为什么修改了源代码后仍然不能同步呢？

    Reply
  • By 小李刀刀 2006-10-22 - 03:29

    [quote=墙外行人]如何才能让,管理后台时,只需登陆一次,

    现在如果从动易后台管理进入博客管理还要重新输入博客的后台密码.[/quote]

    不能。

    Reply
  • By 墙外行人 2006-10-21 - 02:09

    如何才能让,管理后台时,只需登陆一次,

    现在如果从动易后台管理进入博客管理还要重新输入博客的后台密码.

    Reply
  • By 小李刀刀 2006-09-08 - 21:00

    [quote=不明白，是不是改的有问题啊] 引用内容
    If Left(UserName,1) = "," Then UserName = Right(UserName,Len(UserName)-1)

    直接加上这句后不要加　　end if　吗？[/quote]

    不需要，但是别换行哦

    Reply
  • By 不明白，是不是改的有问题啊 2006-09-08 - 01:42

    [quote]If Left(UserName,1) = "," Then UserName = Right(UserName,Len(UserName)-1)[/quote]

    直接加上这句后不要加　　end if　吗？

    Reply
  • By Sundj 2006-08-16 - 19:03

    看刀刀照片还是比较有意思，刀刀总是绷着脸耍酷，呵呵[f19]

    Reply
  • By Sundj 2006-08-16 - 18:58

    刀刀还是很辛苦，一个逗号，也需要找好久吧[f02]

    Reply
  • By 小李刀刀 2006-08-13 - 06:03

    [quote=聆听]刀刀．为什么我按照你的方法修改后．还是不行了．　我在动易后台删除用户后．　动网后台里依然还是存在．[/quote]

    用Oblog的来和动易试试看。

    Reply
  • By 聆听 2006-08-05 - 22:10

    刀刀．为什么我按照你的方法修改后．还是不行了．　我在动易后台删除用户后．　动网后台里依然还是存在．

    Reply
  • By suie 2006-08-02 - 04:42

    终于等到刀刀的解决方法！谢谢！

    Reply
  • By yeyezai 2006-08-01 - 23:56

    一直还在动易开发啊～
    真是辛苦了～
    刚才回复中的提问无效了

    Reply

Leave a reply