📄 khallmy.asp

📁 客户管理系统使用ASP.NET和Access
💻 ASP
字号:
<!--#include file="islogin.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/css.css" rel="stylesheet" type="text/css">
<title></title>
<style type="text/css">
<!--
@import url("../style/admin.css");
.style2 {font-size: 18px; font-weight: bold; color: #0000FF; }
-->
</style></head>

<body>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" class="table_1">
  <tr>
    <td height="30" class="table_1_top"><span class="style2">&nbsp;&nbsp;我跟单的客户</span></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">
	<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="table_1_inc">
      <tr <%if (ww mod 2)=1 then%>bgcolor="#F8F8FA"<%end if%> >
        <td width="58" height="25" align="center"><strong>跟单人</strong></td>
        <td width="30" align="center">&nbsp;</td>
        <td width="200"><strong>公司名称</strong></td>
        <td><strong>地址</strong></td>
        <td width="150"><strong>更新时间</strong></td>
      </tr>
<%
page=request.querystring("page")
set rs=server.createobject("adodb.recordset")
sql="select id,Member,Memberid,Company,Cadd,addtime,uptime,selectTT from KH where MemberID="&session("MemberID")&" order by selectTT desc,uptime desc"
rs.open sql,conn,1,1
on error resume next
maxjilu=rs.recordcount
perpage=25'每页显示记录数
t=page*perpage
rs.absoluteposition=t+1
f=t+perpage

ww=0
for i=t+1 to f
ww=ww+1
%>	  
      <tr <%if (ww mod 2)=1 then%>bgcolor="#F8F8FA"<%end if%> >
        <td align="center"><%=rs("Member")%></td>
        <td align="center"><img src="../Images/<%=rs("selectTT")%>.gif" width="17"></td>
        <td><a href="KHList.asp?id=<%=rs("id")%>" onClick="window.open(this.href,'','left=10,top=10,width=800,height=600,scrollbars=yes,resizable=yes');return false;"><%=rs("Company")%></a></td>
        <td><%=left(rs("Cadd"),25)%></td>
        <td><%=rs("uptime")%></td>
      </tr>
<%
rs.movenext 
if rs.eof then
exit for
rs.close 
set rs=nothing
end if
next
tt=page*perpage
    if page<0 then
   page=0
   end if
   if tt>=maxjilu then
   ttt=page-1
   end if
   if maxjilu-tt<perpage then
   ttt=page-1
      else
   ttt=page
   end if
   u=1
   do while u*perpage<maxjilu
   u=u+1
   loop
session("page")=ttt
set conn=nothing
%>    
</table></td>
  </tr>
  <tr>
    <td height="25" align="center" bgcolor="#FFFFFF">        <div style="text-align:left;background-color:#e6e6e6; height:20px;padding-top:2px;font-size:12px;">找到<font color="#FF0000"><%=maxjilu%></font>条| <a href="?page=0">首页</a>-<a href="?page=<%=(page-1)%>">上页</a>-<a href="?page=<%=(page+1)%>" >下页</a>-<a href="?page=<%=(u-1)%>" >末页</a>
            <% 
  if ttt<=5 then 
  uu=0 
  while uu<u  
   %>
            <a href="?page=<%=(uu)%>"><%=(uu+1)%></a>
            <%uu=uu+1 
 wend 
  else%>
            <a style="color:blue" href="?page=<%=(ttt-6)%>">[<%=(ttt-5)%>]</a> <a style="color:blue" href="?page=<%=(ttt-5)%>">[<%=(ttt-4)%>]</a> <a style="color:blue" href="?page=<%=(ttt-4)%>">[<%=(ttt-3)%>]</a> <a style="color:blue" href="?page=<%=(ttt-3)%>">[<%=(ttt-2)%>]</a> <a style="color:blue" href="?page=<%=(ttt-2)%>">[<%=(ttt-1)%>]</a> <a style="color:blue" href="?page=<%=(ttt-1)%>" >[<%=(ttt)%>]</a> <a style="color:blue" href="?page=<%=(ttt)%>">[<%=(ttt+1)%>]</a>
            <%end if%>
        </div></td>
  </tr>
</table>
<br>
</body>
</html>
<SCRIPT LANGUAGE="JavaScript">
function openScript(url, width, height){
	var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=no,scrollbars=no,menubar=no,status=no' );
}
</SCRIPT><!--#include file="MenuRight.asp"-->
⌨️ 快捷键说明

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