顯示文章

這裡允許您檢視這個會員的所有文章。請注意, 您只能看見您有權限閱讀的文章。


文章 - chocobo2002

頁: [1]
1
引述: "coffeefish"
耶!如果都不要的話不是下
>/var/spool/mail/root  就可以了嗎?


rm /var/spool/mail/root  可以, 感謝上面的所有大大....

努力修行中......

2
........糟糕
我的問題真的太笨了, 殘念.....
我會努力的

3
我的root快被炸爆了, 廣告信一堆......, 請問大大要如何把信一次全刪了啊?

4
終於try出來了, 原來就是這麼簡單.....

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

5
以下是很醜的程式語法, 但是小弟功力真的不足, 請多包涵
基本功能就是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>

6
系統安全討論版 / 桌面及.exe全部無法執行
« 於: 2003-07-07 13:59 »
引述: "hoyo"
http://www.hoyo.idv.tw/software/winsvrc/winsvrc.htm


感謝大大, 我立刻去試試

7
系統安全討論版 / 桌面及.exe全部無法執行
« 於: 2003-07-07 11:57 »
我的windows2000桌面及.exe全部無法執行, 只能使用執行,執行.com的檔案,
記得這個好像是個病毒可是不知那位大大可以告訴我病毒名稱或解決方法
感激不盡!!

8
.NET程式設計討論區 / aspx如何連sql
« 於: 2003-06-30 10:02 »
連上了.....
原來是我豬頭, 多加了括狐, 居然搞了好多天....
這真是個好地方, 一post上來就想通了

9
.NET程式設計討論區 / aspx如何連sql
« 於: 2003-06-30 09:24 »
對不起, 因為最近在學習aspx, 但是連最基本的sql都連不上, 好苦....
所以想請問大大, 若是我的sql不是和iis主機同一台而 ip是61.228.45.55
資料表是order
那我conn下怎麼下才連的上呢...
=============================================
Dim Conn As SqlConnection ' 宣告一個 Connection 物件
Dim Cmd  As SqlCommand  ' 宣告一個 Command 物件
Dim Rd   As SqlDataReader ' 宣告一個 DataReader 物件

Conn = New SqlConnection("server=(local)\NetSDK;" & _
                               "database=pubs;" & _
                               "Trusted_Connection=Yes")
=============================================
感謝會的大大幫忙......, 我真的想搞會電子商務T_T

10
<asp:checkboxlist runat = "server" id="p1" selectionmode = "multiple">
        <asp:listitem>a產品_*****_</asp:listitem>
        <asp:listitem>b產品_*****_</asp:listitem>
        <asp:listitem>c產品_*****_</asp:listitem>
        <asp:listitem>d產品_*****_</asp:listitem>
</asp:checkboxlist>

例如我想在上面*號的地方加入textbox有辦法嗎?
感謝大大的幫忙

11
程式討論版 / 踩地雷看不懂TˍT|||
« 於: 2003-04-28 11:27 »
感謝任俠大大

12
程式討論版 / 踩地雷看不懂TˍT|||
« 於: 2003-04-28 09:32 »
8) 是8).....

13
程式討論版 / 踩地雷看不懂TˍT|||
« 於: 2003-04-28 09:27 »
以下是踩地雷的程式碼,那個大大可以大略的幫我解釋每一段的大概意思嗎
還有Array是什麼功用嗎
先謝謝願意看的大大的大恩大德了

Dim piclist(2) As StdPicture
Dim game_status
Dim flag_list(63), llist(63)
Dim starttime
 
