www.gusucode.com > 25175 学生成绩管理查询系统码程序 > post_list.asp

    <!-- #include file="config.asp" -->
<!-- #include file="inc/NK_SqlIn.Asp" -->
<!-- #include file="conn.asp" -->
<%
'====================================================================
'25175成绩查询管理系统
'powered by 25175
'=-------------------------------------------------------------------
'= 文件名称：guestbook.asp
'= 摘    要：用户留言列表
cj_webtit="系统公告"
cj_webmap="系统公告"

'= 最后日期：2006-3.1
'====================================================================
	id=request("id")
	number=request.querystring("number")
	count=request.querystring("count")
	data=request.querystring("data")
	If id="" And number<>"" Then 
	set rs=conn.execute("SELECT top "&number&" * FROM cj_post order by data desc")
		if rs.eof and rs.bof then %>
		 document.write('没有');
		<%
		else  
		do while not rs.eof
			If count="" Then 
				nn=8
			Else 
				nn=count
			End If 
		title=replace(title,"<br>","")
		title=trim(rs("title"))
		title=left(title,nn)
		'response.write left(title,nn)
		'response.end
		
			
				If data<>"0" Then
	%>
				document.write('·<A href="<%=cj_SystemFolder%>post_list.asp?id=<%=rs("id")%>" title="<%=title%>" target="_blank"><%=title%></A><font color=#ffffff>......</font><%=rs("data")%><br>');
				<%Else %>
				document.write('·<A href="<%=cj_SystemFolder%>post_list.asp?id=<%=rs("id")%>" title="<%=title%>" target="_blank"><%=title%></A><br>');
		<%		End If	
		rs.movenext 
	loop 
	End If 
		Rs.Close
	set Rs=Nothing
	response.End 
	%>

<%
Else
%>
<!-- #include file="inc/top.asp" -->
<%If id="" And number="" Then 
	page = CLng(request("page"))                            '利用CLng函数把page值转换为Long型
	judge=request("judge")
	judge2=request("judge2")
	judge3=0
	sql="select * from cj_post order by id desc"
	rs.Open sql,conn,1,1
	if not (rs.EOF or rs.BOF) Then
%>
<table cellSpacing="0" align="center" cellPadding="0" width="100%" height="200" border="0">
	<tr>
		<td rowspan=2></td>
		<td valign="top">
			<table cellSpacing="0" align="center" cellPadding="0" width="60％" border="0">
				<tr bgcolor="#F0F0F0">
					<td width="50%">公告标题</td>
					<td width="35%">发布时间</td>
				</tr>
			<%
					rs.MoveFirst
					rs.PageSize = 10  '每页显示的条数
					If page < 1 Then page = 1 
					If page > rs.PageCount Then page = rs.PageCount  
					rs.AbsolutePage = page
					For ipage = 1 To rs.PageSize
			%>
				<tr onmouseover="bgColor='#f4f5f5'" onmouseout="bgColor='#ffffff'">
					<td class="style4" onClick="window.location.href='<%=cj_SystemFolder%>post_list.asp?id=<%=rs("id")%>'">·<%=rs("title")%></td>
					<td class="style4"><%=rs("data")%></td>
				</tr>
			<%
					rs.MoveNext      
					If rs.EOF Then Exit For   
					Next
					End If 
			%>
			</table>
		</td>
	</tr>
	<tr>
		<td>
			<table border="0" align="center" cellpadding="0" cellspacing="0" width="60%">
				<tr>
					<form onSubmit="return test();" method="get" action="post_list.asp" id=form2 name=form2>
					<td width="220" height="25" bgcolor="#F0F0F0" >
						<%
							If page = 1 Then 
								Response.Write "<font class='white'>第一页　上一页</font>" 
							End If
							If page <> 1 Then 
								Response.Write "<a href=post_list.asp?page=1 class='yellow'>第一页</a>" 
								Response.Write "　<a href=post_list.asp?page=" & (page - 1) & " class='yellow'>上一页</a>" 
							End If
							If page <> RS.PageCount Then 
								Response.Write "　<a href=post_list.asp?page=" & (page + 1) & " class='yellow'>下一页</a>" 
								Response.Write "　<a href=post_list.asp?page=" & RS.PageCount & " class='yellow'>最后一页</a>" 
							End If 
							If page = RS.PageCount Then 
								Response.Write "　<font class='white'>下一页　最后一页</font>" 
							End If
						%>
					</td>
					<td height="25" bgcolor="#E4E4E4" >GOTO页数：
						<%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>"  '显示输入页数框并将page,judge参数传递下去%></td>
					</form>
				</tr>
				<tr>
					<td class="white" colspan="2" height="25" >共有<%=rs.recordCount%>条回复　总页数：<%=rs.PageCount%>　当前页次：<%=page%> 
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
<%ElseIf id<>"" Then 
	sql="select * from cj_post where id="&id
	rs.Open sql,conn,1,1
	if rs.EOF or rs.BOF Then
		response.write "<script language=JavaScript>" & chr(13) &"window.location.href = '"&cj_SystemFolder&"error.asp?error=非法ＩＤ！&pages=2&url="&http&"'"&" </script>"
		Response.End
	End If
%>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="60%">
    <tr>
		<td align=center><br><font color="#FF0000"><b><%=rs("title")%></b></font><br><br></td>
	</tr>
	<tr>
		<td align=center class="style4">from:<a href=<%=cj_weburl%>><%=cj_website%></a> 　 data:<%=rs("data")%>
		</td>
	<tr><td valign=top height=170><br><br>&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("content")%></td>
	</tr>
	<tr><td align=right>
			<br>&nbsp;&nbsp;&nbsp;&nbsp;－－站长：<%=cj_ceo%>
		</td>
	</tr>
	<tr><td align=center>
			[<a href="<%=cj_SystemFolder%>post_list.asp">返回页面</a>]-
			[<a href="<%=cj_SystemFolder%>index.asp">回到首页</a>]-
			[<a href="#" onclick="javascript:window.close()">关闭窗口</a>]
		</td>
	</tr>
</table>
<%
End If
End If
%> 
<!-- #include file="inc/BOTTOM.asp" -->