client與Exchange傳送接收mail時出現Error Code : 0x8004011D

記得要勾<永遠提示登入認證>

測試程式碼

http://jsfiddle.net/lyhcode/phxqP/1/

在網頁上秀出程式碼的範例框

參考資料：砂子專區

Google-code-prettify

     A Javascript module and CSS file that allows syntax highlighting of source code snippets in an html page.

     https://code.google.com/p/google-code-prettify/

9 Useful Javascript Syntax Highlighting Scripts

     http://www.webdesignbooth.com/9-useful-javascript-syntax-highlighting-scripts/

SyntaxHighlighter

     http://alexgorbatchev.com/SyntaxHighlighter/

Blog →設計→修改 HTML

＜head＞　＜/head＞中間,
把Blog 該如何使用的說明中的程式碼貼到 ＜/head＞之前

＜!--SYNTAX HIGHLIGHTER BEGINS--＞
＜link href=　略...
．．．
＜!--SYNTAX HIGHLIGHTER ENDS--＞

接下來在網頁中加入
＜pre class="brush:vb; toolbar: false;"＞
    程式碼放這裡面
＜/pre＞

或是使用以下的方式
＜script type="syntaxhighlighter" class="brush:html"＞＜![CDATA[
程式碼放在這裡面
]]＞＜/script＞

VB.net 匯出匯入Excel

資料來源：簡單過生活

1.加入參考Microsoft Office Interop Excel

2.程式碼

  Imports Excel = Microsoft.Office.Interop.Excel

    Dim app As New Excel.Application

    Dim book As Excel.Workbook

    Dim sheet As Excel.Worksheet

    Dim range As Excel.Range

    Dim FilePath As String

       
        app.DisplayAlerts = False

        app.Visible = False

        '設定執行路徑

        FilePath = "c:\"

        If My.Computer.FileSystem.DirectoryExists(FilePath) = False Then

            My.Computer.FileSystem.CreateDirectory(FilePath)

        End If

        '在程式開始執行路徑取得 test.xls

        'book = app.Workbooks.Open(Application.StartupPath & "c:\test.xls")

        '在執行路徑取得 test.xls

        book = app.Workbooks.Open(FilePath & "\test.xls")

        sheet = book.Sheets(1)

        range = sheet.Cells(1, 1)

        '讀取顯示 Cell(1,1) 值

        MsgBox(range.Value)

        '寫入 Cell(1,1)

        range.Value = "12345"

        '另存檔案到 c:\test1.xls

        book.SaveAs("c:\test1.xls")

        book.Close()

    

.net convert

http://www.developerfusion.com/tools/convert/vb-to-csharp/

字串處理
次數 = UBound(Split(字串, "/"))