作者 主題: 新手又來發問了aspx如何將資料立即加總秀出  (閱讀 5236 次)

0 會員 與 1 訪客 正在閱讀本文。

chocobo2002

  • 可愛的小學生
  • *
  • 文章數: 15
    • 檢視個人資料
以下是很醜的程式語法, 但是小弟功力真的不足, 請多包涵
基本功能就是user下單按"送出"後會mail訂單結果給我和user及存入sql資料庫,

但是實在不知道要怎麼把加總結果total秀出給user看
===============================================
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Web.Mail" %>


姓名: <asp:TextBox runat="server" id="name" value = "您好" /><br>
聯絡電話: <asp:TextBox runat="server" id="tel" value = "(00)12345678" /><br>
行動電話: <asp:TextBox runat="server" id="tel2" value = "0912345678" /><br>
電子郵件信箱: <asp:TextBox runat="server" id="email" />
<asp:RequiredFieldValidator runat="server" Text="請填入您的e-mail"
     ControlToValidate="Email" Display="Dynamic"/>
<asp:RegularExpressionValidator runat="server"
         ControlToValidate="Email" Text="(Email 應含有 @ 符號)"
         ValidationExpression=".{1,}@.{3,}" Display="Dynamic"/>
<br>
<asp:Button runat="server" Text="送出訂單" OnClick="InsertData" />
</Blockquote>
<HR><asp:Label runat="server" id="Msg" ForeColor="Red" />
</Form>
</Body>
</Html>

<script Language="VB" runat="server">

   Sub InsertData(sender As Object, e As EventArgs)

      Dim mail As MailMessage = New MailMessage
      mail.To         = email.text
      mail.bcc = "xxx@xxx.net.tw"

      mail.From       = "xxx@xxx.net.tw"
      mail.Subject    = "謝謝您的訂單"
      mail.BodyFormat = mailformat.html
      mail.Body       = "姓名:" & name.text & "<br>" & "電話:" & tel.text & "<br>" & "手機:" & tel2.text & "<br>==訂單名細如下==" & "<br>" & " 黑熊  " & b1.text & "<br>" & " 灰熊  " & b2.text & "<br>" & " 咖啡熊 " & b3.text & "<br>" & " 米熊  " & b4.text & "<br>" & " 紫熊  " & b5.text & "<br>" & " 桃紅熊 " & b6.text & "<br>" & " 芒果熊 " & b7.text & "<br>" & " 咖啡狐 " & f1.text & "<br>" & " 米狐  " & f2.text & "<br>" & " 灰狗  " & d1.text & "<br>" & " 咖啡狗 " & d2.text & "<br>" & " 米狗  " & d3.text & "<br>" & " 咖啡猴 " & m1.text & "<br>" & " 米猴  " & m2.text & "<br>================"

      On Error Resume Next
      SmtpMail.SmtpServer = "xxx.xxx.com.tw"
      SmtpMail.Send(mail)

      Dim Conn As SqlConnection
      Dim Cmd  As SqlCommand

      Conn = New SqlConnection("server=xxx.xx.xx.xx;" & _
                               "database=order;" & _
                               "user id=xxx;password=xxx")
      Conn.Open()

      Dim SQL As String
      SQL = "Insert Into ordermain (orderdate, name, tel, tel2, email, b1, b2, b3, b4, b5, b6, b7, f1, f2, d1, d2, d3, m1, m2, total ) Values( @orderdate, @name, @tel, @tel2, @email, @b1, @b2, @b3, @b4, @b5, @b6, @b7, @f1, @f2, @d1, @d2, @d3, @m1, @m2, @total)"
      Cmd = New SqlCommand( SQL, Conn )

      Cmd.Parameters.Add( New SqlParameter("@orderdate", SqlDbType.char, 40))
      Cmd.Parameters.Add( New SqlParameter("@name", SqlDbType.char, 30))
      Cmd.Parameters.Add( New SqlParameter("@tel", SqlDbType.char, 15))
      Cmd.Parameters.Add( New SqlParameter("@tel2", SqlDbType.char, 15))
      Cmd.Parameters.Add( New SqlParameter("@email", SqlDbType.char, 30))
      Cmd.Parameters.Add( New SqlParameter("@b1", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@b2", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@b3", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@b4", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@b5", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@b6", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@b7", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@f1", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@f2", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@d1", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@d2", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@d3", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@m1", SqlDbType.char, 10))
      Cmd.Parameters.Add( New SqlParameter("@m2", SqlDbType.char, 10))


      Cmd.Parameters.Add( New SqlParameter("@total", SqlDbType.char, 10))


      Cmd.Parameters("@name").Value = name.Text
      Cmd.Parameters("@tel").Value = tel.Text
      Cmd.Parameters("@tel2").Value = tel2.Text
      Cmd.Parameters("@email").Value = email.Text
      Cmd.Parameters("@b1").Value = Val(b1.Text)
      Cmd.Parameters("@b2").Value = Val(b2.Text)
      Cmd.Parameters("@b3").Value = Val(b3.Text)
      Cmd.Parameters("@b4").Value = Val(b4.Text)
      Cmd.Parameters("@b5").Value = Val(b5.Text)
      Cmd.Parameters("@b6").Value = Val(b6.Text)
      Cmd.Parameters("@b7").Value = Val(b7.Text)
      Cmd.Parameters("@f1").Value = Val(f1.Text)
      Cmd.Parameters("@f2").Value = Val(f2.Text)
      Cmd.Parameters("@d1").Value = Val(d1.Text)
      Cmd.Parameters("@d2").Value = Val(d2.Text)
      Cmd.Parameters("@d3").Value = Val(d3.Text)
      Cmd.Parameters("@m1").Value = Val(m1.Text)
      Cmd.Parameters("@m2").Value = Val(m2.Text)

      cmd.parameters("@total").value = val(b1.text) * 50 + val(b2.text) * 50 + val(b3.text) * 50 + val(b4.text) * 50 + val(b5.text) * 50 + val(b6.text) * 50 + val(b7.text) * 50 + val(f1.text) * 50 + val(f2.text) * 50 + val(d1.text) * 50 + val(d2.text) * 50 + val(d3.text) * 50 + val(m1.text) * 80 + val(m2.text) * 80
      cmd.parameters("@orderdate").value = now
      Cmd.ExecuteNonQuery()
      If Err.Number <> 0 Then
         Msg.Text = Err.Description
      Else
         Msg.Text = "訂單己送出我們會儘快與您聯絡"
      End If

      Conn.Close()
   End Sub
</script>

chocobo2002

  • 可愛的小學生
  • *
  • 文章數: 15
    • 檢視個人資料
新手又來發問了aspx如何將資料立即加總秀出
« 回覆 #1 於: 2003-08-27 17:40 »
終於try出來了, 原來就是這麼簡單.....

Dim total As String
total = cmd.parameters("@total").value
Msg.Text = "訂單己送出,我們會儘快與您聯絡, 您的訂單總金額為 " & total & " 元,謝謝您的惠顧"