index.asp

ASP+Accesss数据库设备WEB报修

<!--#include file ="conn.asp"-->
<!--#include file ="head.asp"-->
<%
if session("flag")="登录" then
'插入系统日志
sql_log = "INSERT INTO Tab_Log (UserName,dTime,dIP) VALUES ('"&session("baoxiuuser_name")&"','"&now()&"','" &request.servervariables("remote_addr")& "') "
conn.execute(sql_log)
session("flag")=""
end if
%>
<%
sql="select * from baoxiu order by baoxiu_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1

rs.pagesize=""&topshu&""
'实现分页
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="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table  width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder5">
      <tr>
        <td width="105" height="30" align="center" class="TableTitle1" ><strong> 报修编号</strong></td>
        <td width="75" height="30" align="center" class="TableTitle1" ><strong> 部门或班级</strong></td>
        <td width="245" align="center" class="TableTitle1" ><strong>报修原因</strong></td>
        <td width="70" align="center" class="TableTitle1" ><strong>报修物品</strong></td>
        <td width="50" height="30" align="center" class="TableTitle1" ><strong>报修人</strong></td>
        <td width="70" align="center" class="TableTitle1" ><strong>报修时间</strong></td>
        <td width="60" height="30" align="center" class="TableTitle1" ><strong>维修状态</strong></td>
        <td width="70" align="center" class="TableTitle1" ><strong>维修时间</strong></td>
      </tr>
      <%
		      If(rs.Eof)Then
		      %>
      <tr>
        <td height="120" colspan="9" align="center" class="TableBody1">没有报修记录！</td>
      </tr>
<!--#include file ="bottom.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="105" height="30" align="center" class="TableBody1" ><a href="baoxiu_list.asp?baoxiu_id=<%=baoxiu_id%>"><font color="#0099FF"><%=rs("bx_id")%></font></a></td>
        <td width="75" height="30" align="center" class="TableBody1" >         
		<% 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="245" height="30" align="center"  class="TableBody1" >
       		<%
				If(Len(rs("baoxiu_yuanyin")) > 12)Then 
				Response.Write("<a href='baoxiu_list.asp?baoxiu_id="&rs("baoxiu_id")&"'>"&(Mid(rs("baoxiu_yuanyin"),1,12))&"…</a>")
				Else
				Response.Write("<a href='baoxiu_list.asp?baoxiu_id="&rs("baoxiu_id")&"'>"&(rs("baoxiu_yuanyin"))&"</a>")
				End If
			    %>
        </td>
        <td width="70" height="30" align="center" class="TableBody1" >
		<% 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="50" height="30" align="center" class="TableBody1" ><%=rs("baoxiu_user")%></td>
        <td width="70" align="center" class="TableBody1" ><%=rs("star_time")%></td>
        <td width="60" height="30" align="center" class="TableBody1" ><%if rs("weixiu_zhuangtai")<>"" then%><font color="#FF0000"><%=rs("weixiu_zhuangtai")%></font><%else%><b>×</b><%end if%></td>
        <td width="70" align="center"  class="TableBody1"><%if rs("weixiu_zhuangtai")<>"" then%><font color="#FF0000"><%=rs("weixiu_time")%></font><%else%><b>×</b><%end if%></td>
      </tr>
      <%
	          repeat_rows = repeat_rows + 1
	          rs.MoveNext
	          Wend
	          %>
    </table>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="302" height="30">[<font color=red><%=pageno%></font>/<%=rs.PageCount%>]&nbsp;每页<font color=red><%=rs.PageSize%></font>条&nbsp;共<font color=red><%=rs_total%></font>条记录 </td>
          <td width="171">&nbsp;</td>
          <td width="277"><span>
            </span>
            <div align="right">
              <table width="100" height="20" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="96" align="right"><%for i=1 to maxpage%>
                    [<a href="index.asp?pageno=<%=i%>"><%=i%></a>]
                    <%next%>                  </td>
                </tr>
              </table>
            </div>
            <% 
			rs.close
			Set rs = Nothing
			%></td>
        </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file ="bottom.asp"-->