📄 admin_baoxiu_list.asp
字号:
<!--#include file =conn.asp-->
<%if session("pass")<>"ok" then
Response.Redirect "index.asp"
Response.End
end if
%>
<html>
<head>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<script src="../js/js.js"></script>
<body>
<%
sql="select * from baoxiu order by baoxiu_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
rs.pagesize=""&htshu&""
'实现分页
if rs.Eof then
rs_total = 0
else
rs_total = rs.RecordCount
end if
dim pageno
maxpage=rs.pagecount
getpageno = (Request("pageno"))
if(getpageno = "")then
pageno = 1
else
pageno = getpageno
End if
if(not rs.Eof)then
rs.AbsolutePage = pageno
end if
%>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" class="TableBorder">
<tr>
<td height="30" colspan=2 align="center" class="TableTitle1"><b>用户报修管理</b></td>
</tr>
<tr>
<td width="100" class="TableRow2" height=25><strong>管理快捷方式：</strong></td>
<td class="TableRow2"><a href="Admin_system.asp">网站信息设置</a> | <A href="admin_fankui_list.asp" target="main">反馈管理</A></td>
</tr>
</table>
<table width="100%" height="72" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" align=center>
<tr>
<td align=center>
<table cellspacing="0" width="100%">
<tr align="center">
<td valign="top" colspan="3">
<form name="Del_baoxiu" method="post">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr>
<td width="120" height="25" align="center" class="TableTitle1" > 报修编号</td>
<td width="90" height="25" align="center" class="TableTitle1" > 部门或班级</td>
<td width="348" align="center" class="TableTitle1" >报修原因</td>
<td width="100" align="center" class="TableTitle1" >报修物品</td>
<td width="80" height="25" align="center" class="TableTitle1" >报修人</td>
<td width="85" align="center" class="TableTitle1" >报修时间</td>
<td width="30" height="25" align="center" class="TableTitle1" >状态</td>
<td width="30" align="center" class="TableTitle1" >编辑</td>
<td width="30" align="center" class="TableTitle1" >IP</td>
<td width="30" align="center" class="TableTitle1" >删除</td>
</tr>
<%
If(rs.Eof)Then
%>
<tr>
<td height="120" colspan="10" align="center" class="TableRow2">没有报修记录！</td>
</tr>
<!--#include file="copyright.asp" -->
<%
Response.End()
End If
repeat_rows = 0
While(repeat_rows < rs.PageSize and Not rs.Eof)
%>
<%baoxiu_id=rs("baoxiu_id")%>
<tr>
<td width="120" height="25" align="center" class="TableRow2" ><%=rs("bx_id")%></td>
<td width="90" height="25" align="center" class="TableRow2" ><% baoxiu_id=cint(request("baoxiu_id"))
set rs_s=server.CreateObject("adodb.recordset")
sql="select * from b_smallclass where id="&rs("baoxiu_banji")&" order by nbigarea"
rs_s.open sql,conn,1,1
%>
<%=rs_s("nsmallarea")%>
<%
rs_s.close
set rs_s=nothing
%>
</td>
<td width="348" height="25" align="center" class="TableRow2" >
<%
If(Len(rs("baoxiu_yuanyin")) > 10)Then
Response.Write("<a href='admin_baoxiu_edit.asp?baoxiu_id="&rs("baoxiu_id")&"' alt='编辑该报修信息'>"&(Mid(rs("baoxiu_yuanyin"),1,10))&"…</a>")
Else
Response.Write("<a href='admin_baoxiu_edit.asp?baoxiu_id="&rs("baoxiu_id")&"' alt='编辑该报修信息'>"&(rs("baoxiu_yuanyin"))&"</a>")
End If
%>
</td>
<td width="100" height="25" align="center" class="TableRow2" >
<% baoxiu_id=cint(request("baoxiu_id"))
set rs_s=server.CreateObject("adodb.recordset")
sql="select * from w_sclass where id="&rs("baoxiu_wp")&" order by bclassid"
rs_s.open sql,conn,1,1
%>
<%=rs_s("sclassname")%>
<%
rs_s.close
set rs_s=nothing
%>
</td>
<td width="80" height="25" align="center" class="TableRow2" ><%=rs("baoxiu_user")%></td>
<td width="85" align="center" class="TableRow2" ><%=rs("star_time")%></td>
<td width="30" height="25" align="center" class="TableRow2" ><%if rs("weixiu_zhuangtai")<>"" then%><font color="#FF0000"><font color=red><b>√</b></font><%else%><a href='admin_fankui.asp?baoxiu_id=<%=rs("baoxiu_id")%>'><img border=0 src='images/reply.gif' alt='管理员维修反馈'></a><%end if%></td>
<td width="30" align="center" class="TableRow2" ><a href='admin_baoxiu_edit.asp?baoxiu_id=<%=rs("baoxiu_id")%>'><img border=0 src='images/edit.gif' alt='编辑该报修信息'></a></td>
<td width="30" align="center" class="TableRow2" ><A href="ip.asp?ip=<%=rs("ip")%>" target="_blank"><img border=0 src='images/ip.gif' alt='报修IP：<%=rs("ip")%>' align=absmiddle></A></td>
<td width="30" align="center" class="TableRow2"><input name="BoxUser" type="checkbox" value="<%=rs("baoxiu_id")%>"></td>
</tr>
<%
repeat_rows = repeat_rows + 1
rs.MoveNext
Wend
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td height="8" colspan=5></td>
</tr>
<tr>
<td><table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#799AE1" bordercolordark="#ffffff">
<tr>
<td><table width="98%" border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td width="69%">[<font color=red><%=pageno%></font>/<%=rs.pagecount%>] | [每页<font color=red><%=rs.PageSize%></font>条] | [共<font color=red><%=rs_total%></font>条]
<%
if(pageno <> 1)then
%>
<a href="?condition=<%=getcondition%>&key=<%=getkey%>">第一页</a>
<%
end if
%>
<%
if(pageno <> 1)then
%>
<a href="?condition=<%=getcondition%>&key=<%=getkey%>&pageno=<%=(pageno-1)%>">上一页</a>
<%
end if
%>
<%
'这里要判断一下pageno和rs.pagecount的值相等的情况，如果不判断，当它俩的值相等时，pageno<>cstr(rs.pagecount)还是true
if(instr(pageno,cstr(rs.pagecount)) = 0)then
%>
<a href="?condition=<%=getcondition%>&key=<%=getkey%>&pageno=<%=(pageno+1)%>">下一页</a>
<%
end if
%>
<%
if(instr(pageno,cstr(rs.pagecount)) = 0)then
%>
<a href="?condition=<%=getcondition%>&key=<%=getkey%>&pageno=<%=rs.pagecount%>">最后一页</a>
<%
end if
rs.close
set rs = nothing
%></td>
<td width="3%"></td>
<td width="19%" align=right nowrap>[<a style="color:red;cursor:hand;" onClick="Check1(Del_baoxiu)">删除</a>]
<%'这里用这几个隐藏域是为了把显示这个页面所需的参数传递到删除页面，然后再由删除页面传回本页面。%>
<input type="hidden" name="condition2" value="<%=getcondition%>">
<input type="hidden" name="key" value="<%=getkey%>">
<input type="hidden" name="pageno" value="<%=getpageno%>"></td>
<td width="6%" align="right" nowrap>[全选/反选]</td>
<td width="3%" height="26" align=center nowrap><input type="checkbox" name="checkbox" onClick="CheckAll(this.form.BoxUser,this.form.checkbox)"></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table>
</form> </td>
</tr>
</table>
</table>
<!--#include file="copyright.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -