forumdetail.aspx
来自「用VB实现」· ASPX 代码 · 共 153 行
ASPX
153 行
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<%
If Request.QueryString("AddNew") = "True" Then
strUpdate = "Update ForumList SET ResponseN = ResponseN+1 WHERE ForID=" & Request.QueryString("ForID")
Else
strUpdate = "Update ForumList SET ForHits = ForHits+1 WHERE ForID=" & Request.QueryString("ForID")
End If
objConn.Open()
Dim cmd as New System.Data.OleDb.OleDbCommand(strUpdate,objConn)
cmd.ExecuteNonQuery
objConn.Close()
%>
<script runat="server">
Dim strUpdate as String = ""
Dim strConn as String = System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn")
Dim objConn as New System.Data.OleDb.OleDbConnection(strConn)
Sub btnResponse_OnClick(sender As Object, e As System.EventArgs)
Response.Redirect("ForumRPost.aspx?ForID=" & Request.QueryString("ForID"))
End Sub
Sub btnDelete_Click(sender As Object, e As System.EventArgs)
strUpdate = "DELETE From ForumList WHERE ForID =" & sender.CommandName
objConn.Open()
Dim cmd as New System.Data.OleDb.OleDbCommand(strUpdate,objConn)
cmd.ExecuteNonQuery
cmd.CommandText = "Update ForumList SET ResponseN = ResponseN-1 WHERE ForID=" & Request.QueryString("ForID")
cmd.ExecuteNonQuery
objConn.Close()
Response.redirect("ForumDetail.aspx?ForID=" & Request.QueryString("ForID"))
End Sub
</script>
<MM:DataSet
id="dsForum"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT * FROM ForumList WHERE ForID = ?" %>'
Debug="true"
>
<Parameters>
<Parameter Name="@ForID" Value='<%# IIf((Request.QueryString("ForID") <> Nothing), Request.QueryString("ForID"), "") %>' Type="Integer" /> </Parameters>
</MM:DataSet>
<MM:DataSet
id="dsForumDetail"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT * FROM ForumList WHERE RID = ?" %>'
Debug="true"
>
<Parameters>
<Parameter Name="@RID" Value='<%# IIf((Request.QueryString("ForID") <> Nothing), Request.QueryString("ForID"), "") %>' Type="Integer" />
</Parameters>
</MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>帖子细节</title>
<style type="text/css">
<!--
.style1 {
font-size: 16px;
font-weight: bold;
}
.style2 {font-size: medium}
-->
</style>
</head>
<body>
<form runat="server">
<div align="center">
<table width="781" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td ><table width="765" border="0">
<tr>
<td width="148" align="left" valign="top" bgcolor="#CCFFCC" ><div align="center" class="style2"><strong>作者</strong></div></td>
<td width="193" align="left" valign="top" bgcolor="#CCFFCC" ><%# dsForum.FieldValue("FortPostMail", Container) %></td>
<td width="337" align="left" valign="top" bgcolor="#CCFFCC" ><div align="right" class="style1 style2">
<div align="center"><strong>发表时间 ：</strong> <%# dsForum.FieldValue("ForPostTime", Container) %></div>
</div></td>
<td width="69" align="left" valign="top" bgcolor="#CCFFCC" ><div align="right"><span class="style1"><a href="ForumList.aspx">返回主页</a></span></div></td>
</tr>
<tr>
<td rowspan="3" align="left" valign="top" bgcolor="#CCFFCC"><div align="center" class="style2">
<%# dsForum.FieldValue("ForPostName", Container) %></div></td>
<td colspan="3" align="left" valign="top"><strong><%# dsForum.FieldValue("ForTitle", Container) %></strong>
<hr size="1" noshade></td>
</tr>
<tr>
<td height="15" colspan="3" align="left" valign="top"><%# dsForum.FieldValue("ForContent", Container) %></td>
</tr>
<tr>
<td height="23" colspan="3" align="RIGHT" valign="top"><asp:Button ID="btnResponse" runat="server" Text="回复" OnClick="btnResponse_OnClick" />
<div align="right"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td><MM:If runat="server" Expression='<%# (dsForumDetail.RecordCount > 0) %>'>
<ContentsTemplate>
<ASP:Repeater runat="server" DataSource='<%# dsForumDetail.DefaultView %>'>
<ItemTemplate>
<table width="765" border="0">
<tr>
<td width="123" bgcolor="#CCFFFF"><div align="center"><strong>作者</strong></div></td>
<td width="312" bgcolor="#CCFFFF"><div align="left"><%# dsForumDetail.FieldValue("FortPostMail", Container) %></div></td>
<td width="312" bgcolor="#CCFFFF"><strong>发表时间 ：<%# dsForumDetail.FieldValue("ForPostTime", Container) %></strong></td>
</tr>
<tr>
<td bgcolor="#CCFFFF"><%# dsForumDetail.FieldValue("ForPostName", Container) %></td>
<td colspan="2"><div align="left"><%# dsForumDetail.FieldValue("ForTitle", Container) %>
</div> <hr align="left" size="1" noshade></td>
</tr>
<tr>
<td rowspan="2" bgcolor="#CCFFFF"> </td>
<td colspan="2"><div align="left"><%# dsForumDetail.FieldValue("ForContent", Container) %></div></td>
</tr>
<tr>
<td height="23" colspan="2"><div align="right">
<%
If Len(Session("AdminID")) > 0 Then
%>
<asp:Button CommandName='<%# dsForumDetail.FieldValue("ForID", Container) %>' ID="btnDelete" runat="server" Text="删除" OnClick = "btnDelete_Click"/>
<%
End If
%>
</div></td>
</tr>
</table>
<hr>
</ItemTemplate>
</ASP:Repeater>
</ContentsTemplate>
</MM:If></td>
</tr>
</table>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?