自製小元件

簡易版進度列(非動態進度列)

毛豆 — Sun, 10 Jun 2007 22:05:00 GMT

這個元件用以顯示進度百分比的Web使用者控制項，可以放在工作報告等處，目前無法動態顯示，但如果有空的人可以試著用JavaScript改寫。

裡面我放了四個對外開放的屬性

Percent：表示百分比
BarStyle：前景Div的css內容
- BarStyle="border:1px solid black; color:red;"
GroundStyle：後景Div的css內容
- GroundStyle="background-color:blue;"
ShowText：顯示於前景Div的字串，可在字串中加入%符號，程式會把%符號換成進度。
- 如輸入【第一選項：%】，則顯示時會變成【第一選項：90%】

uc_ProgressBar.ascx

<%@ Control Language="vb" AutoEventWireup="false" Codebehind="uc_ProgressBar.ascx.vb" Inherits="Somee.uc_ProgressBar" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %> <div id="ground" class="ground" runat="server"> <div id="bar" class="bar" runat="server"><asp:Literal id="ltl_Text" runat="server" /></div> </div>

uc_ProgressBar.ascx.vb

Dim per As Double Dim txt As String Public Property Percent() As Double '設定長度的百分比 Get Return per End Get Set(ByVal Value As Double) per = Value End Set End Property Public Property ShowText() As String '設定用來顯示的字 Get Return txt End Get Set(ByVal Value As String) txt = Value End Set End Property Public Property GroundStyle() As String '設定背景bar的造型 Get Return Me.ground.Attributes("Style") End Get Set(ByVal Value As String) Me.ground.Attributes("Style") = Value End Set End Property Public Property BarStyle() As String '設定前景bar的造型 Get Return Me.bar.Attributes("Style") End Get Set(ByVal Value As String) Me.bar.Attributes("Style") = Value End Set End Property Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在這裡放置使用者程式碼以初始化網頁 Me.ground.Attributes.CssStyle.Add("WIDTH", "100%") Me.bar.Attributes.CssStyle.Add("WIDTH", Percent & "%") If txt = "" Then Me.ltl_Text.Text = Percent & "%" Else Me.ltl_Text.Text = ShowText.Replace("%", Percent & "%") End If End Sub

簡易版上傳程式

毛豆 — Wed, 18 Apr 2007 01:22:00 GMT

突然想到，blog或許可以加個上傳檔案功能，以便日後增加圖片/其它檔案上傳的能力。經過搜尋，在藍色小舖的下載區找到很棒【丁書記簡易上傳程式】，不過很可惜的只找到ASP版本。

後來想想，既然上傳檔案是很早以前就有的需求，ASP.net一定有人寫出來了，最後在討論區中發現了Allen的介紹，是個簡易版檔案上傳程式（c#），我經過某程式轉成了（VB.net）。

先貼出超連結：Allen的介紹，(以下介紹已確定可在.net framework 1.1使用)

注意：在Allen版本中，搜尋檔案的Upload.html和真正用來上傳的Upload.aspx是不同檔案。html要把form加上【enctype="multipart/form-data"】屬性，Aspx頁中要引入【using System.IO;】。

using System.IO; private void Page_Load(object sender, System.EventArgs e) { string destDir = Server.MapPath("myimages"); try { //save file string fileName = Path.GetFileName(Request.Files[0].FileName); Request.Files[0].SaveAs(Path.Combine(destDir,fileName)); //refresh page Response.Write("檔案已存檔"); } catch(Exception exc) { Response.Write(exc.Message); } }

再來我把它改寫VB.net版（我直接把Imports System.IO直接寫在語法裡，而不是引入）。

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在這裡放置使用者程式碼以初始化網頁 Dim targetDir As String = "MyImages" Dim destDir As String = Server.MapPath(targetDir) Dim fileName As String = System.IO.Path.GetFileName(Request.Files(0).FileName) If System.IO.File.Exists(System.IO.Path.Combine(destDir, fileName)) Then Me.Label1.Text = "檔案已存在" Else Try Request.Files(0).SaveAs(System.IO.Path.Combine(destDir, fileName)) Me.Label1.Text = "檔案已存檔至" & targetDir & "資料夾中" Catch ex As Exception Me.Label1.Text = ex.Message End Try End If End Sub

好了，我們得到了個最簡易版本的上傳程式，目前測試過許多檔案（jpg、gif、rar、zip、txt、png、doc、xml等，在網頁上常看到的幾乎都測了），好像沒有限制。

即使它這麼的優，為什麼還叫它簡易版呢，因為這版程式檔案大小這受限於.net天生限制的4mb，後來也在藍色小舖找到解法了，該頁超連結。

它的做法是在web.config中加入一行限制（檔案大小請自行換算，小算盤會用吧）：

又解決一個問題了，但接下來的難題還有不少呢。像以往寄電子郵件常遇到檔案傳輸太久，就會遇上伺服器TimeOut，這邊還沒查，印象中是利用多執行緒來解，待查中。另外其實如果能像Google一樣，加入Ajax來進行非同步上傳還有批次上傳，我想一定更加方便。

它最後的應用應該就是圖片上傳並加以縮圖了，已經有範例，看能不能趕在沒時間前搞定它。我想預定做法應該是利用JavaScript先縮好圖再上傳，避免伺服器做太多事情，伺服器資源可是很珍貴的呀！

自製月曆

毛豆 — Sat, 24 Mar 2007 13:45:00 GMT

很簡單的自製月曆程式，以後會在開發Blog時用在依日期顯示區域(我在Html中放的table叫做cal)

接著是執行結果(我有在css檔裡面加一些框線)

之後就在開發blog時，依照DataSet中的內容，替日期中加入圖片超連結
雖然可能沒有Calendar控制項使用起來方便，但對我的開發這樣就夠了，也比較輕量一點

程式碼：

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在這裡放置使用者程式碼以初始化網頁

CalFill(2007, 3, Me.Cal)
Me.Cal.CellSpacing = 0
Me.Cal.CellPadding = 1

End Sub

Public Sub CalFill(ByVal Year As Integer, ByVal Month As Integer, ByVal tb As Table) '傳入值有年、月、和表格
Dim i As Integer
Dim tr As New TableRow '因為必須產生很多個相同的tr和td，所以必須new出來
Dim th As New TableCell
Dim td As TableCell
Dim d As New Date(Year, Month, 1) '設定日期為幾年幾月的一號

tr = New TableRow

For i = 1 To d.DayOfWeek    '上個月的日期以空白表示
  td = New TableCell
  td.Text = " "
  tr.Controls.Add(td)
Next

For i = 1 + d.DayOfWeek To d.DaysInMonth(Year, Month) + d.DayOfWeek '加入這個月的日期

  td = New TableCell
  td.Text = (i - d.DayOfWeek).ToString
  tr.Controls.Add(td)

  If i Mod 7 = 0 Then '每七天分一次列
  tb.Controls.Add(tr)
  tr = New TableRow
  End If
Next

tb.Controls.Add(tr)
End Sub