queryinfo.asp

简单的客户信息数据查询

<!--#include file="css.asp"-->
<!--#include file="conn.asp"-->
<%
 strUSN=Session("usn")
 strPWD=Session("pwd")
 strisAdmin=Session("isadmin")
 strInfo=Trim(Request.QueryString("queryinfo"))
 strFS=Request.QueryString("FS")
 strType=Request.QueryString("LX")
 strMP=Trim(Request.QueryString("MP"))
 'Response.Write strMP
 pageNo=Trim(Request.QueryString("pageNo"))
if pageNo="" then
 pageNo=1
else
  if isnumeric(pageNo) then
  if pageNo<=strMP then
  pageNo=Cint(pageNo)
  else
  pageNo=1
  end if
  else
  pageNo=1
  end if
end if
 %>
 <!--#include file="main.asp"-->
 <form action="queryinfo.asp">
 <table width=100% cellpadding=0 bordercolordark='#FFFFFF' cellspacing=0 cellpadding=1 border=1 bordercolorlight=darkblue>
 <tr bgcolor=#000099>
 <td align=center><font size=2 color=white>编号</font></td>
 <td align=center colspan=2><font size=2 color=white>客户名称</font></td>
 <td align=center><font size=2 color=white>签订时间</font></td>
 <td align=center><font size=2 color=white>合同编号</font></td>
 <td align=center><font size=2 color=white>有效期</font></td>
 <td align=center><font size=2 color=white>基本扣点比例</font></td>
 <td align=center><font size=2 color=white>补充合同</font></td>
 <%
  if strisAdmin="T" then 
 %>
 <td align=center colspan=3><font size=2 color=white>操作</font></td>
 <%
 end if
 %>
 </tr>
 <%
 if strUSN<>"" and strPWD<>"" then
 '=============================================
 if strFS="MH" then
   if strInfo<>"" then
     strSQL="Select * from CustomerInfo Where "& Trim(strType) & " Like '%" & strInfo & "%'"
   else
     strSQL="Select * from CustomerInfo"
   end if
 else
	if strFS="JQ" then
   if strInfo<>"" then
     strSQL="Select * from CustomerInfo Where "& Trim(strType) & " ='" & strInfo & "'"
   else
     strSQL="Select * from CustomerInfo"
   end if
	End if
 End if
 'Response.Write strSQL
 '=============================================
     set ers=Server.CreateObject("ADODB.RECORDSET")
     ers.Open strsql,con,1,3 
     MaxPage=ers.RecordCount\20 + 1 
     StartRec=20*(pageNo-1)+1 '记录每页开始的记录数
     'response.Write startRec
     EndRec=StartRec + 19     '记录每页结束的记录数
     'Response.Write EndRec
     if ers.RecordCount<=0 then
      Response.Redirect"Error.asp?info=您要的记录没找到!"
     end if
     Icount=0
     do while ((not ers.EOF) and (Icount< EndRec))
     Icount=Icount+1
   if Icount>=StartRec then '计数器如果比允许的开始值大，则显示数据。
