📄 empmain_marr_disp1.asp

📁 好用的管理,代码程序好用的管理,代码程序
💻 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>&nbsp;</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 + -