forumlist.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" %>

<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 dgForum_DeleteCommand(sender As Object, e As DataGridCommandEventArgs)
    
	strUpdate = "DELETE From ForumList WHERE ForID =" & e.Item.Cells(0).Text & " OR RID =" &  e.Item.Cells(0).Text
    objConn.Open()
	Dim cmd as New System.Data.OleDb.OleDbCommand(strUpdate,objConn)
	cmd.ExecuteNonQuery  	
	
	objConn.Close()	
	Response.redirect("ForumList.aspx")
End Sub 

Sub  btnNew_Click(sender As Object, e As System.EventArgs)
  Response.redirect("ForumPost.aspx")
End Sub 

</script>
<%
If Len(Session("AdminID")) > 0 Then
  dgForum.Columns(7).Visible = true 
Else  
  dgForum.Columns(7).Visible = False 
End If

%>
<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 RID = ?" %>'
PageSize="10"
Debug="true"
>
  <Parameters>
    <Parameter  Name="@RID"  Value='<%# "-1" %>'  Type="Integer"   />  
  </Parameters>
  <EditOps>
    <EditOpsTable Name="ForumList" />
    <Parameter Name="ForID" Type="Integer" IsPrimary="true" />    
  </EditOps>
</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>Dreamweaver MX 2004 技术论坛</title>
<style type="text/css">
<!--
.style1 {
	font-size: large;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<form runat="server">
  
  <div align="left">
    <table width="914" border="0">
      <tr>
        <td width="18" height="25">&nbsp;</td>
        <td width="331"><span class="style1">Dreamweaver MX 2004 技术论坛 </span></td>
        <td width="551"><asp:Button ID="btnNew" Text="我要发言" runat="server" OnClick ="btnNew_Click"/></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2"><hr></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2"><asp:DataGrid 
  AllowCustomPaging="true" 
  AllowPaging="true" 
  AllowSorting="false" 
  AutoGenerateColumns="false" 
  CellPadding="3" 
  CellSpacing="0" DataKeyField="ForID" 
  DataSource="<%# dsForum.DefaultView %>" ID="dgForum" 
  PagerStyle-Mode="NextPrev" 
  PageSize="<%# dsForum.PageSize %>" 
  runat="server" 
  ShowFooter="false" 
  ShowHeader="true" 
  OnPageIndexChanged="dsForum.OnDataGridPageIndexChanged" OnDeleteCommand="dsForum.OnDataGridDelete"  virtualitemcount="<%# dsForum.RecordCount %>" 
>
            <headerstyle BackColor="#E8EBFD" Font-Bold="true" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" ForeColor="#3D3DB6" HorizontalAlign="Left" VerticalAlign="Middle" />      
            <itemstyle BackColor="#F2F2F2" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />      
            <alternatingitemstyle BackColor="#E5E5E5" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />      
            <footerstyle HorizontalAlign="center" BackColor="#E8EBFD" ForeColor="#3D3DB6" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Bold="true" Font-Size="smaller" />      
            <pagerstyle BackColor="white" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />      
            <columns>
            <asp:BoundColumn DataField="ForID" 
        HeaderText="ForID" 
        ReadOnly="true" 
        Visible="false"/>            
<asp:HyperLinkColumn 
        HeaderText="主题" 
        Visible="True"
        DataTextField="ForTitle"
        DataNavigateUrlField="ForID"
        DataNavigateUrlFormatString="ForumDetail.aspx?ForID={0}"/>            
<asp:BoundColumn DataField="ForPostName" 
        HeaderText="作者" 
        ReadOnly="true" 
        Visible="True"/>
<asp:BoundColumn DataField="FortPostMail" 
        HeaderText="作者电子邮件" 
        ReadOnly="true" 
        Visible="True"/>
<asp:BoundColumn DataField="ForPostTime" 
        HeaderText="发表时间" 
        ReadOnly="true" 
        Visible="True"/>
<asp:BoundColumn DataField="ForHits" 
        HeaderText="点击数" 
        ReadOnly="true" 
        Visible="True"/>
<asp:BoundColumn DataField="ResponseN" 
        HeaderText="回复数" 
        ReadOnly="true" 
        Visible="True"/>
 <asp:ButtonColumn 
        ButtonType="PushButton" 
        CommandName="Delete" 
        HeaderText="删除" 
        Text="删除" 
        Visible="True"/>            
</columns>
            </asp:DataGrid>
          <div align="center"></div>
        <div align="left"></div></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2">&nbsp;</td>
      </tr>
    </table>
  </div>
</form>
</body>
</html>

forumlist.aspx - 源码说明

本页面展示了「用VB实现」中的 forumlist.aspx 源码文件，采用 ASPX 编程语言编写，共 153 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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