advancesearch.asp

OA企业智能办公自动化系统边缘特别版 功能非常强大的OA系统 1.仿WINDOWS操作界面

    	        sql = sql & " And cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")"
            End If
    	End If
	Else
	    If cUser <> "" Then
	        If sql = "" Then
                sql = sql & " Where cUser = '" & cUser & "'"
        	Else
    	        sql = sql & " And cUser = '" & cUser & "'"
            End If
		End If
	End If
End If

If cCompany = "" And cHomepage = "" And cLinkman = "" And cTel = "" And cEmail = "" And cAddress = "" And cArea = "" And cSquare = "" And cType = "" And cTrade = "" And cUser = "" And cGroup = "" Then
    If Session("CRM_sql") <> "" Then
        sql = Session("CRM_sql")
	Else
	    If Session("CRM_level") < 9 Then
		    sql = " Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")"
		End If
	End If
Else
    Session("CRM_sql") = sql
End If

'If Session("CRM_level") < 9 Then
'    If sql = "" Then
'	    sql = sql & " Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")"
'	Else
'	    sql = sql & " And cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")"
'	End If
'End If

strToPrint = strToPrint & "        <tr>" & VBCrlf
strToPrint = strToPrint & "          <td width=""60"" align=""center"" bgcolor=""menu"">编号</td>" & VBCrlf
strToPrint = strToPrint & "          <td align=""center"" bgcolor=""menu"">公司名称</td>" & VBCrlf
strToPrint = strToPrint & "          <td align=""center"" bgcolor=""menu"">公司网址</td>" & VBCrlf
strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">电子邮件</td>" & VBCrlf
'If Session("CRM_level") > 1 Then
    strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">客户等级</td>" & VBCrlf
    strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">业务员</td>" & VBCrlf
'End If
'If Session("CRM_level") = 9 Then
'    strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">所属小区</td>" & VBCrlf
'End If
strToPrint = strToPrint & "        </tr>" & VBCrlf

Dim rs,intTotalRecords,intTotalPages,intCurrentPage,intPageSize
intCurrentPage = CInt(ABS(Request("pageNum")))
If Not IsNumeric(intCurrentPage) Or intCurrentPage <= 0 Then intCurrentPage = 1
intPageSize = 10

Set rs = Server.CreateObject("ADODB.Recordset")
'Response.Write(sql)
'Response.End()
rs.Open "Select * From baidu_client" & sql & " Order By cId",conn,3,1
intTotalRecords = rs.RecordCount
rs.PageSize = intPageSize
intTotalPages = rs.PageCount
If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages
If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage
strCounter = strCounter & "共 " & intTotalRecords & " 条记录 "
strCounter = strCounter & "共 " & intTotalPages & " 页 "
strCounter = strCounter & "当前第 " & intCurrentPage & " 页 "
If intCurrentPage <> 1 And intTotalRecords <> 0 Then
    strCounter = strCounter & "<a href=""?pageNum=1""><<首页</a> "
Else
    strCounter = strCounter & "<<首页 "
End If
If intCurrentPage > 1 Then
    strCounter = strCounter & "<a href=""?pageNum=" & intCurrentPage - 1 & """><上一页</a> "
Else
    strCounter = strCounter & "<上一页 "
End If
If intCurrentPage < intTotalPages Then
    strCounter = strCounter & "<a href=""?pageNum=" & intCurrentPage + 1 & """>下一页></a> "
Else
    strCounter = strCounter & "下一页> "
End If
If intCurrentPage <> intTotalPages Then
    strCounter = strCounter & "<a href=""?pageNum=" & intTotalPages & """>尾页>></a>"
Else
    strCounter = strCounter & "尾页>>"
End If

Dim i
i = 0
Do While Not rs.BOF And Not rs.EOF
    i = i + 1
    strToPrint = strToPrint & "        <tr>" & VBCrlf
    strToPrint = strToPrint & "          <td width=""60"" align=""center"">" & rs("cId") & "</td>" & VBCrlf
    strToPrint = strToPrint & "          <td><a href=""view.asp?cId=" & rs("cId") & """>" & rs("cCompany") & "</a></td>" & VBCrlf
    strToPrint = strToPrint & "          <td><a href=""http://" & rs("cHomepage") & """ target=""_blank"">" & rs("cHomepage") & "</td>" & VBCrlf
    strToPrint = strToPrint & "          <td>" & rs("cEmail") & "</td>" & VBCrlf
    'If Session("CRM_level") > 1 Then
	    strToPrint = strToPrint & "          <td>" & rs("cType") & "</td>" & VBCrlf
        strToPrint = strToPrint & "          <td>" & rs("cUser") & "</td>" & VBCrlf
    'End If
    'If Session("CRM_level") = 9 Then
    '    strToPrint = strToPrint & "          <td>" & rs("cLocal") & "</td>" & VBCrlf
    'End If
    If i >= intPageSize Then Exit Do
	rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" >
<meta name="Date">
<title>销售管理系统</title>
<link href="myStyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function showHideHead(strSrc)
{
	var strFile = strSrc.substring(strSrc.lastIndexOf("/"),strSrc.length);
    if (strFile == "/arrow_up.gif"){
	    oHead.style.display = "none";
		oHeadCtrl.src = "images/arrow_down.gif";
		oHeadCtrl.alt = "显示头部";
		oHeadBar.title = "显示头部";		
	}
	else {
	    oHead.style.display = "block";
		oHeadCtrl.src = "images/arrow_up.gif";
		oHeadCtrl.alt = "隐藏头部";
		oHeadBar.title = "隐藏头部";
	}
}

if (this.location.href == top.location.href){
    top.location.href = "";
}
-->
</script>
<style type="text/css">
.style7 {color: #2d4865}
.style8 {color: #0d79b3;
	font-weight: bold;
}
</style>
</head>

<body  topmargin="0" leftmargin="0" onCopy="return false;" onSelectStart="return false;" onCut="return false;">
<table width="583"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="21"><div align="center">
        <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="2" height="25"><span class="style8"><img src="../images/main/l3.gif" width="2" height="25"></span></td>
            <td background="../images/main/m3.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="21"><div align="center"><span class="style8"><img src="../images/main/icon.gif" width="15" height="12"></span></div></td>
                  <td class="style7">销售系统</td>
                </tr>
            </table></td>
            <td width="1"><span class="style8"><img src="../images/main/r3.gif" width="1" height="25"></span></td>
          </tr>
        </table>
        <font color="0D79B3"></font></div></td>
  </tr>
</table>
<br>
<table width="550" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr id="oHead" style="display: block;">
    <td height="1" valign="top"> 
      <table width="550" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="5"><img src="images/null.gif" width="1" height="1"></td>
        </tr>
      </table>
     
    <table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr> 
        <td height="5"><img src="images/null.gif" width="1" height="1"></td>
      </tr>
      <tr>
        <td bgcolor="#88ADDF">&nbsp;</td>
      </tr>
    </table>
      <table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td width="40" align="right">&nbsp;</td>
          <td>请填写搜索项目<br>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <form name="searchForm" action="?subAction=searchItem" method="post">
                <tr> 
                  <td width="77" height="25" align="right">公司名称：</td>
                  <td width="144"><input name="company" type="text" id="company" size="24" maxlength="36"></td>
                  <td width="78" align="right">联系人：</td>
                  <td width="191"> <input name="linkman" type="text" id="linkman" size="12" maxlength="16"></td>
                </tr>
                <tr> 
                  <td width="77" height="25" align="right">公司网址：</td>
                  <td><input name="homepage" type="text" id="homepage2" size="24" maxlength="36"></td>
                  <td width="78" align="right">联系电话：</td>
                  <td><input name="tel" type="text" id="tel" size="24" maxlength="36"></td>
                </tr>
                <tr> 
                  <td width="77" height="25" align="right">电子信箱：</td>
                  <td><input name="email" type="text" id="email" size="24" maxlength="36"></td>
                  <td width="78" align="right">公司地址：</td>
                  <td><input name="address" type="text" id="address" size="36"></td>
                </tr>
                <tr> 
                  <td height="25" align="right">地区：</td>
                  <td> <% = getList(1,"baidu_area","","areaName","area","业务区域") %> </td>
                  <td align="right">所属小区：</td>
                  <td> <% = getList(1,"baidu_square","","squareName","square","业务小区") %> </td>
                </tr>
                <tr> 
                  <td height="25" align="right">客户等级：</td>
                  <td> <% = getList(1,"baidu_clientsType","","clientsType","type","客户类型") %> </td>
                  <td align="right">行业类型：</td>
                  <td> <% = getList(1,"baidu_clientsTrade","","clientsTrade","trade","行业类型") %> </td>
                </tr>
                <tr> 
                  <td height="25" align="right">业务员：</td>
                  <td> <input name="user" type="text" id="user" size="12" maxlength="16"></td>
                  <td align="right">业务组：</td>
                  <td> <% = getList(2,"baidu_group","gId","gName","group","业务组") %> </td>
                </tr>
                <tr align="center"> 
                  <td colspan="4"><input type="submit" name="Submit" value=" 搜 索 "> 
                    &nbsp;&nbsp; <input name="Reset" type="reset" id="Reset" value=" 重 置 "></td>
                </tr>
              </form>
            </table></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td height="16" align="center" bgcolor="#88ADDF" id="oHeadBar" style="cursor: hand;" title="隐藏头部" onClick="return showHideHead(document.all.oHeadCtrl.src);"> 
      <img src="images/arrow_up.gif" alt="隐藏头部" width="16" height="16" align="absmiddle" id="oHeadCtrl">&nbsp;</td>
    </td>
  </tr>
  <tr>
    <td valign="top" bgcolor="#FFFFFF" style="padding: 10px;">
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><% = strCounter %></td>
          <td align="right">[<a href="?action=killSession">返回全部列表</a>]</td>
        </tr>
      </table>
      <table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF"><% = strToPrint %>
	  </table></td>
  </tr>
  <tr>
    <td height="16" align="right" bgcolor="#88ADDF"><% Response.Write(Session("CRM_sql")) %><a href="#top"><img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a>&nbsp;</td>
	</td>
  </tr>
</table>
</body>
</html>