The Moment

2008年3月22日星期六

修改自動撥放時的動作清單

其實是我自己的撥放清單不知道為啥多了一些奇怪的東西(是亂碼)

所以龜毛心切的我就找出他的位置囉~

使用登錄編輯程式修改以下位置內的資料就好了

KEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers\

2008年3月6日星期四

撰寫網頁時Submit的技巧

在某些情況下不斷的點擊Submit可能會造成重複的新增資料，這時候就可以把Submit的按鈕進行以下的動作來達到disable的作用
在</head>跟<body>之間加上


<script language="ja<!>vascript">  
function submitclick(obj)   
  {   
   obj.disabled=true;
   this.document.post.submit();
  } 
</script>

之後，把Submot按鈕改成這樣↓


<input type="submit" value="送出" on<!>click="submitclick(this)">

或者直接一點<script>那邊不用打
直接把按鈕改成


<input type="submit" name="Submit" value="送出" on<!>click="this.disabled=true;document.post.submit();">

再把<form>加上name="post"
就可以了

2007年7月18日星期三

如何用.NET發mail


'這裡需要一個Button

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim newMail As New System.Net.Mail.MailMessage
Dim ToAddress(,) As String = {{"to@yahoo.com.tw", "to"}, {"to@msa.hinet.net", "to"}}
Dim CCAddress(,) As String = {{"cc@yahoo.com.tw", "cc"}, {"cc@msa.hinet.net", "cc"}}
Dim BccAddress(,) As String = {{"bcc@yahoo.com.tw", "bcc"}, {"bcc@msa.hinet.net", "bcc"}}
Dim AttachFile() As String = {"C:\temp\123.xls", "C:\temp\456.xls"}
Dim smtpMail As New System.Net.Mail.SmtpClient

With newMail
.From = New System.Net.Mail.MailAddress("from@msa.hinet.net", "from") '寄件者
.Body = "Hello Every Body!!" '內文
.Subject = "測試資料!!" '主旨
.BodyEncoding = System.Text.Encoding.GetEncoding("BIG5") '編碼方式

For i As Int32 = 0 To ToAddress.GetUpperBound(1) '收信人
.To.Add(New System.Net.Mail.MailAddress(ToAddress(i, 0), ToAddress(i, 1)))
Next
For i As Int32 = 0 To CCAddress.GetUpperBound(1) '副本
.CC.Add(New System.Net.Mail.MailAddress(CCAddress(i, 0), CCAddress(i, 1)))
Next
For i As Int32 = 0 To BccAddress.GetUpperBound(1) '密件副本
.Bcc.Add(New System.Net.Mail.MailAddress(BccAddress(i, 0), BccAddress(i, 1)))
Next
For i As Int32 = 0 To BccAddress.GetUpperBound(1) '夾檔
.Attachments.Add(New System.Net.Mail.Attachment(AttachFile(i)))
Next
.IsBodyHtml = True '是否為HTML格式
.Priority = Net.Mail.MailPriority.Normal '優先權
End With
Try
smtpMail.Host = "msa.hinet.net"
smtpMail.SendAsync(newMail, "TEST")
Catch ex As Exception
MsgBox(ex.InnerException)
End Try
End Sub

2008年3月22日 星期六