<!--#include file =conn.asp-->
<%
dim sql
dim ipage
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from party order by star_time DESC"
rs.open sql,conn,1,1
rs.PageSize = 10 '每頁顯示記錄數
rs.Open "SELECT * FROM Chapter8",cn,adopenstatic,adLockReadonly
If Len(Request("page")) = 0 Then
ipage = 1
Else
ipage = Request("page")
End if
rs.AbsolutePage = iPage '顯示當前頁等於接收的頁數
%>
<html>
<title>西安昆侖小學設備報修系統</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
<style>
<!--
#fps0 {cursor: hand}
#fps1 {color:#ffffff;}
-->
</style>
<BODY LEFTMARGIN="0" MARGINWIDTH="0" TOPMARGIN="2" MARGINHEIGHT="2" style="text-align:center" background="images/bg.gif">
<!--#include file =top.asp-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file =head.asp--></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#CCCCCC" align="center">
<tr align="center" bgcolor="#C4E8FF">
<td width="10%" height="25"><strong>部門或班級</strong></td>
<td width="32%"><strong>報修原因</strong></td>
<td width="15%" height="25"><strong>報修物品</strong></td>
<td width="10%"><strong>報修人</strong></td>
<td width="14%" height="25"><strong>報修時間</strong></td>
<td width="9%" height="25"><strong>是否修復</strong></td>
<td width="10%" height="25"><strong> 修復時間</strong></td>
</tr>
<%
For i =1 To rs.PageSize
If Not rs.Eof Then
%>
<%party_id=rs("party_id")%>
<tr align="center" bgcolor="#FFFFFF">
<td height="21" width="10%" bgcolor="#FFFFFF"><%=rs("party_add")%><%=rs("party_Sign")%></td>
<td width="32%"><a href=partyxs.asp?party_id=<%=party_id%> ><%=rs("party_info")%></a></td>
<td width="15%" height="21"><a href=partyxs.asp?party_id=<%=party_id%> ><%=rs("party_link")%><font color="#0066FF"></font></a></td>
<td width="10%"><%=rs("party_user")%></td>
<td width="14%" height="21"><font color="#0000FF"><%=rs("star_time")%></font></td>
<td width="9%" height="21"><font color="#0000FF">
<% set rsb=server.createobject("adodb.recordset")
sql="select * from guestbook where party_id=" & party_id
rsb.open sql,conn,3,2
%>
<%=rsb("publink")%></font></td>
<td width="10%" height="21"><font color="#0000FF"><%=rsb("pubtime")%></font>
<% rsb.Close
Set rsb = Noting
%>
</td>
</tr>
<%
End if
If Not rs.Eof Then rs.movenext
Next
%>
</table></td>
</tr>
</table>
<%
sql="select * from party order by star_time desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>暫時沒有信息!</p>"
end if
%>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center" bgcolor="#C4E8FF">
<td width="10%" height="25"><strong>部門或班級</strong></td>
<td width="32%" height="25"><strong>報修原因</strong></span></td>
<td width="15%" height="25"><strong>報修物品</strong></td>
<td width="10%" height="25"><strong>報修人</strong></td>
<td width="14%" height="25"><strong>報修時間</strong></td>
<td width="9%" height="25"><strong>是否修復</strong></td>
<td width="10%" height="25"><strong> 修復時間</strong></td>
</tr>
</table>
<p align="center">
<%
If CInt(ipage) = 1 Then
%>
第壹頁|上壹頁|
<%
Else
%>
<a href="default.asp?page=1">第壹頁</a>|
<a href="default.asp?page=<% = ipage - 1 %>">上壹頁</a>|
<%
End If
%>
<%
If CInt(ipage) = CInt(rs.PageCount) Then
%>
下壹頁|最後壹頁
<%
Else
%>
<a href="default.asp?page=<% = ipage + 1 %>">下壹頁</a>|
<a href="default.asp?page=<% = rs.PageCount %>">最後壹頁</a>
<%
End If
%>
<%
rs.close
Set rs = Nothing
%>
</p>
<!--#include file =bottom.asp-->
</BODY>
</HTML>