📄 bbsview.aspx

📁 ASP_NET程序设计教程源代码冶金工业出版社肖金秀冯沃辉　陈少涌
💻 ASPX
字号:
<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Globalization" %>
<% @ 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" %>
<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 openwin(url,w,h) {
	window.open(url,"","top=50,left=150,height="+h+",width="+w+",toolbar=0,location=0,directories=0,menubar=0,scrollbars=0,resizable=yes,status=0");
}
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="75%" valign="top" bgcolor="#FFFFFF" height="228" background="images/ldb.gif">
		<br><font color="#FF0000">Dot.Net论坛欢迎您！</font>
		<br><img border="0" src="images/line.gif" width="400" height="12"><br><br>
<asp:Repeater id="bbscontent" runat="server">
	<HeaderTemplate>
		<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
	</HeaderTemplate>
	<ItemTemplate>
			<tr><td width="100%">
			<table border="0" cellpadding="0" cellspacing="0" width="100%">
				<tr><td width="100%" background="images/bar3.gif"><img border="0" src="images/face/face<%#DataBinder.Eval(Container.DataItem, "BBSface") %>.gif" width="15" height="15"> 
				<font color="#FFFFFF"><%# DataBinder.Eval(Container.DataItem, "BBSTitle") %></font></td></tr>
				<tr><td width="100%">作者：<a href="javascript:openwin('info.aspx?name=<%#DataBinder.Eval(Container.DataItem, "BBSAuthor") %>',332,320)" class="author">
				<%#DataBinder.Eval(Container.DataItem, "BBSAuthor") %></a>
				发表于：<%# DataBinder.Eval(Container.DataItem, "BBSTime") %>
				点击次数：<%# DataBinder.Eval(Container.DataItem, "BBSClicks") %></td><tr>
				<td width="100%" bgcolor="#E7F4DD"><br>
				<%# DataBinder.Eval(Container.DataItem, "BBSContent") %>
				<br><br></td></tr>
				<tr><td width="100%" align="right">
				<a href="bbssay.aspx?t=2&id=<%# DataBinder.Eval(Container.DataItem, "BBSId") %>">回复</a>&nbsp; 
				<a href="bbssay.aspx?t=3&id=<%# DataBinder.Eval(Container.DataItem, "BBSId") %>">编辑</a>&nbsp; 
				<a href="bbssay.aspx?t=4&id=<%# DataBinder.Eval(Container.DataItem, "BBSId") %>">删除</a>&nbsp;
				<a href="bbs.aspx">返回论坛</a><br></td></tr>
			</table></td></tr>
	</ItemTemplate>
	<FooterTemplate>
		</table>
	</FooterTemplate>
</asp:Repeater>

<br>本话题讨论列表：<br>
<asp:Repeater id="BBSList" runat="server" visible="true">
	<HeaderTemplate>
		<table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">
	</HeaderTemplate>
	<ItemTemplate>
			<tr><td width="100%"<%#CheckLevel1(Container.DataItem("level")) %>>
			<table border="0" cellpadding="0" cellspacing="0" width="100%">
				<tr><td width="<%#DataBinder.Eval(Container.DataItem, "level")*20 %>"> </td>
				<td><img border="0" src="images/face/face<%#DataBinder.Eval(Container.DataItem, "BBSface") %>.gif" width="15" height="15"> 
				<a href="bbsview.aspx?id=<%#DataBinder.Eval(Container.DataItem, "BBSID") %>" class="level<%#CheckLevel2(Container.DataItem("level")) %>">
				<%#DataBinder.Eval(Container.DataItem, "BBSTitle") %>
				</a></td>
				<td width="15%">
				<a href="info.aspx?name=<%#DataBinder.Eval(Container.DataItem, "BBSAuthor") %>" class="author">
				<%#DataBinder.Eval(Container.DataItem, "BBSAuthor") %></a></td>
				<td width="26%">
				<%#ShowTime(Container.DataItem("BBSTime")) %>
				</td></tr>
			</table></td> 
			</tr>
	</ItemTemplate>
	<FooterTemplate>
		</table>
	</FooterTemplate>
</asp:Repeater>
		
	</td>
	<tr><td width="75%" valign="bottom" bgcolor="#FFFFFF" height="80" align="right" background="images/ldb.gif">
	<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 BBSId As Integer

	Sub Page_Load(Sender As Object, e As EventArgs)
		Try
			BBSId=CInt(Request("id"))
		Catch
			Response.Redirect("bbs.aspx")
		End Try
		freshlist()
	End Sub

	Sub freshlist()
		Dim MyBBS As BBSDB=New BBSDB()
		BBSList.DataSource=MyBBS.GetBBSTree(BBSId)
		BBSList.DataBind()
		BBSContent.DataSource=MyBBS.GetBBS1(BBSId)
		BBSContent.DataBind()
	End Sub

	Function CheckLevel1(ByVal level As Integer) As String
		If level=0 Then
			Return " background=images/bar3.gif"
		Else
			Return ""
		End If
	End Function

	Function CheckLevel2(ByVal level As Integer) As String
		If level=0 Then
			Return "1"
		Else
			Return "2"
		End If
	End Function

	Function ShowTime(ByVal t As DateTime) As String
		Return t.ToString("MMM.d, H:mm:ss", DateTimeFormatInfo.InvariantInfo)
	End Function

</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.level1:link {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : white;
	text-decoration : none;
}
a.level1:visited {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : white;
	text-decoration : none;
}
a.level1:hover {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : white;
	text-decoration : underline;
}
a.level2:link {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : #00A71C;
	text-decoration : none;
}
a.level2:visited {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : #00A71C;
	text-decoration : none;
}
a.level2:hover {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : #00A71C;
	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 + -