default.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")&"','成功登录后台管理页面','"&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">
		<div align="center" class="style6">ID</div></td> 
		<td width="294" align="center"><div class="style6">新闻标题</div></td> 
		<td width="72"><div align="center" class="style6">信息类别</div></td> 
		<td width="70"><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" --> 
<% 
rs.pagesize=14
pages=cInt(Request.Querystring("page"))
If pages=0 Then pages=1 End If 
sql="Select * from tb_News order by IssueDate DESC"
rs.open sql,conn,1,3
	If not rs.Eof or not rs.bof Then
		rs.absolutepage=cint(pages)
		row=0
		While Not rs.Eof and row<rs.pagesize
	%> 
  <tr bgcolor="#FFFFFF"> 
	<td width="37" height="20" class="wenbenkuang" align="center"><%=rs("ID")%></td> 
	<td width="292" class="wenbenkuang" align="center">
	<a href="#" onclick="window.open('../Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes')"><%=rs("Title")%></a></td> 
	<td width="72" class="wenbenkuang" align="center"><%=rs("Type")%></td> 
	<td width="72" class="wenbenkuang" align="center"><%=rs("IssueDate")%></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?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?page=<%=(pages-1)%>">
			 <img src="../Image/off.gIf" border="0" width="32" height="32"></a>
			   <a href="Manager.asp?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?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>