⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 contactdetail.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷
💻 ASP
字号:
🔍 
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "contact","read"
set objcheck=nothing

dim conn
dim rs 
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_contact where contactid="&request("contactid"),conn,1,1
if rs.EOF then
	Response.Write "记录不存在"
	Response.End 
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("contact")%></title>
<script language="JavaScript">
function window_onload()
{
window.moveTo(-2,-2);
window.resizeTo(screen.availWidth, screen.availHeight);
}
</script>
</head>
<body bgcolor="#ffffff" onload="window_onload()">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><b><font  class="title">联系人：<%=rs("contact")%></font></b></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr > 
      <td height="16" colspan="2" background="../images/title.gif"></td>
    </tr>
    <tr>
      <td height=4></td>
    </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr> 
    <td width="10%" height=20 align=center bgcolor="DEDFDE">联系人</td>
    <td width="25%" align=center bgcolor="EFEFEF"><%=rs("contact")%>
	<% if rs("contacttype")<>"" then%>(<%=rs("contacttype")%>)<%end if%></td>
    <td width="10%" align=center bgcolor="DEDFDE">职务</td>
    <td width="20%" align=center bgcolor="EFEFEF"><%=rs("title")%></td>
    <td width="10%" align=center bgcolor="DEDFDE">部门</td>
    <td width="25%" align=center bgcolor="EFEFEF"><%=rs("contactdepartment")%></td>
  </tr>
  <tr> 
    <td align=center height=18  bgcolor="DEDFDE">电话</td>
    <td align=center bgcolor="EFEFEF"><%=rs("workphone")%></td>
    <td align=center bgcolor="DEDFDE">传真</td>
    <td align=center bgcolor="EFEFEF"><%=rs("fax")%></td>
    <td align=center bgcolor="DEDFDE">移动电话</td>
    <td align=center bgcolor="EFEFEF"><%=rs("motorphone")%></td>
  </tr>
  <tr> 
    <td align=center height=18  bgcolor="DEDFDE">客户</td>
    <td align=center bgcolor="EFEFEF">
	<a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','../account/accountdetail.asp?accountid=<%=rs("accountid")%>');"><%=rs("account")%></a></td>
    <td align=center bgcolor="DEDFDE">地址</td>
    <td align=center bgcolor="EFEFEF"><%=rs("address")%></td>
    <td align=center bgcolor="DEDFDE">邮编</td>
    <td align=center bgcolor="EFEFEF"><%=rs("zip")%></td>
  </tr>
  <tr> 
    <td align=center height=18  bgcolor="DEDFDE">国家</td>
    <td align=center bgcolor="EFEFEF"><%=rs("country")%></td>
    <td align=center bgcolor="DEDFDE">省份</td>
    <td align=center bgcolor="EFEFEF"><%=rs("province")%></td>
    <td align=center bgcolor="DEDFDE">城市</td>
    <td align=center bgcolor="EFEFEF"><%=rs("city")%></td>
  </tr>
  <tr> 
    <td align=center height=18  bgcolor="DEDFDE">创建者</td>
    <td align=center bgcolor="EFEFEF"><%=rs("CreateName")%></td>
    <td align=center bgcolor="DEDFDE">电子邮件</td>
    <td align=center bgcolor="EFEFEF"><%=rs("email")%></td>
    <td align=center bgcolor="DEDFDE">所有者</td>
    <td align=center bgcolor="EFEFEF"><%=rs("OwnerName")%></td>
  </tr>
  <tr> 
    <td align=center height=18  bgcolor="DEDFDE">最后修改者</td>
    <td align=center bgcolor="EFEFEF"><%=rs("LastModName")%></td>
    <td align=center bgcolor="DEDFDE">创建时间</td>
    <td align=center bgcolor="EFEFEF"><%=rs("CreateDate")%></td>
    <td align=center bgcolor="DEDFDE">最后修改时间</td>
    <td align=center bgcolor="EFEFEF"><%=rs("LastModDate")%></td>
  </tr>
  <tr> 
    <td align=center height=18  bgcolor="DEDFDE">描述</td>
    <td colspan="5" align=center bgcolor="EFEFEF"> <div align="left"><%=rs("description")%></div></td>
  </tr>
</table>

<br>
<table cellspacing=1 bgcolor='#ffffff'>
  <tr> 
    <td height=18 align=center valign=center <% if Request.QueryString("type")="deal" or Request.QueryString("type")="" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=contactdetail.asp?type=deal&contactid=<%=Request.QueryString("contactid")%>><font color="#FFFFFF">销售机会</font></td>
    <td height=18 align=center valign=center <% if Request.QueryString("type")="event" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=contactdetail.asp?type=event&contactid=<%=Request.QueryString("contactid")%>><font color='#FFFFFF'>销售事件</font></a></td>
    <td height=18 align=center valign=center <% if Request.QueryString("type")="all" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=contactdetail.asp?type=all&contactid=<%=Request.QueryString("contactid")%>><font color='#FFFFFF'>所有</font></a></td>
  </tr>
</table>

<%
if Request.QueryString("type")="all" or Request.QueryString("type")="deal" or Request.QueryString("type")="" then 
sql="select * from v_deal where contactid="&Request.QueryString("contactid")
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></font></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../deal/newdeal.asp?contactid=<%=request("contactid")%>&contactname=<%=rs("contact")%>&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=no,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=no,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 contactid="&Request.QueryString("contactid")
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></font></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../event/newevent.asp?contactid=<%=request("contactid")%>','销售事件','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>
  </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=no,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>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>

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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -