📄 news.aspx

📁 ASP_NET程序设计教程源代码冶金工业出版社肖金秀冯沃辉　陈少涌
💻 ASPX
字号:
<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Data" %>
<% @ Register TagPrefix="pb" TagName="Header" Src="header.ascx" %>
<% @ Register TagPrefix="pb" TagName="Footer" Src="footer.ascx" %>
<% @ Register TagPrefix="pb" TagName="Login" Src="login.ascx" %>
<% @ Register TagPrefix="pb" TagName="Major" Src="major.ascx" %>
<% @ Register TagPrefix="pb" TagName="Pic" Src="pic.ascx" %>
<% @ Register TagPrefix="pb" TagName="Link" Src="link.ascx" %>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title><asp:Literal id="Ptitle" runat="server" /></title>
<script language="JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<link rel="stylesheet" type="text/css" href="pack.css">
</head>

<body topmargin="6" leftmargin="0" bgcolor="#eaeaea">

<form runat="server">

<pb:Header id="Header" runat="server" />

<div align="center">
<table border="0" cellpadding="0" cellspacing="1" width="750" bgColor="#006699" height="125">
	<tr><td width="25%" valign="top" background="images/bd.gif" rowspan="2" height="125">
	<pb:Login id="login" runat="server" />
	<pb:Major id="major" runat="server" /></td>
	<td width="50%" valign="top" bgcolor="#FFFFFF">

	&nbsp;<br>
	<font color="#FF0000" align="left">&nbsp; <asp:Literal id="Ltitle" runat="server" /></font><br>
	<img border="0" src="images/line.gif" width="400" height="12"><br>
	<asp:Label id="errormsg" runat="server" Text="SORRY! 本栏目现在尚无内容。" style="color:red" visible="false" />

<asp:Repeater id="TopNews" runat="server" Visible="true">
	<HeaderTemplate>
	<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
	</HeaderTemplate>
	<ItemTemplate>
		<tr><td width="100%" onMouseOver="javascript:this.style.color='#00A71C'" onMouseOut="javascript:this.style.color='#000000'">
<%#DataBinder.Eval(Container.DataItem, "NewsGeneral") %>
	<a href="newsshow.aspx?id=<%#DataBinder.Eval(Container.DataItem, "NewsID") %>">MORE&gt;&gt;&gt;</a></td></tr>
	</ItemTemplate>
	<SeparatorTemplate>
		<tr><td width="100%">&nbsp;</td></tr>
	</SeparatorTemplate>
	<FooterTemplate>
	</table><br>
	<img border="0" src="images/line.gif" width="400" height="12">
	</FooterTemplate>
</asp:Repeater>
<asp:Repeater id="LessLatestNews" runat="server" Visible="true">
	<HeaderTemplate>
	<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
	</HeaderTemplate>
	<ItemTemplate>
		<tr><td width="10%" align="center"><img border="0" src="images/news.gif" width="13" height="13"></td>
		<td width="90%"><a href="newsshow.aspx?id=<%#DataBinder.Eval(Container.DataItem, "NewsID") %>">
		<%# DataBinder.Eval(Container.DataItem, "NewsTitle") %></a></td></tr>
	</ItemTemplate>
	<FooterTemplate>
		<tr><td width="100%" align="right" colspan="2">
		<asp:LinkButton id="morenews" runat="server" onClick="morenews_Click" text="更多&gt;&gt;&gt;" /></td></tr>
	</table>
	</FooterTemplate>
</asp:Repeater>
<asp:Repeater id="NewsList" runat="server" Visible="false">
	<HeaderTemplate>
	<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
	</HeaderTemplate>
	<ItemTemplate>
		<tr><td width="10%" align="center"><img border="0" src="images/news.gif" width="13" height="13"></td>
		<td width="90%"><a href="newsshow.aspx?id=<%#DataBinder.Eval(Container.DataItem, "NewsID") %>">
		<%# DataBinder.Eval(Container.DataItem, "NewsTitle") %></a></td></tr>
	</ItemTemplate>
</asp:Repeater>
<asp:Panel id="pp" runat="server" visible="false">
		<tr><td width="100%" align="right" colspan="2">
		<input type="hidden" id="pagenow" runat="server" value="1">
		<asp:LinkButton id="toFirst" runat="server" onClick="toFirst_Click" text="到第一页" />&nbsp;
		<asp:LinkButton id="prepage" runat="server" onClick="prepage_Click" text="上一页" />&nbsp;
		<asp:LinkButton id="nextpage" runat="server" onClick="nextpage_Click" text="下一页" />
		</td></tr>
	</table>
