无标题文档
<![CDATA[
<body>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * from sjrj order by dateandtime DESC"
rs.open Sql,conn,3,2
rs.MoveFirst
%>
<table width="995" border="0" cellpadding="0" cellspacing="0" bgcolor="#eeeeee">
<!--DWLayoutTable-->
<tr>
<td width="231" rowspan="2" valign="top"><table width="231" height="442" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table width="231" height="442" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="231" height="105" valign="top"><img src="img/img12/view diary _r2_c1.jpg" width="231" height="105" /></td>
</tr>
<tr>
<td height="77" valign="top"><img src="img/img12/view diary _r3_c1.jpg" width="231" height="77" /></td>
</tr>
<tr>
<td height="113" valign="top"><img src="img/img12/view diary _r4_c1.jpg" width="231" height="113" /></td>
</tr>
<tr>
<td height="83" valign="top"><img src="img/img12/view diary _r5_c1.jpg" width="231" height="83" /></td>
</tr>
<tr>
<td height="64" valign="top"><img src="img/img12/view diary _r6_c1.jpg" width="231" height="64" /></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="357" rowspan="2" align="center" valign="top" bgcolor="#eeeeee"><% rs.MoveFirst%><a href="sjrjnv01.asp?newid=<%=rs("newid")%>&typeid=<%=rs("typeid")%>"><img src="showimg001.asp?newid=<%=rs("newid")%>" width="295" height="442" border="0"></a></td>
<td width="407" height="51" valign="top"><img src="img/img12/message_r8_c9_r3_c3.gif" width="407" height="51" /></td>
</tr>
<%
rs.close
set rs=nothing
%>
<span class="STYLE2">
<tr>
<td height="391" valign="top">
<%
dim n
n=6
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * from sjrjv order by date DESC"
rs.open Sql,conn,3,2
rs.pagesize=6
if rs.Eof then
rs_total = 0
else
rs_total = rs.RecordCount
end if
getpageno = (Request("pageno"))
if(getpageno = "")then
pageno = 1
else
pageno = getpageno
End if
if(not rs.Eof)then
rs.AbsolutePage = pageno
%>
<table width="405" border="0" cellpadding="0" classs="style2">
<%
do while not rs.eof
%>
<tr>
<td width="375" valign="top" bgcolor="#eeeeee"><font color="#666666"><span class="STYLE6"><%= rs("date") %>
</span></td>
</tr>
<tr><td valign="top" bgcolor="#eeeeee"><img src="img/img12/01.gif" width="375" height="10" /></td>
</tr>
<tr><td bgcolor="#eeeeee"><span class="STYLE7"></span>
</tr>
<tr><td valign="top" bgcolor="#eeeeee"><span class="STYLE6"><a href="sjrjnv11.asp?id=<%=rs("id")%>"><%= rs("title") %></a>
</span></td>
</tr>
<tr><td valign="top" bgcolor="#eeeeee"><img src="img/img12/01.gif" width="375" height="10" />
</td>
</tr>
<%n=n-1
if n<1 then exit do
rs.movenext
loop
%>
</div></td>
</tr>
<tr>
<td><table height="33" width="400">
<tr>
<td width="395" height="27" align="right" valign="top" class="style4 STYLE7 STYLE8">
<table height="33" width="400">
<tr>
<td width="395" height="27" align="right" valign="top" class="style4 STYLE7 STYLE8">[<%=pageno%>/<%=rs.PageCount%>] 每页<%=rs.PageSize%>条 共<%=rs_total%>条记录
<%
if(pageno <> 1)then
%>
<a href="sjrj.asp">首页</a>
<%
End if
if(pageno <> 1)then
%>
<a href="sjrj.asp?pageno=<%=(pageno-1)%>">上一页</a>
<%
end if
if(instr(pageno,cstr(rs.pagecount)) = 0)then
%>
<a href="sjrj.asp?pageno=<%=(pageno+1)%>">下一页</a>
<%
end if
if(instr(pageno,cstr(rs.pagecount)) = 0)then
%>
<a href="sjrj.asp?pageno=<%=rs.pagecount%>">尾页</a>
<%
end if
rs.close
Set rs = Nothing
end if
%> </td>
</tr>
</table>
</td>
</tr>
</table> </td>
</table>
</td>
</tr>
</table>
</body>
]]>