newpaperlist.aspx

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

ASPX
109 行
字号 
<%@ 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 Not Len(Session("AdminID")) > 0 Then 
     Response.Redirect("login.aspx")
End IF 
%>

<script runat="server">
Sub btnAdd_Click(sender As Object, e As System.EventArgs)
    Response.Redirect("paperPublish.aspx")
End Sub 
</script>
<MM:DataSet 
id="dsNewsPaper"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT newsPaper.* , Cat.CatName From newsPaper INNER JOIN Cat ON   newsPaper.npCatID= Cat.CatID" %>'
Debug="true" PageSize="10"
></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: x-large;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<form runat="server">
  
  <div align="center">
    <table width="782" border="0">
      <tr>
        <td width="772"><div align="center" class="style1">电子报刊主题列表</div></td>
      </tr>
      <tr>
        <td><asp:DataGrid ID="dgNewsPaper" 
  runat="server" 
  AllowSorting="False" 
  AutoGenerateColumns="false" 
  CellPadding="3" 
  CellSpacing="0" 
  ShowFooter="false" 
  ShowHeader="true" 
  DataSource="<%# dsNewsPaper.DefaultView %>" 
  PagerStyle-Mode="NextPrev" 
  AllowPaging="true" 
  AllowCustomPaging="true" 
  PageSize="<%# dsNewsPaper.PageSize %>" 
  virtualitemcount="<%# dsNewsPaper.RecordCount %>" 
  OnPageIndexChanged="dsNewsPaper.OnDataGridPageIndexChanged" 
>
            <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="CatName" 
        HeaderText="分类" 
        ReadOnly="true" 
        Visible="True"/>            
            <asp:HyperLinkColumn 
        headertext="主题" 
        Visible="True"
        DataTextField="npTitle"
        DataNavigateUrlField="npID"
        DataNavigateUrlFormatString="newsPaperDetail.aspx?npID={0}"  />            
            <asp:BoundColumn DataField="npPDate" 
        HeaderText="发表日期" 
        ReadOnly="true" 
        Visible="True"/>            
<asp:TemplateColumn HeaderText="状态" Visible="True">
              <itemtemplate><%# IIF(dsNewsPaper.FieldValue("npPChecked", Container)=True, "已发行","未发行") %> </itemtemplate>
            </asp:TemplateColumn>
            <asp:HyperLinkColumn 
        HeaderText="变更" 
        Visible= "True"
        Text="编辑"
        DataNavigateUrlField="npID"
        DataNavigateUrlFormatString="paperModify.aspx?npID={0}"/>            
</columns>
          </asp:DataGrid></td>
      </tr>
      <tr>
        <td><asp:Button ID="btnAdd" runat="server" Text="添加电子报刊"  OnClick="btnAdd_Click" />
          <div align="center"></div>
          <div align="center"></div>
        <div align="center"></div></td>
      </tr>
          </table>
  </div>
</form>
</body>
</html>

newpaperlist.aspx - 源码说明

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

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

⌨️ 快捷键说明

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