</asp:Panel>

	</td>
	<td width="25%" valign="top" background="images/db.gif" align="right" rowspan="2" height="125">
	<pb:Pic id="pic" runat="server" />
	<pb:Link id="link" runat="server" /></td></tr>
	<tr><td width="50%" valign="bottom" bgcolor="#FFFFFF" height="80" align="right">
	<img border="0" src="images/pen.gif" width="400" height="80"><br>&nbsp;</td></tr>
</table>
</div>

<pb:Footer id="footer" runat="server" />

</form>

</body>

</html>

<script language="VB" runat="server">

	Dim PageSize As Integer
	Dim CurP As Integer
	Dim TotalPage As Integer
	Dim NewsCat As Integer

	Sub Page_Load(Sender As Object, e As EventArgs)
		If IsNumeric(Request("t")) Then
			NewsCat=CInt(Request("t"))
		Else
			NewsCat=1
		End If

		If NewsCat<1 Or NewsCat>2 Then
			NewsCat=1
		End If

		Select Case NewsCat
			Case 2:
				Ptitle.text="Dot.Net动态"
				Ltitle.text="Dot.Net动态"
			Case Else:
				Ptitle.text="郑州大学包装工程系Dot.Net动态"
				Ltitle.text="ASP.NET动态"
		End Select

		PageSize=20
		CurP=CInt(pagenow.value)
		If Not Page.IsPostBack Then
			Try
				Dim MyNews As NewsDB=New NewsDB()
				MyNews.NewsCat=NewsCat
				MyNews.TopNum=2
				MyNews.LessNum=3
				MyNews.PageSize=PageSize
				Dim DV1 As DataView=MyNews.GetTopNews()
				TopNews.DataSource=DV1
				TopNews.DataBind()
				Dim DV2 As DataView=MyNews.GetLessLatestNews()
				LessLatestNews.DataSource=DV2
				LessLatestNews.DataBind()
				Dim DV3 As DataView=MyNews.GetNewsList(CurP, TotalPage)
				NewsList.DataSource=DV3
				NewsList.DataBind()
				errormsg.Visible=false
			Catch
				errormsg.Visible=true
			End Try
		End If
		ppp
	End Sub

	Sub ppp
		If pp.Visible Then
			If CurP=1 Then
				toFirst.Visible=false
				prepage.Visible=false
			Else
				toFirst.Visible=true
				prepage.Visible=true
			End If
			If CurP<TotalPage Then
				nextpage.Visible=true
			Else
				nextpage.Visible=false
			End If
		End If
	End Sub

	Sub morenews_Click(Sender As Object, e As EventArgs)
		TopNews.Visible=false
		LessLatestNews.Visible=false
		NewsList.Visible=true
		pp.Visible=true
		ppp
	End Sub

	Sub toFirst_Click(Sender As Object, e As EventArgs)
		CurP=1
		pagenow.value="1"
		ppp
	End Sub

	Sub prepage_Click(Sender As Object, e As EventArgs)
		If CurP>1 Then
			CurP-=1
		Else
			CurP=1
		End If
		pagenow.value=CurP.ToString()
		ppp
	End Sub

	Sub nextpage_Click(Sender As Object, e As EventArgs)
		If CurP<TotalPage Then
			CurP+=1
		Else
			CurP=TotalPage
		End If
		pagenow.value=CurP.ToString()
		ppp
	End Sub

</script>
<style>
td {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-size : 10pt;
}
.whiteB {
	color: white;
	font-weight : bold;
}
input {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-size : 10pt;
}
td.bar {
	color: green; font-weight: bold;
}
a.whiteLink:link {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-weight : bold;
	color : white;
	text-decoration : none;
}
a.whiteLink:visited {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-weight : bold;
	color : white;
	text-decoration : none;
}
a.whiteLink:hover {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-weight : bold;
	color : white;
	text-decoration : none;
}
a.barLink:link {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : #CCFF99;
	text-decoration : none;
}
a.barLink:visited {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : #CCFF99;
	text-decoration : none;
}
a.barLink:hover {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : #CCFF99;
	text-decoration : underline;
}
a.author:link {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : black;
	text-decoration : none;
}
a.author:visited {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : black;
	text-decoration : none;
}
a.author:hover {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : black;
	text-decoration : underline;
}
</style>
💿 文件大小 3068 K
👤 上传用户 d_zhihua
📂 所属分类书籍源码
🏷️ 相关标签

#ASP_NET #程序设计 #教程 #工业
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -