📄 customer_list.asp

📁 have playing search print and many very good contcent
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
Dim rs,news,sqltext
Dim bianhao,kename,sellevl
Dim isuser
isuser = Manage_Level(adl) 
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext = "Select * From [Customer] Where isOK<>0 "
If Request.QueryString("action") = "search" Then
bianhao = Trim(Request.Form("bianhao"))
kename = Trim(Request.Form("kename"))
sellevl = Trim(Request.Form("sellevl"))
  If bianhao="" and kename="" and sellevl="" Then
  sqltext = sqltext & " Order By Levels Desc"
  Else
      If bianhao<>"" Then 
	     sqltext = sqltext & " and Customer_ID='"&bianhao&"'"
	  End if
          If kename<>"" Then 
		     sqltext = sqltext & " and Manage_Name='"&kename&"' "
		  End if
		      If sellevl<>"" Then 
		      sqltext = sqltext & " and Levels='"&sellevl&"' "
		      End if
  End if
End if
rs.Open sqltext,Conn,1,3

MaxPerPage=30
text="0123456789"
rs.PageSize=MaxPerPage
for i=1 to Len(Request.QueryString("page"))
checkpage = Instr(1,text,mid(Request.QueryString("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(Request.QueryString("page")) Then
CurrentPage=Cint(Request.QueryString("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage= 1
End If
If not rs.eof Then rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<body text="#000000">
<form name="form1" method="post" action="?action=search">
  <table width="98%" border="0" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
    <tr height="22" valign="middle" align="center"> 
      <th width="18%">客户编号</th>
      <th width="23%">客户名称</th>
      <th width="16%">级别</th>
      <th width="43%">&nbsp;</th>
    </tr>
    <tr height="22" valign="middle" align="center"> 
      <td class=forumrow><input name="bianhao" type="text" id="bianhao" maxlength="30"></td>
      <td class=forumrow><input name="kename" type="text" id="kename" maxlength="30"></td>
      <td class=forumrow><select name="sellevl" id="sellevl">
          <option value="">请选择客户级别</option>
          <option value="1">1 级</option>
          <option value="2">2 级</option>
          <option value="3">3 级</option>
        </select> </td>
      <td class=forumrow><input type="submit" name="Submit" value="查 找"></td>
    </tr>
  </table>
</form>
<table width="98%" border="0" cellpadding="2" cellspacing="0" align="center" class=TableBorder>
  <tr height="22" align="center"> 
    <th width="7%" valign="middle">客户编号</th>
    <th width="13%" valign="middle">客户名称</th>
    <th width="7%" valign="middle">客户级别</th>
    <th width="11%" valign="middle">联系人</th>
    <th width="15%" valign="middle">客户地址</th>
    <th width="10%" valign="middle">客户电话</th>
    <th width="20%" valign="middle">备注</th>
    <th width="9%" valign="middle">隶属</th>
    <th width="8%">操作</th>
  </tr>
  <%
i=0
If rs.Eof Then
Response.Write "<tr><td colspan='6'>没有任何记录!</td></tr>"
Else
Do While Not rs.Eof
%>
  <tr bgcolor="#FFFFFF" align="center" height="22"> 
    <td valign="middle"><%=rs("Customer_ID")%></td>
    <td valign="middle"><%=rs("Customer")%></td>
    <td valign="middle"><%=rs("Levels")%></td>
    <td valign="middle"><%=rs("LianXi")%></td>
    <td valign="middle"><%=rs("Address")%></td>
    <td valign="middle"><%=rs("Telphone")%></td>
    <td valign="middle"><%=rs("Mone")%></td>
    <td valign="middle"><%=rs("Manage")%></td>
    <td valign="middle"><a href="Customer_Edit.asp?id=<%=rs("ID")%>">编辑</a></td>
  </tr>
  <%
i=i+1 
if i >= MaxPerpage then exit do 
rs.MoveNext
Loop
End if
%>
</table>
<%showpage()%>
</html>
<%
rs.Close
Set rs=Nothing
Conn.Close
Set Conn=Nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -