📄 empmain_overview.asp

📁 客户管理模块：随着计算机的普及和网络的迅猛发展
💻 ASP
字号:
<%@ Language=VBScript %>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->

<%
Dim genInfo__MMColParam
genInfo__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  genInfo__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim genInfo
Dim genInfo_numRows

Set genInfo = Server.CreateObject("ADODB.Recordset")
genInfo.ActiveConnection = MM_EmpMain_STRING
genInfo.Source = "SELECT * FROM kufu WHERE ID = " + Replace(genInfo__MMColParam, "'", "''") + ""
genInfo.CursorType = 0
genInfo.CursorLocation = 2
genInfo.LockType = 1
genInfo.Open()

genInfo_numRows = 0
%>

<%
Dim MarrInfo__MMColParam
MarrInfo__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  MarrInfo__MMColParam = Request.QueryString("ID")
End If
%>
<%

%>
<%

%>
<%
Dim fm__MMColParam
fm__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  fm__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim fm
Dim fm_numRows

Set fm = Server.CreateObject("ADODB.Recordset")
fm.ActiveConnection = MM_EmpMain_STRING
fm.Source = "SELECT top 8 * FROM fahuo WHERE companyid = " + Replace(fm__MMColParam, "'", "''") + ""
fm.CursorType = 0
fm.CursorLocation = 2
fm.LockType = 1
fm.Open()

fm_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
fm_numRows = fm_numRows + Repeat1__numRows
%>
<%
Dim EduList__MMColParam
EduList__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  EduList__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim EduList
Dim EduList_numRows



EduList_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
EduList_numRows = EduList_numRows + Repeat2__numRows
%>
<%
Dim EvnWork__MMColParam
EvnWork__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  EvnWork__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim EvnWork
Dim EvnWork_numRows

Set EvnWork = Server.CreateObject("ADODB.Recordset")
EvnWork.ActiveConnection = MM_EmpMain_STRING
EvnWork.Source = "SELECT top 8 * FROM tj WHERE companyid = " + Replace(EvnWork__MMColParam, "'", "''") + ""
EvnWork.CursorType = 0
EvnWork.CursorLocation = 2
EvnWork.LockType = 1
EvnWork.Open()

EvnWork_numRows = 0
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
EvnWork_numRows = EvnWork_numRows + Repeat3__numRows
%>
<%
Dim workinfo__MMColParam
workinfo__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  workinfo__MMColParam = Request.QueryString("ID")
End If
%>
<%

%>
<%
Dim Repeat4__numRows
Dim Repeat4__index

Repeat4__numRows = -1
Repeat4__index = 0
workinfo_numRows = workinfo_numRows + Repeat4__numRows
%>
<%
Dim JC__MMColParam
JC__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  JC__MMColParam = Request.QueryString("ID")
End If
%>
<%

%>
<%
Dim Repeat5__numRows
Dim Repeat5__index

Repeat5__numRows = -1
Repeat5__index = 0
JC_numRows = JC_numRows + Repeat5__numRows
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
</HEAD>
<BODY class="body">

 <fieldset style="padding: 2" class="fiedset"> <legend>基本信息</legend> 
  
     <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" class="table" align="center">
    <tr> 
      <td nowrap align="right" class="Caption" width="25%">编号:</td>
      <td class="ValueArea" width="25%"><%=(genInfo.Fields.Item("ID").Value)%></td>
      <td nowrap align="right" class="Caption" width="25%">联系人:</td>
      <td width="25%" class="ValueArea"> <p align="left"><%=(genInfo.Fields.Item("联系人").Value)%></td>
    </tr>
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">公司名称:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("公司名称").Value)%></td>
      <td width="25%" nowrap align="right" class="Caption">职务:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("职务").Value)%></td>
    </tr>
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">联系电话:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("联系电话").Value)%></td>
      <td width="25%" nowrap align="right" class="Caption">省份/城市:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("省份").Value)+(genInfo.Fields.Item("城市").Value)%></td>
    </tr>
   
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">传真号码:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("传真").Value)%></td>
      <td width="25%" nowrap align="right" class="Caption">手机:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("手机").Value)%></td>
    </tr>
   
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">通讯地址:</td>
      <td colspan="3" class="ValueArea"><%=(genInfo.Fields.Item("地址").Value)%></td>
    </tr>
    <tr> 
      <td nowrap align="right" class="Caption" width="25%">客户等级:</td>
      <td class="ValueArea" width="25%"><%if genInfo.Fields.Item("客户等级").Value="" then
	  response.write("该客户未分类")
	  else
	  response.write(genInfo.Fields.Item("客户等级").Value)
	  end if
	  %></td>
      <td nowrap align="right" class="Caption" width="25%">添加日期:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("date").Value)%></td>
    </tr>
    <tr> 
      <td width="25%" nowrap align="right" height="20" class="Caption">该公司email:</td>
      <td width="25%" height="20" class="ValueArea"><%=(genInfo.Fields.Item("email").Value)%></td>
      <td width="25%" nowrap align="right" height="20" class="Caption">录入人:</td>
      <td width="25%" height="20" class="ValueArea"><%=(genInfo.Fields.Item("录入人").Value)%></td>
    </tr>
  
    
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">客户简介:</td>
      <td colspan="3" class="ValueArea"><%=(genInfo.Fields.Item("备注").Value)%></td>
    </tr>
  </table>
  </fieldset>

  
  
  
  <fieldset style="padding: 2" class="fiedset"> <legend>跟踪记录</legend> 
  
<table  width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="table">
  <!--DWLayoutTable-->
  <tr> 
    <td width="10%" height="18" align="center" nowrap class="listTitle">日期</td>
    <td width="20%" align="center" nowrap class="listTitle">联系人</td>
    <td width="10%" align="center" nowrap class="listTitle">交流方式</td>
    <td width="60%" align="center" valign="top" nowrap class="listTitle">内容</td>
  </tr>
  <% If EvnWork.EOF And EvnWork.BOF Then %>
  <tr class="ListValueGray"> 
    <td height="21" colspan="4" class="ListValueWhite">没有记录!</td>
  </tr>
  <% End If ' end EvnWork.EOF And EvnWork.BOF %>
  <%
	i = -1
	%>
  <% 
While ((Repeat3__numRows <> 0) AND (NOT EvnWork.EOF)) 
%>
  <%
i = i + 1
if i mod 2 = 0 then
className = "listValueWhite"
else
className = "listValuegray"
end if
%>
  <tr class="<%=className%>"> 
    <td height="18" nowrap><%=(EvnWork.Fields.Item("日期").Value)%></td>
    <td nowrap><%=(EvnWork.Fields.Item("联系人").Value)%></td>
    <td nowrap><%=(EvnWork.Fields.Item("跟踪方式").Value)%></td>
    <td valign="top" nowrap><%=(left(EvnWork.Fields.Item("跟踪内容").Value,50))%></td>
  </tr>
  <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  EvnWork.MoveNext()
Wend
%>
</table>
  </fieldset> 
 
</BODY>
</HTML>
💿 文件大小 235 K
👤 上传用户 liu2000dz
📂 所属分类书籍源码
🏷️ 相关标签

#模块 #发展 #计算机 #网络
⌨️ 快捷键说明

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