📄 ky.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" bgColor="#006699" width="750" 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">
<br><font color=red>
<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="NewsList" runat="server">
<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="到第一页" />
<asp:LinkButton id="prepage" runat="server" onClick="prepage_Click" text="上一页" />
<asp:LinkButton id="nextpage" runat="server" onClick="nextpage_Click" text="下一页" />
</td></tr>
</asp:Panel>
</table>
</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> </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=4
End If
If NewsCat<1 Or NewsCat>6 Then
NewsCat=1
End If
Select Case NewsCat
Case 1:
Ptitle.text="Dot.Net动态"
Ltitle.text="ASP.Net专业动态"
Case 2:
Ptitle.text="Dot.Net行业动态"
Ltitle.text="Dot.Net行业动态"
Case 3:
Ptitle.text="Dot.Net专业知识"
Ltitle.text="Dot.Net专业知识"
Case 4:
Ptitle.text="考研与就业"
Ltitle.text="考研与就业"
Case 5:
Ptitle.text="本站其他信息"
Ltitle.text="本站其他信息"
Case 6:
Ptitle.text="Dot.Net论坛精华区"
Ltitle.text="论坛精华区"
End Select
PageSize=20
CurP=CInt(pagenow.value)
Dim MyNews As NewsDB=New NewsDB()
MyNews.NewsCat=NewsCat
MyNews.PageSize=PageSize
TotalPage=1
Dim DV3 As DataView=MyNews.GetNewsList(CurP, TotalPage)
NewsList.DataSource=DV3
NewsList.DataBind()
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 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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -