news.asp

本系统采用ASP作为开发环境

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="../../Conn/conn.asp" --> 
<% 
sql="insert into tb_Log(Name,Content,IssueDate) values('"&_
 session("Admin")&"','进行"&Request.QueryString("action")&"类新闻信息查看','"&Now()&"')"
rs.open sql,conn
set rs=nothing
conn.close
set conn=nothing
%> 
<table width="483" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
<td height="20"> <table width="483" border="0" align="center" cellpadding="0" cellspacing="2"> 
	<tr bgcolor="#214994"> 
	  <td width="37" height="20" bgcolor="#214994" class="wenbenkuang"><div align="center" class="style6">ID</div></td> 
	  <td width="294" class="wenbenkuang"><div align="center" class="style6">新闻标题</div></td> 
	  <td width="72" class="wenbenkuang"><div align="center" class="style6">信息类别</div></td> 
	  <td width="70" class="wenbenkuang"><div align="center" class="style6">发布时间</div></td> 
	</tr> 
  </table></td> 
</tr> 
<tr> 
<td height="408" align="center" valign="top"> <table width="483" border="0" cellspacing="2" cellpadding="0"> 
	<!-- #include File="../../Conn/conn.asp" --> 
	<% 
	id=Request.Querystring("id")
	rs.pagesize=14
	pages=cInt(Request.Querystring("page"))
	If pages=0 Then pages=1 End If 
	If id="" Then 
		sql="Select * from tb_News where Style='"&Request.Querystring("action")&"' order by IssueDate DESC"
	Else 
		If not isnumeric(id) Then num=0 Else num=id End If 
		sql="Select * from tb_News where (ID="&num&" or Title='"&id&"') and Style='"&_
		Request.Querystring("action")&"' order by IssueDate DESC"
	End If 
	rs.open sql,conn,1,3
	If not rs.Eof or not rs.bof Then
		rs.absolutepage=pages
		row=0
		While Not rs.Eof and row<rs.pagesize
	%> 
	<tr bgcolor="#FFFFFF"> 
	  <td width="37" height="20" class="wenbenkuang"><div align="center" class="style7"><%=rs("ID")%></div></td> 
	  <td width="292" class="wenbenkuang"><div align="center" class="style7"><a href="#" onclick="window.open('../Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')"><%=rs("Title")%></a></div></td> 
	  <td width="72" class="wenbenkuang"><div align="center" class="style7"><%=rs("Type")%></div></td> 
	  <td width="72" class="wenbenkuang"><div align="center" class="style7"><%=rs("IssueDate")%></div></td> 
	</tr> 
	<% 
			row=row+1
			rs.movenext
		Wend
	%> 
	<% 	If pages=1 Then %> 
		<% If pages<>rs.PageCount Then %> 
		<tr> 
		  <td  align="right" colspan="4">&nbsp;</td> 
		</tr> 
		<tr> 
		  <% style=Request.Querystring("style")%> 
		  <td  align="right" colspan="4"> <a href="Manager.asp?action=<%=style%>&page=<%=(pages+1)%>"> <img src="../Image/foldernew.gIf" border="0" width="32" height="32"> </a> </td> 
		</tr> 
		<% End If %> 
	<%Else%> 
		<% If pages<rs.PageCount Then %> 
		<tr> 
		  <td  align="right" colspan="4" > <a href="Manager.asp?action=<%=style%>&page=<%=(pages-1)%>"> <img src="../Image/off.gIf" border="0" width="32" height="32"></a>  <a href="Manager.asp?action=<%=style%>&page=<%=(pages+1)%>"> <img src="../Image/foldernew.gIf" width="32" border="0" height="32"></a>  </td> 
		</tr> 
		<% Else %> 
		<tr> 
		  <td  align="right" colspan="4"> <a href="Manager.asp?action=<%=style%>&page=<%=(pages-1)%>"> <img src="../Image/off.gIf" border="0" width="32" height="32"></a>  </td> 
		</tr> 
		<% End If %> 
	<% End If%> 
<% End If%> 
  </table></td> 
</tr> 
</table>