listall.asp

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

    strOut(0) = strOut(0) & "共 " & intTotalPages & " 页 "
    strOut(0) = strOut(0) & "当前第 " & intCurrentPage & " 页 "
    If intCurrentPage <> 1 And intTotalRecords <> 0 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=1""><<首页</a> "
    Else
        strOut(0) = strOut(0) & "<<首页 "
    End If
    If intCurrentPage > 1 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage - 1 & """><上一页</a> "
    Else
        strOut(0) = strOut(0) & "<上一页 "
    End If
    If intCurrentPage < intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage + 1 & """>下一页></a> "
    Else
        strOut(0) = strOut(0) & "下一页> "
    End If
    If intCurrentPage <> intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intTotalPages & """>尾页>></a>"
    Else
        strOut(0) = strOut(0) & "尾页>>"
    End If
	
	Dim k
	k = 0
	Do While Not rs.BOF And Not rs.EOF
	    k = k + 1
	    strOut(1) = strOut(1) & "        <tr>" & VBCrlf
	    strOut(1) = strOut(1) & "        <td align=""center"">" & rs("cId") & "</td>" & VBCrlf
	    strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>" & rs("cCompany") & "</a></td>" & VBCrlf
	    strOut(1) = strOut(1) & "        <td><a href=""http://" & rs("cHomepage") & """ target=""_blank"">" & rs("cHomepage") & "</td>" &  VBCrlf
	    strOut(1) = strOut(1) & "        <td>" & rs("cType") & "</td>" & VBCrlf
	        strOut(1) = strOut(1) & "        <td>" & rs("cUser") & "</td>" & VBCrlf
	    strOut(1) = strOut(1) & "        </tr>" & VBCrlf
		If k >= intPageSize Then Exit Do
		rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	strOut(0) = "共 条记录 共 页 当前第 页 &lt;&lt;首页 &lt;上一页 下一页&gt; 尾页&gt;&gt;"
	searchUrl = strOut
End Function

Function listAll()
    Dim rs,strOut(2),strUserList
	Dim 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")
	If Session("CRM_level") = 9 Then
	    rs.Open "Select * From baidu_client Order By cId Desc",conn,3,1
	Else
	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))
		rs.Open "Select * From baidu_client Where cUser In (" & strUserList & ") Order By cId Desc",conn,3,1
	End If
	intTotalRecords = rs.RecordCount
    rs.PageSize = intPageSize
    intTotalPages = rs.PageCount
    If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages
    If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage
    strOut(0) = strOut(0) & "共 " & intTotalRecords & " 条记录 "
    strOut(0) = strOut(0) & "共 " & intTotalPages & " 页 "
    strOut(0) = strOut(0) & "当前第 " & intCurrentPage & " 页 "
    If intCurrentPage <> 1 And intTotalRecords <> 0 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=1""><<首页</a> "
    Else
        strOut(0) = strOut(0) & "<<首页 "
    End If
    If intCurrentPage > 1 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage - 1 & """><上一页</a> "
    Else
        strOut(0) = strOut(0) & "<上一页 "
    End If
    If intCurrentPage < intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage + 1 & """>下一页></a> "
    Else
        strOut(0) = strOut(0) & "下一页> "
    End If
    If intCurrentPage <> intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intTotalPages & """>尾页>></a>"
    Else
        strOut(0) = strOut(0) & "尾页>>"
    End If
	
	Dim k
	k = 0
	Do While Not rs.BOF And Not rs.EOF
	    k = k + 1
	    strOut(1) = strOut(1) & "        <tr>" & VBCrlf
	    strOut(1) = strOut(1) & "        <td align=""center"">" & rs("cId") & "</td>" & VBCrlf
	    strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>" & rs("cCompany") & "</a></td>" & VBCrlf
	    strOut(1) = strOut(1) & "        <td><a href=""http://" & rs("cHomepage") & """ target=""_blank"">" & rs("cHomepage") & "</td>" &  VBCrlf
	    strOut(1) = strOut(1) & "        <td>&nbsp;" & rs("cType") & "</td>" & VBCrlf
	        strOut(1) = strOut(1) & "        <td>" & rs("cUser") & "</td>" & VBCrlf
	    strOut(1) = strOut(1) & "        </tr>" & VBCrlf
		If k >= intPageSize Then Exit Do
		rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	listAll = strOut
End Function
%>
<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 = "";
}

function ftnCom()
{
    if (document.searchComForm.searchCom.value == ""){
	    alert("请输入要查询的公司名称。");
		document.searchComForm.searchCom.focus();
		return false;
	}
}

function ftnUrl()
{
    if (document.searchUrlForm.searchUrl.value == ""){
	    alert("请输入要查询的公司网址。");
		document.searchUrlForm.searchUrl.focus();
		return false;
	}
}

var IsOpen = "<% = Session("CRM_planWin") %>";
-->
</script>
</head>

<body style="background-color: menu;" onCopy="return false;" onSelectStart="return false;" onCut="return false;" onContextMenu="window.event.returnValue=false;">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr id="oHead" style="display: block;">
    <td width="778" 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 border="0" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
          <tr>
            <td align="right"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <form name="searchComForm" method="post" action="?action=com" onSubmit="return ftnCom();">
                <tr>
                  <td>按公司名称搜索：
                    <input name="searchCom" type="text" id="searchCom" size="20" maxlength="36" <% If Session("CRM_keyWords") <> "" And Session("CRM_action") = "com" Then Response.Write("value=""" & Session("CRM_keyWords") & """") %> onFocus="this.value='';">
                      <input name="Search" type="submit" id="Search" value="搜索"></td>
                </tr>
              </form>
            </table></td>
            <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <form name="searchUrlForm" method="post" action="?action=url" onSubmit="return ftnUrl();">
                <tr>
                  <td>按公司网址搜索：
                    <input name="searchUrl" type="text" id="searchUrl" size="20" maxlength="36" <% If Session("CRM_keyWords") <> "" And Session("CRM_action") = "url" Then Response.Write("value=""" & Session("CRM_keyWords") & """") %> onFocus="this.value='';">
                      <input name="Submit" type="submit" id="Submit" value="搜索"></td>
                </tr>
              </form>
            </table></td>
          </tr>
    </table></td>
  </tr>
  <tr>
    <td colspan="2" 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="2" align="right"><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>