dealdetail.asp

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

		
		if Request.QueryString("dealstage")="" then 
		    'if strdefdealstagename=rsq("name") then
		    if rs("dealstagename")=rsq("name") then
				Response.Write "<td height=18 align=center valign=center bgcolor='#FB0802'><font color='#ffffff'>"&rsq("name")&"</font></td>"
			else
				Response.Write "<td height=18 align=center valign=center bgcolor='#4A699C'><a href=dealdetail.asp?dealstage="&rsq("name")&"&dealstageid="&rsq("dealstage")&"&dealid="&Request.QueryString("dealid")&"><font color='#FFFFFF'>"&rsq("name")&"</font></a></td>"
			end if
		else
		    if Request.QueryString("dealstage")=rsq("name") then
				Response.Write "<td height=18 align=center valign=center bgcolor='#FB0802'><font color='#ffffff'>"&rsq("name")&"</font></td>"
			else
				Response.Write "<td height=18 align=center valign=center bgcolor='#4A699C'><a href=dealdetail.asp?dealstage="&rsq("name")&"&dealstageid="&rsq("dealstage")&"&dealid="&Request.QueryString("dealid")&"><font color='#FFFFFF'>"&rsq("name")&"</font></a></td>"
			end if
		end if
			if j mod 12=0 then Response.Write "</tr><tr  bgcolor='#4A699C'>"
		rsq.MoveNext
		j=j+1
		loop
			if Request.QueryString("dealstage")="all" then
				Response.Write "<td height=18 align=center valign=center bgcolor='#FB0802'><font color='#ffffff'>所有</font></td>"
			else
				Response.Write "<td height=18 align=center valign=center bgcolor='#4A699C'><a href=dealdetail.asp?dealstage=all&dealid="&Request.QueryString("dealid")&"><font color='#FFFFFF'>所有</font></a></td>"
			end if
		Response.Write "</tr></table>"
	end if
	rsq.Close
	set rsq=nothing
	connq.Close
	set onnnq=nothing
    %>
    </td>
  </tr>
  <tr> 
    <td height=2 colspan="3" bgcolor="#4A699C"></td>
  </tr>
</table>
<%
dim rsdealrecord
set conndealline=server.CreateObject("adodb.connection")
if Request.QueryString("dealstage")="" then
	'if strdefdealstage="" then
	'	sql="select * from v_event where dealid="&Request.QueryString("dealid")
	'else
		'sql="select * from v_event where dealid="&Request.QueryString("dealid")&" and dealstage="&strdefdealstage
	'end if
		sql="select * from v_event where dealid="&Request.QueryString("dealid")&" and dealstage="&rs("dealstage")
elseif Request.QueryString("dealstage")="all" then
	sql="select * from v_event where dealid="&Request.QueryString("dealid")
else
	sql="select * from v_event where dealid="&Request.QueryString("dealid")&" and dealstage="&Request.QueryString("dealstageid")
end if
set rsdealrecord=conn.Execute(sql)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="20%" height=15 align=center>主题</td>
    <td width="15%" height="15" align=center>销售机会阶段</td>
    <td width="8%" height="15" align=center>用户</td>
    <td height="15" align=center>描述</td>
    <td width="15%" height="15" align=center>创建时间</td>
  </tr>
  <%i=1
	if not rsdealrecord.EOF and not rsdealrecord.BOF then
  do while not rsdealrecord.EOF
  %>
  <tr bgcolor="#FFFFFF"> 
    <td height=18 align=center><a href="javascript:opensubwin3('../event/eventdetail.asp?eventid=<%=rsdealrecord("id")%>','销售事件','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rsdealrecord("subject")%></a></td>
    <td align=center><%=rsdealrecord("dealstagename")%></td>
    <td align=center><%=getfieldvalue("usertable","loginid",rsdealrecord("username"),"username")%></td>
    <td align=center><%=rsdealrecord("description")%></td>
    <td align=center><%=rsdealrecord("createdate")%></td>
  </tr>
  <%
  i=i+1
  rsdealrecord.MoveNext
  loop
  %>
  </table>
 <%
  else
		Response.Write "<table width=100% cellspacing=1><tr bgcolor=white><td >无记录</td></tr></table>"
  end if  
  rsdealrecord.Close
  set rsdealrecord=nothing
  %>


<%
sql="select * from v_quote where dealid="&Request.QueryString("dealid")
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关报价</font></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../quote/newquote.asp?dealid=<%=request("dealid")%>','报价','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="20%" height=15 align=center bgcolor="efefef">报价单号</td>
    <td width="10%" height="15" align=center>金额</td>
    <td width="10%" height="15" align=center>状态</td>
    <td width="10%" height="15" align=center>报价日期</td>
    <td width="10%" 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>
  </tr>
<%if not rs1.EOF and not rs1.BOF then%>
  <%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=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("quoteno")%></a></td>
    <td align=center><%=rs1("totalamount")%></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><%=rs1("description")%></td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
  <%	
	else 
		Response.Write "<table width=100% cellspacing=1><tr bgcolor=white><td >无记录</td></tr></table>"
	end if
   %>

<%
sql="select * from v_order where dealid="&Request.QueryString("dealid")
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('../order/neworder.asp?dealid=<%=request("dealid")%>','合同','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="20%" height=15 align=center bgcolor="efefef">合同号</td>
    <td width="10%" height="15" align=center>金额</td>
    <td width="10%" 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>
  </tr>
<%if not rs1.EOF and not rs1.BOF then%>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin3('../order/orderdetail.asp?orderid=<%=rs1("orderid")%>','合同','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("ordernum")%></a></td>
    <td align=center><%=rs1("totalamount")%></td>
    <td align=center><%=rs1("status")%></td>
    <td align=center><%=rs1("signeddate")%></td>
    <td align=center><%=rs1("owner")%></td>
    <td align=center><%=rs1("description")%></td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%	
	else 
		Response.Write "<table width=100% cellspacing=1><tr bgcolor=white><td >无记录</td></tr></table>"
	end if
   %>


  <%
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
  %>
 </body>
</html>