accountdetail.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="200" height=15 align=center bgcolor="efefef">报价单号</td>
    <td height="15" align=center>金额</td>
    <td height="15" align=center>状态</td>
    <td height="15" align=center>报价日期</td>
    <td height="15" align=center>报价人</td>
    <td height="15" align=center>批准人</td>
    <td height="15" align=center>批准日期</td>
    <td width="80" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin3('../quote/quotedetail.asp?quoteid=<%=rs1("quoteid")%>','报价','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("quoteno")%></a></td>
    <td align=center><%=formatnumber(rs1("totalamount"),2)%></td>
    <td align=center><%=rs1("status")%></td>
    <td align=center><%=rs1("quotedate")%></td>
    <td align=center><%=rs1("owner")%></td>
    <td align=center><%=rs1("approver")%></td>
    <td align=center><%=rs1("approvedate")%></td>
    <td align=center>
    <%if rs1("status")="初始" then%>
    <a href="javascript:opensubwin3('../quote/newquote.asp?id=<%=rs1("quoteid")%>&type=编辑','报价','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');">编辑</a> <a href="javascript:opensubwin3('../delete.asp?quoteid=<%=rs1("quoteid")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a>
    <%end if%>
    </td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>
<%
if Request.QueryString("type")="all" or Request.QueryString("type")="deal" then 
sql="select * from v_deal where accountid="&Request.QueryString("accountid")
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关销售机会</font></b></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../deal/newdeal.asp?accountid=<%=request("accountid")%>&accountname=<%=rs("account")%>&type=新建','销售机会','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a></td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="200" height=15 align=center bgcolor="efefef">主题</td>
    <td height="15" align=center>编号</td>
    <td height="15" align=center>金额</td>
    <td height="15" align=center>状态</td>
    <td height="15" align=center>开始日期</td>
    <td height="15" align=center>销售员</td>
    <td width="80" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin3('../deal/dealdetail.asp?dealid=<%=rs1("dealid")%>','销售机会','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("subject")%></a></td>
	<td align=center><%=rs1("deal")%></td>
    <td align=center><%=rs1("totalamount")%></td>
    <td align=center><%=rs1("status")%></td>
    <td align=center><%=rs1("opendate")%></td>
    <td align=center><%=rs1("owner")%></td>
    <td align=center><a href="javascript:opensubwin3('../deal/newdeal.asp?id=<%=rs1("dealid")%>&type=编辑','销售机会','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');">编辑</a> <a href="javascript:opensubwin3('../delete.asp?dealid=<%=rs1("dealid")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a></td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>

<%
if Request.QueryString("type")="all" or Request.QueryString("type")="event" then 
sql="select * from v_event where accountid="&Request.QueryString("accountid")
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关销售事件</font></b></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../event/newevent.asp?accountid=<%=request("accountid")%>','销售事件','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=650,height=500,top=100,left=100');"><img src="../images/button_new.gif" border="0"></a></td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="20%" height=15 align=center bgcolor="efefef">主题</td>
    <td width="15%" height="15" align=center>类型</td>
    <td width="8%" height="15" align=center>用户</td>
    <td width="10%" height="15" align=center>日期</td>
    <td width="10%" height="15" align=center>时间</td>
    <td height="15" align=center>地点</td>
	 <td width="10%" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin3('../event/eventdetail.asp?eventid=<%=rs1("id")%>','销售事件','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("subject")%></a></td>
	<td align=center><%=rs1("eventtype")%></td>
    <td align=center><%=rs1("eventuser")%></td>
    <td align=center><%=rs1("eventdate")%></td>
    <td align=center><%=rs1("eventtime")%></td>
    <td align=center><%=rs1("address")%></td>
    <td align=center><a href="javascript:opensubwin3('../event/newevent.asp?id=<%=rs1("id")%>&type=编辑','销售事件','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=650,height=500,top=100,left=100');">编辑</a> <a href="javascript:opensubwin3('../delete.asp?eventid=<%=rs1("id")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a></td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>

<%
if Request.QueryString("type")="all" or Request.QueryString("type")="schedule" then 
sql="select * from v_schedule where accountid="&Request.QueryString("accountid")
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关工作日程</font></b></strong></td>
    <td width="88%"><!--<a href="javascript:opensubwin3('../calendar/newevent.asp?accountid=<%=request("accountid")%>&accountname=<%=rs("account")%>&type=新建','销售事件','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a>--></td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="200" height=15 align=center bgcolor="efefef">主题</td>
    <td height="15" align=center>待做者</td>
    <td height="15" align=center>日期</td>
    <td height="15" align=center>时间</td>
    <td height="15" align=center>地点</td>
      <td height="15" align=center>完成</td>
    <td width="80" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin3('../calendar/scheduleview.asp?id=<%=rs1("id")%>','工作日程','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("schedule")%></a></td>
	<td align=center><%=rs1("assignedto")%></td>
    <td align=center><%=rs1("scheduledate")%></td>
    <td align=center><%=rs1("scheduletime")%></td>
    <td align=center><%=rs1("location")%></td>
    <td align=center><%=rs1("closed")%></td>
    <td align=center><!--<a href="javascript:opensubwin3('../calendar/newevent.asp?id=<%=rs1("id")%>&type=编辑','工作日程','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');">编辑</a>--> <a href="javascript:opensubwin3('../delete.asp?scheduleid=<%=rs1("id")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a></td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>

<%
if Request.QueryString("type")="all" or Request.QueryString("type")="expense" then 
sql="select * from v_expense where accountid="&Request.QueryString("accountid")&" and sysaccountid="&sysid
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2"><b>相关费用</b></font></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../expense/newexpense.asp?accountid=<%=request("accountid")%>&accountname=<%=rs("account")%>&type=新建','费用','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a></td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="200" height=15 align=center bgcolor="efefef">费用编号</td>
    <td height="15" align=center>名称</td>
    <td height="15" align=center>金额</td>
    <td height="15" align=center>状态</td>
    <td height="15" align=center>用户</td>
    <td width="80" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin3('../expense/expensedetail.asp?expenseid=<%=rs1("expenseid")%>','费用','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("expenseno")%></a></td>
    <td align=center><%=rs1("subject")%></td>
    <td align=center><%=rs1("totalamount")%></td>
    <td align=center><%=rs1("status")%></td>
    <td align=center><%=rs1("owner")%></td>
    <td align=center><a href="javascript:opensubwin3('../expense/newexpense.asp?id=<%=rs1("expenseid")%>&type=编辑','费用','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');">编辑</a> <a href="javascript:opensubwin3('../delete.asp?expenseid=<%=rs1("expenseid")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a></td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>
<%
if Request.QueryString("type")="all" or Request.QueryString("type")="share" then 
set rs1=conn.execute("select * from v_AccountShare where accountid="&Request.QueryString("accountid"))
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关共享</font></strong></td>
    <td width="88%">
    <%if rs("ownerid")=session("loginid") then%>
    <a href="javascript:opensubwin3('../account/newaccountshare.asp?accountid=<%=request("accountid")%>&accountname=<%=rs("account")%>&type=新建','共享客户','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a>
    <%end if%>
    </td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="200" height=15 align=center bgcolor="efefef">共享给</td>
    <td height="15" align=center>共享人</td>
    <td height="15" align=center>共享日期</td>
    <td height="15" align=center>共享权限</td>
    <td width="80" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><%=rs1("username")%></td>
    <td align=center><%=rs1("shareusername")%></td>
    <td align=center><%=rs1("sharedate")%></td>
    <td align=center><%if rs1("edit") then Response.Write "可修改" else Response.Write "只读"%></td>
    <td align=center>
      <%if rs("ownerid")=session("loginid") then%>
      <a href="javascript:opensubwin3('../delete.asp?AccountShareid=<%=rs1("id")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a>
      <%end if%>
      </td>
  </tr>
  <%
  i=i+1
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>
<%
  set rs1=nothing
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing

set objcheck=nothing
  %>
</body>
</html>