'============================================================================
      'Response.Write Icount
       if Icount mod 2=0 then 
		%>
		<tr bgcolor="#decbff">
		<%
		else
		%>
		<tr bgcolor=#e6e6fa>
		<%
		end if
		%>
     <td align=center><a href="detail.asp?id=<%= ers("BH")%>" title="详细内容点击进入"  target=_blank><font size=3 color=red><%= ers("BH")%></font></a></td>
     <td colspan=2><%= ers("KHMC")%></td>
     <td><%= ers("QDRQ")%></td>
     <td><%= ers("HTBH")%></td>
     <td><%= ers("YXQ")%></td>
     <td><%= ers("JBKDBL")%></td>
     <td><a href="Main_bcht.asp?id=<%= ers("BH")%>" target=_blank>补充合同</a></td>
     <%
     if strisAdmin="T" then 
     %>
     <td><a href=modify.asp?id=<%=ers("BH")%>>修改</a></td>
     <td><a href=delete.asp?id=<%=ers("BH")%>>删除</a></td>
     <%
     end if
     %>
     </tr>
     <%
          end if
     ers.MoveNext
     loop 
     ers.Close
     set ers=Nothing
  %>
  <tr><td height=30 colspan=11><hr size=3 color=Blue width=100%></td></tr>
   <tr bgcolor=#000099>
 <td align=center><font size=2 color=white>编号</font></td>
 <td align=center colspan=2><font size=2 color=white>回款扣点比例和方式</font></td>
 <td align=center><font size=2 color=white>完成任务扣点</font></td>
 <td align=center><font size=2 color=white>伤残机扣点</font></td>
 <td align=center><font size=2 color=white>全年销售任务</font></td>
 <td align=center><font size=2 color=white>付款条件</font></td>
 <td align=center><font size=2 color=white>补充合同</font></td>
 <%
 if strisAdmin="T" then
 %>
 <td align=center colspan=2><font size=2 color=white>操作</font></td>
 <%
 end if
 %>
 </tr>
  <% 
     set rs=Server.CreateObject("ADODB.RECORDSET")
     rs.Open strsql,con,1,3
     MaxRecordNum=rs.RecordCount
     if rs.RecordCount<=0 then
      Response.Redirect"Error.asp?info=您要的记录没找到!"
     end if
     Icount=0
     do while ((not rs.EOF) and (Icount< EndRec))
     Icount=Icount+1
   if Icount>=StartRec then '计数器如果比允许的开始值大，则显示数据。
'============================================================================
       if Icount mod 2=0 then 
		%>
		<tr bgcolor="#decbff">
		<%
		else
		%>
		<tr bgcolor=#e6e6fa>
		<%
		end if
		%>
      <td align=center><a href="detail.asp?id=<%= rs("BH")%>" title="详细内容点击进入" target=_blank><font size=3 color=red><%= rs("BH")%></font></a></td>
     <td colspan=2><%= rs("HKKDBLHFS")%></td>
     <td><%= rs("WCRWKD")%></td>
     <td><%= rs("SCJKD")%></td>
     <td><%= rs("QNXSRW")%></td>
     <td><%= rs("FKTJ")%></td>
     <td><a href="Main_bcht.asp?id=<%= rs("BH")%>" target=_blank>补充合同</a></td>
     <%
     if strisAdmin="T" then
     %>
     <td><a href=modify.asp?id=<%=rs("BH")%>>修改</a></td>
     <td><a href=delete.asp?id=<%=rs("BH")%>>删除</a></td>
     <%
     end if
     %>
     </tr>
     <%
        end if
     rs.MoveNext
     loop   
   %>
   <tr><td width=100% colspan=11 height=20 align=right>
<%
if pageNo > 1 then
%>
<a href="queryinfo.asp?pageNo=<%= pageNo - 1 %>&queryinfo=<%=strQueryInfo%>&FS=<%= strFS%>&LX=<%= strType%>&MP=<%=MaxPage%>"><font color=white>上一页</font></a>
<%
end if
if pageNo < MaxPage then
%>
<a href="queryinfo.asp?pageNo=<%= pageNo + 1 %>&queryinfo=<%=strQueryInfo%>&FS=<%= strFS%>&LX=<%= strType%>&MP=<%=MaxPage%>"><font color=white>下一页</font></a> 
<%
end if
%>
<input type=hidden name=queryinfo value=<%= strQueryInfo%>>
<input type=hidden name=FS value=<%= strFS%>>
<input type=hidden name=LX value=<%= strType%> >
<%
if strisAdmin="T" then
%>
<%
end if
%>
&nbsp;&nbsp;
<input type=hidden value="<%= MaxPage%>" name="MP">
<input type=submit value="GO" >
<input type=text name="pageNo" size=2><font size=2 color=white>&nbsp;页</font>
&nbsp;
<font size=2 color=white>记录总数:</font><font size=2 color=yellow><%= MaxRecordNum%></font><font size=2 color=white>条</font>
<font size=2 color=white>当前为:</font><font size=2 color=yellow><%= pageNo%></font><font size=2 color=white>页</font>
<font size=2 color=white>共</font><font size=2 color=yellow><%= MaxPage %></font><font size=2 color=white>页</font>
</td></tr>
   <%
 else
 Response.Redirect"Error.asp?info=用户没有登陆.或您的IE不支持Cookies！"
 end if
%>
</table>
</form>