index.asp

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

<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("sh")
	 %>
<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>
      <BR>
      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="115"><IMG height=32 src="../images/myfriend.gif" 
            border=0></TD>
              <TD width="663" background="../images/info_bg.gif">&nbsp;</TD>
        </TR></TBODY></TABLE>


<TABLE class=content_border cellSpacing=0 cellPadding=0 width=100% 
border=0>
        <TBODY>
        <TR>
          <TD align=middle><BR>



            <SCRIPT language=JavaScript>
function delfriendclick()
{
	var count = 0;
	for (var i = 0; i < document.mypartnerlist.elements.length; i++){
	    	var field = document.mypartnerlist.elements[i];
	    	var element_name = field.name;
	    	if (element_name == "selected_friend_id"){
	    			if (field.checked ) count++;
		}
	}
	if (count == 0){
		alert("亲爱的会员，请选择您需要删除的商业伙伴！");
		return false;
	}
	var temp=window.confirm("亲爱的会员，被删除的商业伙伴将无法恢复，您确认要删除选择的商业伙伴吗？" );
	if(temp==false){
		//return true;
	//else
		return false;
	}
	document.mypartnerlist.action="delfriend.asp"; 
    document.mypartnerlist.submit();
}


function selectall()
{
    document.mypartnerlist.all.checked = document.mypartnerlist.all.checked|0;

    for (var i = 0; i < document.mypartnerlist.elements.length; i++){
    	var field = document.mypartnerlist.elements[i];
    	var str = field.name.substring(0,5);

    	if (str == "group" ){
    		field.checked=document.mypartnerlist.all.checked;
    	}
    	//选成员
    	var element_name = field.name;
    	if (element_name == "selected_friend_id"){
    		str = field.value.substring(0,2);

    //		if (str != "-1"){
    			field.checked=document.mypartnerlist.all.checked;
    //		}
    	}
    }

}


function selectgroupall(groupname)
{
    groupname.checked = groupname.checked|0;
    var groupid = groupname.value
    for (var i = 0; i < document.mypartnerlist.elements.length; i++){
    	var field = document.mypartnerlist.elements[i];
    	var length;
    	length = groupid.length;
    	if (field.name == "selected_friend_id"){
	    	var str = field.value.substring(0,length);
	    	if (str == groupid){
	    		field.checked=groupname.checked;
	    	}
	 }
    }
}



function dosendmessage(){
	var count = 0;
	for (var i = 0; i < document.mypartnerlist.elements.length; i++){
	    	var field = document.mypartnerlist.elements[i];
	    	var element_name = field.name;
	    	if (element_name == "selected_friend_id"){
	    			if (field.checked ) count++;
		}
	}

	if (count == 0){
    		 alert("亲爱的会员，请选择您要发送留言的对象!");
    		 return false;
    	}
    	if (count > 1 ){
    		alert("亲爱的会员，我们暂时不支持群发留言的功能，请只选择一个您要发送留言的对象!");
    		return false;
    	}
    document.mypartnerlist.action="../getprice/sendnewmessage.asp"; 
    document.mypartnerlist.submit(); 

}

function domovefriend(){
	var count = 0;
	for (var i = 0; i < document.mypartnerlist.elements.length; i++){
	    	var field = document.mypartnerlist.elements[i];
	    	var element_name = field.name;
	    	if (element_name == "selected_friend_id"){
	    			if (field.checked ) count++;
		}
	}

    	if (count == 0){
    		 alert("亲爱的会员，请先选择要移动/复制到其他组的商业伙伴!");
    		 return false;
    	}

    document.mypartnerlist.action="movefriend.asp"; 
    document.mypartnerlist.submit();
}

function addvisitorinfo(id_value){
	document.formlink.myfriend_id.value=id_value;
	document.formlink.submit();
}

function hve_display(t_id,i_id){//显示隐藏程序

	//var t_id;//表格id
	//var i_id;//图片id
	var on_img="on.gif";//打开时图片
	var off_img="off.gif";//隐藏时图片
		if (t_id.style.display == "none") {//如果为隐藏状态
		t_id.style.display="";//切换为显示状态
		i_id.src="../images/groupfo.gif";}//换图
	else{//否则
		t_id.style.display="none";//切换为隐藏状态
		i_id.src="../images/groupex.gif";}//换图
}

function Hve_Display(t_id){//显示隐藏程序
	var t_id;
		if (t_id.style.display == "none") {//如果为隐藏状态
		t_id.style.display="";//切换为显示状态
		}//换图
	else{//否则
		t_id.style.display="none";//切换为隐藏状态
		}//换图
}

</SCRIPT>

            <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
              <TBODY>
              <TR>
                      <TD align=right><A 
                  href="addfriend_new.asp"><IMG 
                  height=26 src="../images/addnewpartner.gif" width=97 
                  border=0></A></TD>
                  </TR></TBODY></TABLE><BR>
            <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
              <TBODY>
              <TR>
                <TD class=tbg1>现有商业伙伴：</TD></TR></TBODY></TABLE>
            <FORM style="MARGIN-TOP: 8px" name=mypartnerlist action="" method=post>
            <IMG height=8 src="../images/shim(1).gif" width=1><BR>
            <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
              <TBODY>
              <TR>
                <TD bgColor=#eeeeee>
                  <TABLE cellSpacing=1 cellPadding=1 width="100%" border=0>
                    
                    <TR>
                      <TD width="90%" bgColor=#e6e6e6>
                        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD width="5%">
							<%
							set rs=Server.CreateObject("Adodb.RecordSet")
								Sql="select Yixiang_memberRelation.[user] as MemUser,Yixiang_memberRelation.secuser,Yixiang_memberRelation.relation,Yixiang_memberRelation.addtime,wygkcn_corporation.* from Yixiang_memberRelation,wygkcn_corporation where Yixiang_memberRelation.relation=0 and Yixiang_memberRelation.[user]='"&session("user")&"' and wygkcn_corporation.[user]=Yixiang_memberRelation.secuser order by Yixiang_memberRelation.id desc"
								Rs.Open Sql,Conn,1,3
							%>
							<INPUT 
                              onclick=selectgroupall(this.form.group0) 
                              type=checkbox value=0 name=group0> </TD>
                            <TD class=M style="CURSOR: hand" 
                            onclick=javascript:hve_display(table1754891,image1754891)><IMG 
                              src="../images/groupex.gif" border=0 
                              name=image1754891> <U><FONT 
                              color=#000000>我的供应商(<span style="color:red;">共<%=Rs.Recordcount%>位</span>)</FONT></U> 
</TD></TR></TBODY></TABLE></TD>
                                <TD align=middle width="5%" bgColor=#e6e6e6>&nbsp;</TD>
                      <TD align=middle width="5%" bgColor=#e6e6e6>&nbsp;</TD></TR>
                    <TBODY id=table1754891 style="DISPLAY: none">
					<%
										if rs.eof or rs.bof then
					response.write"<TR>"
                    response.write"<TD style='PADDING-LEFT: 28px' bgColor=#ffffff colSpan=3 height=28>"
                    response.write"<DIV id=nav>该组下无成员</DIV></TD></TR>"
					else
					do while not rs.eof
					%>
                    <TR>
                      <TD style="PADDING-LEFT: 28px" bgColor=#ffffff colSpan=3 
                      height=28>
                        <DIV id=nav><INPUT type=checkbox value=0+<%=rs("secuser")%> 
                        name=selected_friend_id> 
 						
						<%