themessage.aspx

来自「用VB实现」· ASPX 代码 · 共 144 行

ASPX
144 行
字号 
<%@ Page Language="VB" ContentType="text/html" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<script runat="server" >
Sub btnEdit_OnClick(sender As Object, e As System.EventArgs)
  Response.redirect("login.aspx")
End Sub

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

</script>
<MM:DataSet 
id="dsMessage"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_cnn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_cnn") %>'
CommandText='<%# "SELECT * FROM PMessage ORDER BY msg_PDate DESC" %>'
Debug="true" PageSize="10"
>
  <EditOps>
    <EditOpsTable Name="PMessage" />
    <Parameter Name="msg_ID" Type="Integer" IsPrimary="true" /></EditOps>
</MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<%

If  Session("AdminID") <> ""  Then 

    dgMessage.Columns(5).visible = true 
	dgMessage.Columns(4).visible = true 
	btnEdit.visible = false 
Else 
	dgMessage.Columns(5).visible = false 
	dgMessage.Columns(4).visible = false 
	btnAdd.visible = false 
	
End If 

%>
<!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">
<!--
.style7 {
	font-size: x-large;
	color: #000099;
	font-weight: bold;
}
.style8 {
	font-size: large;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<div align="center">
  <div align="center"><form runat="server">
    <table width="762" border="0">
      <tr>
        <td width="752"><div align="center" class="style1">
          <div align="center"><span class="style7">新闻信息公告系统</span>
            </div>          <hr align="center">
	   
	  </td>
      </tr>
      <tr>
        <td><asp:DataGrid 
  AllowCustomPaging="true" 
  AllowPaging="true" 
  AllowSorting="False" 
  AutoGenerateColumns="false" 
  CellPadding="3" 
  CellSpacing="0" DataKeyField="msg_ID" 
  DataSource="<%# dsMessage.DefaultView %>" ID="dgMessage" 
  PagerStyle-Mode="NextPrev" 
  PageSize="<%# dsMessage.PageSize %>" 
  runat="server" 
  ShowFooter="false" 
  ShowHeader="true" 
  OnPageIndexChanged="dsMessage.OnDataGridPageIndexChanged" OnDeleteCommand="dsMessage.OnDataGridDelete" 
  virtualitemcount="<%# dsMessage.RecordCount %>" 
>
            <headerstyle HorizontalAlign="center" BackColor="#E8EBFD" ForeColor="#3D3DB6" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Bold="true" Font-Size="smaller" />      
            <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="msg_PDate" 
        HeaderText="发布日期" 
        ReadOnly="true" 
        Visible="True"/>      
            <asp:BoundColumn DataField="msg_Title" 
        HeaderText="公告标题" 
        ReadOnly="true" 
        Visible="True"/>      
            <asp:HyperLinkColumn 
        headertext="阅读新闻" 
        Visible="True"
        text="[详细...]"
        DataNavigateUrlField="msg_ID"
        DataNavigateUrlFormatString="MsgDetail.aspx?msg_ID={0}"/>      
            <asp:BoundColumn DataField="msg_PName" 
        HeaderText="发布人员" 
        ReadOnly="true" 
        Visible="True"/>      
            <asp:HyperLinkColumn 
        HeaderText="编辑" 
        Visible="True"
        Text="修改"
        DataNavigateUrlField="msg_ID"
        DataNavigateUrlFormatString="MsgEdit.aspx?msg_ID={0}"/>      
            <asp:ButtonColumn 
        ButtonType="PushButton" 
        CommandName="Delete" 
        HeaderText="删除" 
        Text="删除" 
        Visible="True"/>      
      </columns>
        </asp:DataGrid></td>
      </tr>
<tr>
        <td><div align="center" class="style8"></div></td>
      </tr>
      <tr>
        <td>
          <div align="center">
            <asp:Button  ID="btnEdit" runat="server" Text="编辑..." OnClick="btnEdit_OnClick" />            
            <asp:Button  ID="btnAdd" runat="server" Text="添加" OnClick="btnAdd_OnClick" />            </div>
       </td>
      </tr>
    </table> 
  </form>
    </div>
  </div>
</body>
</html>

themessage.aspx - 源码说明

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

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

⌨️ 快捷键说明

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