?? 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 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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -