📄 empmain_overview.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 T_Client WHERE F_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 T_BuyRecord WHERE F_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 T_Count WHERE F_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>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<title>查看详情</title>
</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="100%" id="AutoNumber2" align="center">
<tr>
<td width="15%" align="right" class="Caption">公司名称:</td>
<td width="338" class="ValueArea"> <%=(genInfo.Fields.Item("F_CompanyName").Value)%></td>
<td width="144" class="Caption">联系人:</td>
<td width="338" class="ValueArea"><%=(genInfo.Fields.Item("F_Contect").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption" >省市:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_City").Value)%></td>
<td class="Caption"> 职务:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Jobs").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption"> 联系电话:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Tel").Value)%></td>
<td class="Caption"> 网址:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_NetAddress").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption">传真:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Fox").Value)%></td>
<td class="Caption">邮箱:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Email").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption">产品:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Product").Value)%>
</td>
<td class="Caption">邮编:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Post").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption">加入时间:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Date").Value)%>
</td>
<td class="Caption">业务员:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_EClerk").Value)%></td>
</tr>
<tr>
<td height="140" align="right" nowrap class="Caption">通讯地址:</td>
<td colspan="3" valign="top" class="ValueArea"><%=(genInfo.Fields.Item("F_Address").Value)%></td>
</tr>
<tr>
<td height="21" align="right" class="Caption">客户等级:</td>
<td colspan="3" valign="top" class="ValueArea"><%=(genInfo.Fields.Item("F_Levels").Value)%></td>
</tr>
<tr>
<td height="140" align="right" nowrap class="Caption">备注:</td>
<td colspan="3" valign="top" class="ValueArea"><%=(genInfo.Fields.Item("F_Remark").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">
<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 %>
<%
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("F_Date").Value)%></td>
<td nowrap><%=(EvnWork.Fields.Item("F_Contect").Value)%></td>
<td nowrap><%=(EvnWork.Fields.Item("F_LinkWay").Value)%></td>
<td valign="top" nowrap><%=(left(EvnWork.Fields.Item("F_LinkContent").Value,50))%></td>
</tr>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
EvnWork.MoveNext()
Wend
%>
</table>
</fieldset>
<fieldset style="padding:2" class="fieldset"><legend>相关操作</legend>
<table width="50" border="0" align="right" cellpadding="0" cellspacing="0" class="table">
<tr>
<td nowrap class="listTitle"><%if fncheckupart(1)=true then%><button class="button" name=mody onClick="javascript:void window.open('chang_person.asp?id=<%=trim(genInfo.Fields.Item("F_Id").Value)%>','addnew','width=300,height=200')">销售员变更</button><%end if%></td>
</tr>
</table>
</fieldset>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -