sendnews.aspx

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

ASPX
148 行
字号 
<%@ Page Language="VB" ContentType="text/html"  %>
<%@ 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 SendMail(Byval strTo as string )
		
		Dim objMailMessage As New System.Web.Mail.MailMessage()
		Dim objMailAttachment As System.Web.Mail.MailAttachment
		
        objMailMessage.To =strTo
		objMailMessage.From = "sendMailAddress"
		objMailMessage.Subject = tbSubject.text
		objMailMessage.Body = tbBody.text
		
		objMailMessage.BodyFormat =System.Web.Mail.MailFormat.Html
		
		System.Web.Mail.SmtpMail.SmtpServer ="127.0.0.1"
        System.Web.Mail.SmtpMail.Send(objMailMessage)			
        
    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:DataSet 
id="dsCat"
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 Cat WHERE CatID = ?" %>'
Debug="true"
>
  <Parameters>
    <Parameter  Name="@CatID"  Value='<%# IIf((Request.QueryString("CatID") <> Nothing), Request.QueryString("CatID"), "") %>'  Type="Integer"   />
  </Parameters>
</MM:DataSet>
<MM:DataSet 
id="dsOrderList"
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 OrderList WHERE CatID = ?" %>'
Debug="true"
>
  <Parameters>
    <Parameter  Name="@CatID"  Value='<%# IIf((Request.QueryString("CatID") <> Nothing), Request.QueryString("CatID"), "") %>'  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">
<!--
.style5 {
	font-size: large;
	font-weight: bold;
}
.style6 {font-size: medium; }
.style7 {
	font-size: x-large;
	font-weight: bold;
}
.style8 {font-size: large}
-->
</style>
</head>
<body>
<form name='form1' method='POST'  runat="server">
  <div align="center">
    <asp:TextBox ID="tbSubject" runat="server" text='<%# dsnewsPaper.FieldValue("npTitle", Container) %>'　visible = false />  
    <asp:TextBox ID="tbBody" runat="server" text='<%# dsnewsPaper.FieldValue("npContent", Container) %>' visible = false />  
    <%
Dim ds as New System.Data.DataSet
Dim strConn as String  =  System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn")
Dim strSql as string  = "SELECT * FROM OrderList WHERE CatID= "  & Request.QueryString("CatID") 
Dim strUpdate as String  = "UPDATE newsPaper SET npPChecked=True WHERE npID=" & Request.QueryString("npID") 
Dim da as New System.Data.OleDb.OleDbDataAdapter(strSql, strConn)

da.Fill(ds, "OrderList")

dim RoweMail as System.Data.DataRow
For Each RoweMail in ds.Tables(0).Rows
      SendMail(RoweMail("OrdereMail"))
Next
Dim objConn as  New System.Data.OleDb.OleDbConnection(strConn) 
Dim cmd as New System.Data.OleDb.OleDbCommand(strUpdate,objConn) 
objConn.Open
cmd.ExecuteNonQuery

%>
    <table width="386" height="177" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td colspan="2"><div align="center"><span class="style5">发行信息
        </span>          
            <hr>
        </div></td>
      </tr>
      <tr>
        <td width="115" height="28" bgcolor="#99CCCC"><div align="right" class="style8">标题 </div></td>
        <td width="271"><div align="left" class="style8"><%# dsnewsPaper.FieldValue("npTitle", Container) %></div></td>
      </tr>
      <tr>
        <td height="27" bgcolor="#99CCCC"><div align="right" class="style8">发行日期</div></td>
        <td><div align="left" class="style8"><%# dsnewsPaper.FieldValue("npPDate", Container) %></div></td>
      </tr>
      <tr>
        <td height="25" bgcolor="#99CCCC"><div align="right" class="style8">发行种类</div></td>
        <td><div align="left" class="style8"><%# dsCat.FieldValue("CatName", Container) %></div></td>
      </tr>
      <tr>
        <td height="27" bgcolor="#99CCCC"><div align="right" class="style8">发行量</div></td>
        <td><div align="justify" class="style8"><%= dsOrderList.RecordCount %></div></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td colspan="2"><hr></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td colspan="2"><div align="right" class="style6"></div>          
        <div align="center" class="style7"><a href="newPaperList.aspx" class="style8">返回主页</a></div></td>
      </tr>
    </table>
  </div>
</form>   

</body>

</html>

sendnews.aspx - 源码说明

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

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

⌨️ 快捷键说明

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