orderpaper.aspx

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

ASPX
114 行
字号 
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<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 btnOrder_Click(sender As Object, e As System.EventArgs)

Dim intLoop as integer
objConn.Open
IF chkDMX.Checked = "True" Then  AddNew(1)
IF chkASPNET.Checked = "True" Then  AddNew(2)
IF chkJSP.Checked = "True" Then  AddNew(3)
Response.Redirect("OrderList.aspx?OrdereMail=" & txteMail.Text)

End Sub 

Sub　btnUpdate_Click(sender As Object, e As System.EventArgs)
　　Response.Redirect("OrderList.aspx")
End Sub 

Sub AddNew(ByVal intCatID as integer )
strUpdate = ""
strUpdate  ="INSERT INTO OrderList (OrderID , OrdereMail,  CatID) " & _
            "VALUES ('" & txtID.Text &  "','" & txteMail.Text & "'," & intCatID & ")"

Dim cmd as New System.Data.OleDb.OleDbCommand(strUpdate,objConn)
cmd.ExecuteNonQuery
End Sub
</Script>

<!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">
<!--
.style2 {font-size: 16px; }
.style3 {
	font-size: x-large;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<form name='form1' method='POST'  runat="server">
  <div align="center">
    <table width="521" height="116" border="0">
      <tr>
        <td width="159" height="17">&nbsp;</td>
        <td width="352">&nbsp;</td>
      </tr>
      <tr>
        <td height="17" colspan="2"><div align="center"><span class="style3">订阅电子报刊
          </span>
          </div>
        <hr></td>
      </tr>
      <tr>
        <td height="17"><div align="right" class="style2">称谓：</div></td>
        <td><div align="left">
          <asp:TextBox ID="txtID" runat="server" />        
        </div></td>
      </tr>
      <tr>
        <td height="7"><div align="right" class="style2">电子邮件：</div></td>
        <td>
          <div align="left">
            <asp:TextBox ID="txteMail" runat="server" />          
       </div></td>
      </tr>
      <tr>
        <td height="8"><div align="left"></div></td>
        <td><div align="left">
          <asp:Button ID="btnOrder" Text="订阅" runat="server" OnClick = btnOrder_Click />        
          <asp:Button ID="btnUpdate" Text="修改订阅内容" runat="server" OnClick = btnUpdate_Click />        
        </div></td>
      </tr>
      <tr>
        <td height="2" colspan="2"><hr align="center">      </td>
      </tr>
      <tr>
        <td height="3"><div align="center">
        </div></td>
        <td height="3">
          <div align="left">
            <asp:CheckBox ID="chkDMX" Text="Dreamweaver MX 2004 技术类" runat="server" Checked="true"  />                      
        </div></td>
      </tr>
      <tr>
        <td height="8">&nbsp;</td>
        <td height="8"><div align="left">
          <asp:CheckBox ID="chkASPNET" Text="ASP.NET技术类" runat="server" Checked="true" />        
        </div></td>
      </tr>
      <tr>
        <td height="8">
          <div align="center">
    </div></td>
        <td height="8">
          <div align="left">
            <asp:CheckBox ID="chkJSP" Text="JSP技术类" runat="server" Checked="true" />                    
        </div></td>
      </tr>
    </table>
  </div>
    
</form>
</body>
</html>

orderpaper.aspx - 源码说明

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

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

⌨️ 快捷键说明

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