view.asp

WEB客户管理系统+小型OA系统。一个不错的程序

		'If cSpaceEnd = "1900-12-31" Then cSpaceEnd = ""
		'cOprationBegin = rs("cOprationBegin")
		'If cOprationBegin = "1900-12-31" Then cOprationBegin = ""
		'cOprationEnd = rs("cOprationEnd")
		'If cOprationEnd = "1900-12-31" Then cOprationEnd = ""
		cInfo = rs("cInfo")
		rs.Close
		Set rs = Nothing
%>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr id="oHead" style="display: block;"> 
    <td height="1" valign="top"> <table width="778" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="5"><img src="images/null.gif" width="1" height="1"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="menu">
        <tr> 
          <td align="left" background='images/tab_top_background_runner.gif'> 
            <table width="5" border="0" align="left" cellpadding="0" cellspacing="0">
              <tr> 
                <td><img src="images/null.gif" width="1" height="1"></td>
              </tr>
            </table>
            <table onClick="window.location.replace('listAll.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr > 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif">查看所有数据</td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
            <table onClick="window.location.replace('addData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr> 
                <td><img src="images/tab_on_left.gif" width="16" height="24"></td>
                <td background="images/tab_on_middle.gif">添加数据</td>
                <td><img src="images/tab_on_right.gif" width="16" height="24"></td>
              </tr>
            </table>
            <table onClick="window.location.replace('advanceSearch.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif">高级搜索</td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
            <table onClick="window.location.replace('dataForm.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif">数据报表</td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
            <table onClick="window.location.replace('exportData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif">数据导出</td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
			 <table onClick="window.location.replace('question.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif">问题集</td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
		  <table onClick="window.location.replace('plan.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif">计划与总结</td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
            <% If Session("CRM_level") = 9 Then %> <table onClick="window.location.replace('transData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif">数据转移</td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
            <table onClick="window.location.replace('manageUser.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif">用户管理</td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
            <table onClick="window.location.replace('system_level.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif">系统设置</td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
            <% End If %> <table onClick="window.location.replace('logout.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif">注销</td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
            <table onClick="window.location.reload();" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif">刷新</td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="5"><img src="images/null.gif" width="1" height="1"></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="16" align="center" bgcolor="#999999" id="oHeadBar" style="cursor: hand;" title="隐藏头部" onClick="return showHideHead(document.all.oHeadCtrl.src);"> 
      <img src="images/arrow_up.gif" alt="隐藏头部" width="16" height="16" align="absmiddle" id="oHeadCtrl">&nbsp;</td></td>
  </tr>
  <tr> 
    <td height="1" align="center" valign="top" bgcolor="#FFFFFF" style="padding: 10px;"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="3">
        <tr> 
          <td width="100" align="right">公司名称：</td>
          <td width="240"> <% = cCompany %> <input name="id" type="hidden" id="id" value="<% = cId %>">          </td>
          <td width="100" align="right">联系人：</td>
          <td width="240"><% = cLinkman %></td>
        </tr>
        <tr> 
          <td width="100" align="right">网址：</td>
          <td width="240"> <% = cHomepage %></td>
          <td width="100" align="right">联系电话：</td>
          <td width="240"><% = cTel %></td>
        </tr>
        <tr> 
          <td width="100" align="right">电子信箱：</td>
          <td width="240"> <% = cEmail %></td>
          <td width="100" align="right">公司地址：</td>
          <td width="240"> 
            <% = cAddress %>          </td>
        </tr>
        <tr>
          <td  width="100" align="right">联系人手机：</td>
          <td width="240"><%=phone%></td>
          <td width="100" align="right">公司传真：</td>
          <td width="240"><%=fax%></td>
        </tr>
        <tr>
          <td width="100" align="right">联系人QQ：</td>
          <td width="240"><%=qq%></td>
          <td width="100" align="right">联系人MSN：</td>
          <td width="240"><%=msn%></td>
        </tr>
        <tr>
          <td width="100" align="right">初次接触时间：</td>
          <td width="240"><%=cDomainBegin%></td>
          <td width="100" align="right">内部编号：</td>
          <td width="240"><%=isbn%></td>
        </tr>
        <tr>
          <td width="100" align="right">交易状态：</div></td>
          <td width="240"><%if cStatus =true then %><%="有交易记录"%><%else%><%="没有交易记录"%><%end if%></td>
          <td  width="100" align="right">交易金额：</div></td>
          <td width="240"><%=total%></td>
        </tr>
        <tr> 
          <td width="100" align="right">地区：</td>
          <td width="240"> <% = cArea %></td>
          <td width="100" align="right">所属小区：</td>
          <td width="240"><% = cSquare %></td>
        </tr>
        <tr> 
          <td width="100" align="right">业务种类：</td>
          <td width="240">
            <% = cType %>          </td>
          <td width="100" align="right">行业类型：</td>
          <td width="240"><% = cTrade %></td>
        </tr>
        <tr>
          <td width="100" align="right">业务员：</td>
          <td width="240"><% = cUser %>          </td>
          <td width="100" align="right">业务组：</td>
          <td width="240"><% = getGroupName(cGroup) %></td>
        </tr>
        <tr>
          <td  width="100" align="right">登记时间：</td>
          <td width="240"><%=cDomainEnd%></td>
          <td width="100" align="right">最后修改时间：</td>
          <td width="240"><%=cSpaceEnd%></td>
        </tr>
        <tr>
          <td  width="100" align="right">问题是否解决</td>
          <%if flag="2"  then%>
		  <td width="240">问题已解决</td>
		  <%elseif flag="1"  then%>
		  <td width="240"><font color="red">问题有待解决</font></td>
		  <%else %>
		  <td width="240">没有问题</td>
		  <%end if%>
          <td align="right">&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td width="100"  align="right">客户描述：</td>
          <td colspan="3"><% = cInfo %>	</td>
        </tr>
        <tr> 
          <td colspan="4" align="center"> <input name="Reset" type="button" id="Reset" value=" 修 改 " onClick="location.href='addData.asp?action=edit&cId=<% = cId %>';"> 
            &nbsp;&nbsp; <input name="Back" type="button" id="Back" value=" 返回列表 " onClick="location.href='<% = Session("CRM_url") %>';">
            &nbsp;&nbsp;<% If Session("CRM_level") = 9 Then %><input name="del" type="button" id="del" value=" 删 除" onClick="location.href='delData.asp?action=del&cId=<% = cId %>';"><%end if%></td>
        </tr>
      </table></td>
  </tr>
  <tr>     <td height="16" align="center" bgcolor="#999999" style="cursor: hand;" onClick="return showHideBlock('addRecords');"><span style="color: #FFFFFF; font-weight: bold;">[添加拜访纪录]</span></td>
    <td height="16" align="center" bgcolor="#999999" style="cursor: hand;" onClick="return showHideBlock('addRecords');">&nbsp;</td>
  </tr>
  <tr id="addRecords" style="display: block;"> 
    <td height="1" bgcolor="#FFFFFF" style="padding: 10px;"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
        <form name="recordsForm" action="?action=saveRecords" method="post" onSubmit="return checkInput('rDate','recordsType','cId','rContent');">
          <tr> 
            <td>添加拜访纪录：</td>
          </tr>
          <tr> 
            <td>拜访日期： 
              <input name="rDate" type="text" id="rDate3" value="<% = Date() %>" size="16" maxlength="12">
              拜访类型： 
              <% = getList(1,"baidu_recordsType",,"recordsType") %> <input name="cId" type="hidden" id="cId" value="<% = cId %>">
              问题是否解决
              <select name="flag" id="flag">
                <option value="0">没有问题</option>
                <option value="1">未解决</option>
                <option value="2">已解决</option>
              </select>              </td>
          </tr>
          <tr> 
            <td valign="top">拜访记录： 
              <textarea name="rContent" cols="80" rows="4" id="rContent"></textarea></td>
          </tr>
          <tr> 
            <td align="center"><input type="submit" name="Submit" value=" 提 交 ">
              &nbsp;&nbsp;
              <input name="AddPlan" type="button" id="AddPlan" value=" 添加拜访计划 " onClick="openModalDialog('addPlan_records.asp?cId=<% = cId %>');"></td>
          </tr>
        </form>
      </table></td>
  </tr>
  <tr> 
    <td height="16" align="center" bgcolor="#999999" style="cursor: hand;" onClick="return showHideBlock('listRecords');"><span style="color: #FFFFFF; font-weight: bold;">[拜访纪录列表]</span></td>
  </tr>
  <tr id="listRecords" style="display: block;"> 
    <td valign="top" bgcolor="#FFFFFF" style="padding: 10px;"> <table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF">
        <tr> 
          <td width="120" align="center" bgcolor="menu">拜访时间</td>
          <td width="80" align="center" bgcolor="menu">拜访类别</td>
          <td align="center" bgcolor="menu">拜访记录</td>
		  <td width="30" align="center" bgcolor="menu">删除</td>
        </tr>
        <% = listRecords(cId) %>
      </table></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <tr> 
    <td height="16" align="right" bgcolor="#999999"><a href="#top"><img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a>&nbsp;</td></td>
  </tr>
</table>
<%
    End If
End Sub
%>
</body>
</html>