'載入表單的事件程式
Private Sub Form_Load()
 Dim i, r, c, x, Y, w, h
  picname = Array("but01", "but02", "but03")
 For i = 0 To 2
  Set piclist(i) = LoadPicture(App.Path & "\圖片\" & picname(i) & ".jpg")
 Next i
 lb(0).Left = but(0).Left
 lb(0).Top = but(0).Top + 8
 x = but(0).Left
 Y = but(0).Top
 w = but(0).Width + 1
 h = but(0).Height + 1
 '複製按鈕和數字
 For i = 1 To 63
  Load but(i)
  Load lb(i)
  r = Int(i / 8)
  c = i Mod 8
  but(i).Left = x + w * c
  but(i).Top = Y + h * r
  but(i).Visible = True
  lb(i).Left = but(i).Left
  lb(i).Top = but(i).Top + 8
  lb(i).Visible = True
 Next i
End Sub
 
'起始表單的事件程式
Private Sub Form_Activate()
 Call reset_game
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 End
End Sub

'按下按鈕的事件程式
Private Sub but_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim px, py As Integer
If game_status = 1 Then
 If Button = 1 And flag_list(Index) = 0 Then
     '按下左鍵
     Select Case llist(Index)
     Case 0:
        px = Index Mod 8
        py = Int(Index / 8)
        Call free_landmine(px, py)
     Case 9:
        Set but(Index).Picture = piclist(2)
        game_status = 0
        lb_feedback.Caption = "踩到地雷了!"
        lb_feedback.Visible = True
     Case Else:
        but(Index).Visible = False
        flag_list(Index) = 1
     End Select
 End If
 If Button = 2 And flag_list(Index) <> 1 Then
     '按下右鍵
     flag_list(Index) = 2 - flag_list(Index)
     If flag_list(Index) = 0 Then
       Set but(Index).Picture = piclist(0)
     Else
       Set but(Index).Picture = piclist(1)
     End If
 End If
 If check_finish() = 0 Then
   game_status = 0
   lb_feedback.Caption = "恭喜您!過關了!"
   lb_feedback.Visible = True
 End If
 
End If
End Sub
 
'按下 Restart 鍵的事件程式
Private Sub Command1_Click()
 Call reset_game
End Sub
 
'按下 Quit 鍵的事件程式
Private Sub Command2_Click()
 Form2.Hide
 Form1.Show
End Sub
'重設遊戲狀態的副程式
Private Sub reset_game()
 Dim i, j, x As Integer
 lb_feedback.Visible = False
  '產生地雷陣列
 For i = 0 To 63
  If i < 10 Then
   '以數字9代表地雷
   llist(i) = 9
  Else
  '以數字0代表沒有地雷
   llist(i) = 0
  End If
 Next i
 '隨機排列地雷陣列
 For i = 0 To 63
  j = Int(Rnd() * 64)
  x = llist(i)
  llist(i) = llist(j)
  llist(j) = x
 Next i
 Call count_mine
 '設定按鈕狀態
 For i = 0 To 63
  Set but(i).Picture = piclist(0)
  but(i).Visible = True
  flag_list(i) = 0
  If llist(i) = 0 Then
    lb(i).Caption = ""
  Else
    lb(i).Caption = llist(i)
  End If
 Next i
 game_status = 1
 starttime = Timer
 lb_time.Caption = "0"
End Sub
 
' 統計週邊地雷數
Private Sub count_mine()
   Dim c, i, px, py, xsize, xwidth
   xwidth = 8
   xsize = xwidth * xwidth
   For i = 0 To xsize - 1
        If llist(i) <> 9 Then
            px = i Mod xwidth
            py = Int(i / xwidth)
            c = 0
            '左上方(-1,-1)
            If ((px - 1) >= 0 And (py - 1) >= 0) Then
                If llist((px - 1) + (py - 1) * xwidth) = 9 Then
                    c = c + 1
                End If
            End If
            '上方(0,-1)
            If (py - 1) >= 0 Then
                If llist(px + (py - 1) * xwidth) = 9 Then
                    c = c + 1
                End If
            End If
            '右上方(+1,-1)
            If (px + 1) < xwidth And (py - 1) >= 0 Then
                If llist((px + 1) + (py - 1) * xwidth) = 9 Then
                    c = c + 1
                End If
            End If
            '左方(-1,0)
            If (px - 1) >= 0 Then
                If llist((px - 1) + py * xwidth) = 9 Then
                    c = c + 1
                End If
            End If
            '右方(+1,0)
            If (px + 1) < xwidth Then
                If llist((px + 1) + py * xwidth) = 9 Then
                    c = c + 1
                End If
            End If
            '左下方(-1,+1)
            If (px - 1) >= 0 And (py + 1) < xwidth Then
                If llist((px - 1) + (py + 1) * xwidth) = 9 Then
                    c = c + 1
                End If
            End If
            '下方(0, +1)
            If (py + 1) < xwidth Then
                If llist(px + (py + 1) * xwidth) = 9 Then
                    c = c + 1
                End If
            End If
            '右下方(+1,+1)
            If (px + 1) < xwidth And (py + 1) < xwidth Then
                If llist((px + 1) + (py + 1) * xwidth) = 9 Then
                    c = c + 1
                End If
            End If
            llist(i) = c
        End If
    Next i
End Sub
 

'顯示安全區
Private Sub free_landmine(ByVal px, py As Integer)
Dim i, xwidth As Integer
    xwidth = 8
    i = px + py * xwidth
    flag_list(i) = 1
    '左上方(-1,-1)
    If (px - 1) >= 0 And (py - 1) >= 0 Then
        i = (px - 1) + (py - 1) * xwidth
        but(i).Visible = False
        If llist(i) = 0 And flag_list(i) = 0 Then
            Call free_landmine(px - 1, py - 1)
        End If
        flag_list(i) = 1
    End If
    '上方(0,-1)
    If (py - 1) >= 0 Then
        i = px + (py - 1) * xwidth
        but(i).Visible = False
        If llist(i) = 0 And flag_list(i) = 0 Then
            Call free_landmine(px, py - 1)
        End If
        flag_list(i) = 1
    End If
    '右上方(+1,-1)
    If (px + 1) < xwidth And (py - 1) >= 0 Then
        i = (px + 1) + (py - 1) * xwidth
        but(i).Visible = False
        If llist(i) = 0 And flag_list(i) = 0 Then
            Call free_landmine(px + 1, py - 1)
        End If
        flag_list(i) = 1
    End If
    '左方(-1,0)
    If (px - 1) >= 0 Then
        i = (px - 1) + py * xwidth
        but(i).Visible = False
        If llist(i) = 0 And flag_list(i) = 0 Then
            Call free_landmine(px - 1, py)
        End If
        flag_list(i) = 1
    End If
    '右方(+1,0)
    If (px + 1) < xwidth Then
        i = (px + 1) + py * xwidth
        but(i).Visible = False
        If llist(i) = 0 And flag_list(i) = 0 Then
            Call free_landmine(px + 1, py)
        End If
        flag_list(i) = 1
    End If
    '左下方(-1,+1)
    If (px - 1) >= 0 And (py + 1) < xwidth Then
        i = (px - 1) + (py + 1) * xwidth
        but(i).Visible = False
        If llist(i) = 0 And flag_list(i) = 0 Then
            Call free_landmine(px - 1, py + 1)
        End If
        flag_list(i) = 1
    End If
    '下方(0,+1)
    If (py + 1) < xwidth Then
        i = px + (py + 1) * xwidth
        but(i).Visible = False
        If llist(i) = 0 And flag_list(i) = 0 Then
            Call free_landmine(px, py + 1)
        End If
        flag_list(i) = 1
    End If
    '右下方(+1,+1)
    If (px + 1) < xwidth And (py + 1) < xwidth Then
        i = (px + 1) + (py + 1) * xwidth
        but(i).Visible = False
        If llist(i) = 0 And flag_list(i) = 0 Then
            Call free_landmine(px + 1, py + 1)
        End If
        flag_list(i) = 1
    End If
End Sub
 
' 檢查是否已經完成的副程式
Function check_finish()
    Dim flag, i
    flag = 0
    For i = 0 To 63
        If llist(i) = 9 And flag_list(i) <> 2 Then
            flag = 1
            Exit For
        End If
        If flag_list(i) = 0 Then
            flag = 1
            Exit For
        End If
    Next i
    check_finish = flag
End Function
 
'時間事件程式
Private Sub Timer1_Timer()
 If game_status = 1 Then
  Call showtime
 End If
End Sub
 

'顯示時間的副程式
Sub showtime()
 Static x
 If x <> Timer - starttime Then
  x = Int(Timer - starttime)
  lb_time.Caption = x
 End If
End Sub

 :(

14
程式討論版 / 最近在學VB有一句看不大懂
« 於: 2003-04-16 08:58 »
瞭解了,謝謝大大

15
程式討論版 / 最近在學VB有一句看不大懂
« 於: 2003-04-15 11:34 »
我實在太菜了,底下的程式第一行的byval是做什麼用的啊.....請那位大大可以告知,謝謝
'從第一筆開始向下搜尋                                              
Function FindFirst(rs As ADODB.Recordset, ByVal criteria As String)
    On Error Resume Next                                          
    rs.MoveFirst                                                  
    rs.Find criteria                                              
    FindFirst = Not rs.EOF And Err.Number = 0                      
End Function

頁: [1]