?? empmain_marr_disp1.asp
字號:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%if trim(session("name")) = "" then
response.Write("您還沒有正確登錄本系統!")
response.end
end if
Dim EvnWork__MMColParam
%>
<%
Dim EvnWork
Dim EvnWork_numRows
Set EvnWork = Server.CreateObject("ADODB.Recordset")
EvnWork.ActiveConnection = MM_EmpMain_STRING
if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true then
EvnWork.Source = "SELECT top 60 * FROM T_Count order by F_Id desc"
else
EvnWork.Source = "SELECT top 60 * FROM T_Count where F_BusinessMan='"&session("Name")&"' order by F_Id desc "
end if
EvnWork.CursorType = 0
EvnWork.CursorLocation = 2
EvnWork.LockType = 1
EvnWork.Open()
EvnWork_numRows = 0
%>
<%EmpList_total = EvnWork.RecordCount
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = -1
Repeat3__index = 0
EvnWork_numRows = EvnWork_numRows + Repeat3__numRows
EmpList_first = 1
EmpList_last = EmpList_first + EvnWork_numRows - 1
If (EmpList_total <> -1) Then
If (EmpList_first > EmpList_total) Then
EmpList_first = EmpList_total
End If
If (EmpList_last > EmpList_total) Then
EmpList_last = EmpList_total
End If
If (EmpList_numRows > EmpList_total) Then
EmpList_numRows = EmpList_total
End If
End If
%>
<%
Dim workinfo__MMColParam
workinfo__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
workinfo__MMColParam = Request.QueryString("ID")
End If
If (MM_keepMove <> "") Then
MM_keepMove = MM_keepMove & "&"
End If
MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<%EmpList_first = MM_offset + 1
EmpList_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (EmpList_first > MM_rsCount) Then
EmpList_first = MM_rsCount
End If
If (EmpList_last > MM_rsCount) Then
EmpList_last = MM_rsCount
End If
End If
If (EmpList_total = -1) Then
EmpList_total=0
While (Not EvnWork.EOF)
EmpList_total = EmpList_total + 1
EvnWork.MoveNext
Wend
If (EvnWork.CursorType > 0) Then
EvnWork.MoveFirst
Else
EvnWork.Requery
End If
If (EmpList_numRows < 0 Or EmpList_numRows > EmpList_total) Then
EmpList_numRows = EmpList_total
End If
EmpList_first = 1
EmpList_last = EmpList_first + EmpList_numRows - 1
If (EmpList_first > EmpList_total) Then
EmpList_first = EmpList_total
End If
If (EmpList_last > EmpList_total) Then
EmpList_last = EmpList_total
End If
End If
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>聯系列表</title>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
</head><script>
function openBrWindow(id) {
var str = showModalDialog("EmpMain_tj_show1.asp?id="+id+"",window,"dialogWidth:500px; dialogHeight:350px; edge:raised;help:off;status:off;scroll:off")
if ((str != null))
{
insertHTML(str);
}
}
var objClassName
function HLItem(obj){
obj.oldClassName=obj.className;
obj.className="ListValuehighlight";
}
function Re(obj){
obj.className=obj.oldClassName
}
</script>
<body class="body">
<form method="POST" action="EmpMain_Marr_Disp.asp" webbot-action="--WEBBOT-SELF--">
<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="1%" align="center" nowrap class="Caption">-></td>
<td width="30%" align="center" nowrap class="listTitle">公司名稱</td>
<td width="30%" 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%>" style="cursor:hand" onMouseOver="HLItem(this)" onMouseOut="Re(this)" onClick="openBrWindow(<%=EvnWork.Fields.Item("F_Id").Value%>)">
<td height="18" nowrap><%=(left(EvnWork.Fields.Item("F_BusinessMan").Value,50))%></td>
<td nowrap> </td>
<td nowrap><%Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_EmpMain_STRING
rs.Source = "SELECT * FROM T_Client where F_Id= "&EvnWork.Fields.Item("F_CompanyId").Value&" "
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
if not rs.eof then
response.write(left(rs.Fields.Item("F_CompanyName").Value,15))
end if%></td>
<td valign="top" nowrap><%=right((EvnWork.Fields.Item("F_Date").Value),4)%></td>
</tr>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
EvnWork.MoveNext()
Wend
%>
</table> </fieldset></form>
</body>
</html>
<%
EvnWork.Close()
Set EvnWork = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -