advancesearch.asp

这是一个ASP平台的制衣管理系统,里面有比较好看FLASH动画,希望大家喜欢.

	
	If Session("CRM_level") < 9 Then
        If cUser <> "" Then
    	    arrUser = Split(getUserList(Session("CRM_level"),Session("CRM_group")),",")
	        Dim k,flag
	        flag = 0
    	    For k = 0 To UBound(arrUser) - 1
    	        If Replace(arrUser(k),"'","") = cUser Then
    		        flag = 1
    		    	Exit For
    		    End If
    	    Next
            If flag = 1 Then
                If sql = "" Then
                    sql = sql & " Where cUser = '" & cUser & "'"
    	        Else
    	            sql = sql & " And cUser = '" & cUser & "'"
                End If
    		Else
    		    If sql = "" Then
                    sql = sql & " Where cUser = '权限不允许的用户'"
    	        Else
    	            sql = sql & " And cUser = '权限不允许的用户'"
                End If
    	    End If
    	Else
    	    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
	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" content="http://www.technet.cn">
<meta name="Date" content="2003-08">
<title></title>
<link href="myStyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
if (this.location.href == top.location.href){
    top.location.href = "";
}
-->
</script>
</head>

<body style="background-color: menu;" onCopy="return false;" onSelectStart="return false;" onCut="return false;">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr id="oHead" style="display: block;">
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td><img src="images/null.gif" width="1" height="1"></td>
      </tr>
    </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="3">
          <form name="searchForm" action="?subAction=searchItem" method="post">
            <tr>
              <td width="100" align="right">公司名称：</td>
              <td><input name="company" type="text" id="company" size="24" maxlength="36"></td>
              <td width="100" align="right">联系人：</td>
              <td><input name="linkman" type="text" id="linkman" size="12" maxlength="16"></td>
            </tr>
            <tr>
              <td width="100" align="right">公司网址：</td>
              <td><input name="homepage" type="text" id="homepage2" size="24" maxlength="36"></td>
              <td width="100" align="right">联系电话：</td>
              <td><input name="tel" type="text" id="tel" size="24" maxlength="36"></td>
            </tr>
            <tr>
              <td width="100" align="right">电子信箱：</td>
              <td><input name="email" type="text" id="email" size="24" maxlength="36"></td>
              <td width="100" align="right">公司地址：</td>
              <td><input name="address" type="text" id="address" size="36"></td>
            </tr>
            <tr>
              <td 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 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 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 height="45" colspan="4"><input type="submit" name="Submit" value=" 搜 索 ">
                &nbsp;&nbsp;
                <input name="Reset" type="reset" id="Reset" value=" 重 置 "></td>
            </tr>
          </form>
        </table></td>
  </tr>
  <tr>
    <td colspan="4" align="center" valign="top" id="oHeadBar"><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 colspan="5" align="right"><% 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>
  </tr>
</table>
</body>
</html>