|
|
| 更多报修 |
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "select count(*) from 维修"
set rs = conn.execute(sql)
T_Total = rs(0)
rs.close
set rs=nothing
Set conn=Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select * from 维修 order by 编号 Desc"
rs.open sql,conn,1
if not rs.eof then
rs.pagesize = 20
PageCount = rs.PageCount
PageNo = request("PageNo")
if not isnumeric(PageNo) then
PageNo=1
end if
if PageNo = "" or CInt(PageNo) < 1 then PageNo = 1
if CInt(PageNo) > PageCount then PageNo = PageCount
rs.absolutepage = PageNo
i=0
while not rs.eof and i35 then
Des=left(Des,35)&".."
end if
Des=replace(Des,"
"," ")
User=rs("联系人")
RDate=rs("登记日期")
%>
|
<%=Des%>
<%=User%>
<%=RDate%> |
<%
i=i+1
rs.movenext
wend
end if
rs.close
%>
页次：<%=PageNO%>/<%=PageCount%> 记录条数：<%=T_Total%>
5第一页
3上一页
4下一页
6最后一页
|
|
|