movefriend.asp

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

<!--#include file="../head.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <!--#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%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="content_border">
		<tr> 
		<td align="center"><br>

<script language="JavaScript">
function groupCheck() {
	if(document.form.flag[0].checked){
          	document.all.mv.style.display = "";
          	document.all.cp.style.display = "none"
    	}
    	else if(document.form.flag[1].checked){
    		document.all.mv.style.display = "none";
          	document.all.cp.style.display = "";
    	}
}
</script>

<br>
<table class="fbg1" width="100%">
	<tbody>
	<tr>
		<td width="523">把商业伙伴转移/复制到其他组</td>
	</tr>
	</tbody>
</table>

<table width="100%" border="0" cellPadding="3" cellSpacing="6">
<form name = "form" method="POST" action="save_movefriend.asp">
	<input type="hidden" name="selected_friend_id" value="<%=request.form("selected_friend_id")%>">
	<tbody>
	<tr><td width="29%">将 
<%
secuserlist=replace_text(request.form("selected_friend_id"))
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+","")
response.write secuser
next
else
secuser=replace(replace(replace(secuserlist,"-1+",""),"0+",""),"1+","")
response.write secuser
end if
%></td></tr>
	<tr>
		<td><input type="radio"  name="flag" value="0" onClick="groupCheck()">转移
		<input type="radio" value="1" name="flag" onClick="groupCheck()">复制 到
		<div id="mv" style="display">
		<select size="1" name="group_id_mv">
			<option value="0">我的供应商</option>
			<option value="1">我的采购商</option>
			<option value="-1">黑名单</option>					
		</select>
		</div>
		<div id="cp" style="display">
		<select size="1" name="group_id_cp">
			<option value="0">我的供应商</option>
			<option value="1">我的采购商</option>												        						        						
		</select>
		</div>
		</td>

	</tr>
	<tr align="center">
		<td align="center">
		<p>
	  		<INPUT type=submit value="提  交">
		</p>
		</td>
	</tr>
	</tbody>
</form>
<script language="JavaScript">
	document.form.flag[0].click();
groupCheck();
</script>
</table>
<br>
		</td>
		</tr>
	  </table>
<%
else
response.write"亲爱的会员，请选择要转移/复制的商业伙伴!<a href='index.asp'>返回</a>"
end if
conn.close
set conn=nothing
%>
</TABLE>