📄 fyxs.asp
字号:
<%
dim conn,sql,rs,page
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sbtz.mdb")
sql="select * from [sbtz] order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=14
page=request("page")
if page<1 then page=1
if rs.pagecount>0 then rs.absolutepage=page
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看设备记录</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #F5F5F5;
}
.h25 {
font-size: 12px;
line-height: 25px;
color: #999999;
}
.style2 {font-size: 20px}
-->
</style></head>
<body>
<div align="center"><br>
<span class="t style2">〖列表查看设备记录〗</span><br>
<br>
<img src="img/hr.gif" width="950" height="4"></div>
<table width="950" height="32" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#666666">
<tr>
<td><table width="200" border="0" cellpadding="0" cellspacing="1">
<tr>
<td bgcolor="#F5F5F5"><table width="950" height="110" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#E3E3E3">
<td width="4%" height="30" align="center">序号</td>
<td width="6%" height="25"> 设备名称</td>
<td width="6%" height="25"> 设备品牌</td>
<td width="7%" height="25"> 存放地点</td>
<td width="7%" height="25"> 购置时间</td>
<td width="7%" height="25"> 使用时间</td>
<td width="10%" height="25"> 使用人</td>
<td width="7%" height="25"> 使用部门</td>
<td width="15%" height="25"> 产品型号</td>
<td width="10%" height="25"> 主机编号</td>
<td width="18%" height="25"> 备注</td>
</tr> <%if not rs.eof then
for i=1 to rs.pagesize%>
<tr valign="top" bgcolor="#F5F5F5" class="h25">
<td height="25" align="center"><%=i%></td>
<td height="30"> <%=rs("设备名称")%></td>
<td height="25"> <%=rs("设备品牌")%></td>
<td height="25"> <%=rs("存放地点")%></td>
<td height="25"> <%=rs("购置时间")%></td>
<td height="25"> <%=rs("使用时间")%></td>
<td height="25"> <%=rs("使用人")%></td>
<td height="25"> <%=rs("使用部门")%></td>
<td height="25"> <%=rs("产品型号")%></td>
<td height="25"> <%=rs("主机编号")%></td>
<td height="25"> <%=rs("备注")%></td>
</tr><%rs.movenext
if rs.eof then exit for
next
%>
<tr bgcolor="#E3E3E3">
<td height="30" align="center">页码</td>
<td height="25" colspan="10">
<%
dim ij,url,myself
myself=request.servervariables("path_info")
url=myself&"?typeid="&cstr(typeid)
dim maxij,minij
if page="" or page<=6 then
minij=1
else
minij=page-5
end if
maxij=rs.pagecount
if maxij>10 then maxij=page+5
if page<=10 then maxij=page+5
if minij>1 then''''''''''''''''''''''''''''''''
response.write " [<a href="&url&"&page=1"
if int(page)=rs.pagecount then
response.write " class=e "
else
response.write " class=bc "
end if
response.write ">1</a>]..."
else''''''''''''''''''''''''''''''''''''''''''''
response.write "[<a href="&url&"&page=1"
if int(page)=1 then
response.write " class=e "
else
response.write " class=bc "
end if
response.write ">1</a>] "
end if''''''''''''''''''''''''''''''''''''''''''
if rs.pagecount>=2 then'***********************************************
for ij=minij+1 to maxij
if ij=rs.pagecount then exit for
response.write " [<a href="&url&"&page="&ij
if int(page)=ij then
response.write " class=e "
else
response.write " class=bc "
end if
response.write ">"&ij&"</a>] "
next
if maxij>=rs.pagecount-1 then'''''''''''''''
response.write " [<a href="&url&"&page="&rs.pagecount
if int(page)=rs.pagecount then
response.write " class=e "
else
response.write " class=bc "
end if
response.write ">"&rs.pagecount&"</a>] "
else'''''''''''''''''''''''''''''''''''''''''
response.write "...[<a href="&url&"&page="&rs.pagecount
if int(page)=rs.pagecount then
response.write " class=e "
else
response.write " class=bc "
end if
response.write ">"&rs.pagecount&"</a>] "
end if'''''''''''''''''''''''''''''''''''''''
end if''************************************************************
%>
总计：<%=rs.recordcount%>条</td>
</tr><%end if%>
</table></td>
</tr>
</table></td>
</tr>
</table>
<div align="center">
<img src="img/hr.gif" width="950" height="4"><br><br>
<a href="index.asp">返回首页</a>
<a href="tianjia.asp">添加设备</a>
<a href="cx.asp">精确查询</a>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -