save_movefriend.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("sh") 
	  
	    Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"

if Not ChkPost then 
		response.write "<script language='javascript'>"
		response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
		response.end
end if

 
%>

<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD 
    style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle>
      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="6%"><IMG height=32 src="../images/myfriend.gif" 
            border=0></TD>
              <TD width="94%" background="../images/info_bg.gif">&nbsp;</TD>
      </TR></TBODY></TABLE>

<%
if not isempty(request.form("selected_friend_id")) then
secuserlist=replace_text(request.form("selected_friend_id"))
flag=replace_text(request.form("flag"))

if flag=0 then
group_id_mv=replace_text(request.form("group_id_mv"))

if instr(secuserlist,",")>0 then
secuserArr=split(secuserlist,",")
for i = 0 to ubound(secuserarr)
secuser=secuserarr(i)
secuser=trim(secuser)
secuser=replace(replace(replace(secuser,"-1+",""),"0+",""),"1+","")
call movemyfriend(secuser)
next
else
secuser=replace(replace(replace(secuserlist,"-1+",""),"0+",""),"1+","")
call movemyfriend(secuser)
end if

elseif flag=1 then

group_id_cp=replace_text(request.form("group_id_cp"))

if instr(secuserlist,",")>0 then
secuserArr=split(secuserlist,",")
for i = 0 to ubound(secuserarr)
secuser=secuserarr(i)
secuser=trim(secuser)
secuser=replace(replace(replace(secuser,"-1+",""),"0+",""),"1+","")
call copymyfriend(secuser)
next
else
secuser=replace(replace(replace(secuserlist,"-1+",""),"0+",""),"1+","")
call copymyfriend(secuser)
end if

end if




sub movemyfriend(secuser)
dim rs,sql
sql="update Yixiang_memberRelation set relation="&group_id_mv&" where [user]='"&session("user")&"' and secuser='"&secuser&"'"
conn.execute(sql)
End sub

sub copymyfriend(secuser)
dim rs,sql
sql="select relation from Yixiang_memberRelation where [user]='"&session("user")&"' and secuser='"&secuser&"'"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs("relation")<>-1 then
sql="select id from Yixiang_memberRelation where [user]='"&session("user")&"' and secuser='"&secuser&"' and relation="&group_id_cp&""
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof or rs.bof then
conn.execute("Insert into Yixiang_memberRelation([user],secuser,relation) values('"&session("user")&"','"&secuser&"',"&group_id_cp&")")
end if
end if
rs.close
set rs=nothing
End sub
%>


<TABLE cellSpacing=0 cellPadding=0 width=100% 
border=0>
        <TBODY>
        <TR>
          <TD align=middle><BR><BR>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
              <TD class=M>恭喜您！转移/复制商业伙伴成功！</TD></TR></TBODY></TABLE><BR>
            

<br>
<TABLE class=bdr3 cellSpacing=0 cellPadding=0 width=100% 
              border=0>
  <TBODY>
              <TR>
                <TD class=tbg1>现在您可以：</TD></TR>
              <TR>
                <TD class=lh15>
                  <UL>
                    <TABLE cellSpacing=0 cellPadding=9 width="95%" border=0>
                      <TBODY>
                      <TR>
                        <TD class=C>
                          <LI><A 
                          href="addfriend_new.asp">再增加一个商业伙伴</A></LI></TD>
                        <TD class=C>
              <LI><A 
                          href="index.asp">回到“我的商业伙伴”</A></LI></TD></TR></TBODY></TABLE></UL></TD></TR></TBODY></TABLE> </TD>
      </TR></TBODY></TABLE>
<%
else
response.write"亲爱的会员，请选择要转移/复制的商业伙伴!<a href='index.asp'>返回</a>"
end if
conn.close
set conn=nothing
%>
</TABLE>