取得系統路徑

取得系統路徑 參考
Dim filder As string  =　Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)

ApplicationData	表示做為目前漫遊使用者的應用程式特定資料之通用儲存機制的目錄。  漫遊使用者在網路上以一個以上的電腦工作。  漫遊使用者的設定檔保留在網路伺服器上，且當使用者登入時載入系統。
CommonApplicationData	表示做為所有使用者使用的應用程式特定資料之通用儲存機制的目錄。
CommonProgramFiles	表示在應用程式間共享的元件的目錄。
Cookies	表示做為網際網路 Cookie 通用儲存機制的目錄。
Desktop	邏輯的 [桌面]，而不是實體的檔案系統位置。
DesktopDirectory	表示用來實際儲存桌面上檔案物件的目錄。   這個目錄不可與虛擬的桌面資料夾混淆。
Favorites	表示做為使用者的我的最愛項目之通用儲存機制的目錄。
History	表示做為網際網路記錄項目通用儲存機制的目錄。
InternetCache	表示做為網際網路暫存檔通用儲存機制的目錄。
LocalApplicationData	表示做為目前非漫遊使用者使用的應用程式特定資料之通用儲存機制的目錄。
MyComputer	[我的電腦] 資料夾。  注意事項： MyComputer 常數永遠都會產生空字串 ("")，因為並沒有為 [我的電腦] 資料夾定義路徑。
MyDocuments	[我的文件] 資料夾。
MyMusic	[我的音樂] 資料夾。
MyPictures	[我的圖片] 資料夾。
Personal	表示做為文件通用儲存機制的目錄。
ProgramFiles	Program Files 目錄。
Programs	包含使用者程式群組的目錄。
Recent	包含使用者最近使用之文件的目錄。
SendTo	包含 [傳送到] 功能表項目的目錄。
StartMenu	包含 [開始] 功能表項目的目錄。
Startup	對應至使用者 [啟動] 程式群組的目錄。  每當使用者登入或啟動 Windows NT 或更新的版本，  或啟動 Windows 98 時，系統會啟動這些程式。
System	System 目錄。
Templates	表示做為文件樣板 (Template) 通用儲存機制的目錄。

 
將『Environment.SpecialFolder.DesktopDirectory』中的DesktopDirectory替換成想要的資料夾即可。
另外，最常用到的程式所在的資料夾：
Application.StartupPath

http://ad87515.pixnet.net/blog/post/184509473-%5Bc%23-%E8%B3%87%E8%A8%8A%5D-%E5%8F%96%E5%BE%97%E7%B3%BB%E7%B5%B1%E8%B7%AF%E5%BE%91---%E7%A8%8B%E5%BC%8F%E6%88%90%E4%BA%8B

http://ad87515.pixnet.net/blog/post/184509473-%5Bc%23-%E8%B3%87%E8%A8%8A%5D-%E5%8F%96%E5%BE%97%E7%B3%BB%E7%B5%B1%E8%B7%AF%E5%BE%91---%E7%A8%8B%E5%BC%8F%E6%88%90%E4%BA%8B

ASP小筆記

解決Menu控制項在Chrome, Safari瀏覽器不正常的問題  參考

專案中建立一個【App_Browsers】的資料夾(可以透過VS裡面新增ASP.NET資料夾來做)，裡面建立一個檔案，命名為【Chrome.browser】，而它的內容是一個XML的格式，內容如下：

<browsers>

       <browser refID="safari1plus">

             <controlAdapters>

                    <adapter controlType="System.Web.UI.WebControls.Menu" adapterType="" />

             </controlAdapters>

       </browser>

</browsers>

在 ASP.NET Web 網頁中偵測瀏覽器類型 參考

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim s As String = ""
    With Request.Browser
        s &= "Browser Capabilities" & vbCrLf
        s &= "Type = " & .Type & vbCrLf s &= "Name = " & .Browser & vbCrLf
        s &= "Version = " & .Version & vbCrLf
        s &= "Major Version = " & .MajorVersion & vbCrLf
        s &= "Minor Version = " & .MinorVersion & vbCrLf
        s &= "Platform = " & .Platform & vbCrLf
        s &= "Is Beta = " & .Beta & vbCrLf
        s &= "Is Crawler = " & .Crawler & vbCrLf
        s &= "Is AOL = " & .AOL & vbCrLf
        s &= "Is Win16 = " & .Win16 & vbCrLf
        s &= "Is Win32 = " & .Win32 & vbCrLf
        s &= "Supports Frames = " & .Frames & vbCrLf
        s &= "Supports Tables = " & .Tables & vbCrLf
        s &= "Supports Cookies = " & .Cookies & vbCrLf
        s &= "Supports VBScript = " & .VBScript & vbCrLf
        s &= "Supports JavaScript = " & _
            .EcmaScriptVersion.ToString() & vbCrLf
        s &= "Supports Java Applets = " & .JavaApplets & vbCrLf
        s &= "Supports ActiveX Controls = " & .ActiveXControls & _
            vbCrLf
    End With
    TextBox1.Text = s
End Sub

ASP FileUpload上傳多個檔案
ASP

<asp:FileUpload ID="FileUpload_addFile" Font-Size="12px" multiple runat="server" />
<asp:Button ID="But_addFileUp" runat="server" Font-Size="12px" Text="上傳" />

VB

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim hfc As HttpFileCollection = Request.Files
      For i As Integer = 0 To hfc.Count - 1
            hfc(i).SaveAs("~/file/")
      Next
End Sub

1

HTML小筆記

iframe (插入外部網頁) 的with=”100%” ，部屬至web server後，在IE樓覽器會發生無法顯示的狀態(呈現空白)。

可以使用以下方式處理：(在iframe外部加上table標籤，並設定width=100%)

　<table width="100%" height="100%">

　　<tr>

　　　<td width="100%" height="100%">

　　　　<iframe id="iframe1" src="…." width="100%" height="100%"></iframe>

　　　</td>

　　</tr>

　</table>

解決IE瀏覽器相容性問題 參考
<meta http-equiv="X-UA-Compatible" content="IE=9">
<meta http-equiv="X-UA-Compatible" content="IE=8"/>
<meta http-equiv="X-UA-Compatible" content="IE=7">
<meta http-equiv="X-UA-Compatible" content="IE=5">

日期計算

https://dotblogs.com.tw/teng1026/2011/06/27/30212

http://bluemuta38.pixnet.net/blog/post/61533149-%E5%90%84%E7%A8%AE%E6%97%A5%E6%9C%9F%E6%99%82%E9%96%93%E8%A8%88%E7%AE%97

強制下載檔案

強制下載檔案    參考

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim index As Integer = CType(CType(sender, LinkButton).Parent.Parent, GridViewRow).RowIndex
        Dim lb_url As Label = CType(GridView1.Rows(index).FindControl("lb_url"), Label)

        Dim p_url As String = Server.MapPath(lb_url.Text)
        Dim wc As New System.Net.WebClient()
        Dim a As Byte() = wc.DownloadData(p_url)
        Dim FileName As String = System.IO.Path.GetFileName(p_url)

        Response.AddHeader("Content-Disposition", String.Format("attachment; filename={0}", FileName))
        Response.BinaryWrite(a) 
        Response.End() 
End Sub

IE下載中文檔名出現亂碼  參考
在下載的名稱加上HttpUtility.UrlPathEncode
ex.
Response.AddHeader("Content-Disposition", String.Format("attachment; filename={0}", HttpUtility.UrlPathEncode(FileName)))