newspaperdetail.aspx

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

ASPX
96 行
字号 
<%@ 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  btnPublish_OnClick(sender As Object, e As System.EventArgs)
   Response.Redirect("SendNews.aspx?npID="& Request.QueryString("npID") & "&CatID=" & txtCatID.TEXT)              
 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 * FROM newsPaper WHERE npID = ?"  %>'
Debug="true"
>
  <Parameters>
    <Parameter  Name="@npID"  Value='<%# IIf((Request.QueryString("npID") <> Nothing), Request.QueryString("npID"), "") %>'  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 {color: #FFFFFF}
.style3 {
	color: #333333;
	font-weight: bold;
	font-size: large;
}
.style4 {
	font-size: medium;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<form runat="server">
<table align="center">
<tr valign="baseline">
  <table width="646" align="center">
    <tr valign="baseline">
      <td align="right" nowrap><div align="center" class="style1">        
      </div></td>
      <td align="right" nowrap><div align="center"><span class="style1"><span class="style3">电子报刊内容</span></span></div></td>
      <td align="right" nowrap><span class="style4"><a href="newPaperList.aspx">返回主页</a></span></td>
    </tr>
    <tr valign="baseline">
      <td colspan="3" align="right" nowrap><hr></td>
    </tr>
    <tr valign="baseline">
      <td   align="right" nowrap bgcolor="#666666"><div align="right" class="style1">电子报刊主题：</div></td>
      <td width="542" colspan="2"><div align="left"><%# dsnewsPaper.FieldValue("npTitle", Container) %></div></td>
    </tr>
    <tr valign="baseline">
      <td height="18" align="right" nowrap bgcolor="#666666"><span class="style1">电子报刊类别：</span></td>
      <td colspan="2"><asp:TextBox ID="txtCatID" runat="server" text='<%# dsnewsPaper.FieldValue("npCatID", Container) %>' />      
      </td>
    </tr>
    <tr valign="baseline">
      <td align="right" valign="top" nowrap bgcolor="#666666"><span class="style1">内容：</span></td>
      <td colspan="2"><%# dsnewsPaper.FieldValue("npContent", Container) %> </td>
    </tr>
    <tr valign="baseline">
      <td colspan="3" align="right" nowrap bgcolor="#FFFFFF"><hr></td>
      </tr>
    <tr valign="baseline">
      <td align="right" nowrap bgcolor="#FFFFFF">&nbsp;</td>
	
      <td colspan="2"><MM:If runat="server" Expression = '<%# dsnewsPaper.FieldValue("npPChecked", Container) ="False" %>'>
        <ContentsTemplate>
          <asp:Button ID="btnPublish" runat="server" Text="发行" OnClick="btnPublish_OnClick"  />      
        </ContentsTemplate>
      </MM:If>      </td>
    </tr>
    <tr valign="baseline">
      <td align="right" nowrap bgcolor="#FFFFFF">&nbsp;</td>
      <td colspan="2">&nbsp;</td>
    </tr>
  </table>
</form>   
</body>

</html>

newspaperdetail.aspx - 源码说明

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

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

⌨️ 快捷键说明

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