網路字型(Web fonts)

justfont

Web Fonts服務

Cookie 時間亂碼

Dim aCookie As New HttpCookie("mycookie")
aCookie.Value = Convert.ToString(DateTime.Now.AddDays(1))

嘗試寫入一個時間的字串為cookie的值
然後在本機測試
Response.Write(Format(Convert.ToDateTime(get_mycookie.Value), "yyyy/MM/dd"))
會出現錯誤

而把字串寫出來之後
2012/5/31 銝? 04:49:31
發現出現亂碼

所以後來解決的方式是
寫入字串時
直接format 成年日月格式
aCookie.Value = Convert.ToString(Format(DateTime.Now.AddDays(1), "yyyy/MM/dd"))

顯示出三天內資料 附上NEW的圖示

Protected Sub ListView1_ItemDataBound(sender As Object, e As System.Web.UI.WebControls.ListViewItemEventArgs) Handles ListView1.ItemDataBound
        If e.Item.ItemType = ListViewItemType.DataItem Then
            Dim lvdi As ListViewDataItem = CType(e.Item, ListViewDataItem)
            Dim drv As DataRowView = CType(lvdi.DataItem, DataRowView)
            Dim Image1 As Image = CType(e.Item.FindControl("Image1"), Image)  
            Dim newsday As Integer = DateDiff(DateInterval.Day, Convert.ToDateTime(drv("online_date")), Today)
            If newsday <= 3 Then
                With Image1
                    .Visible = True
                End With
            End If
        End If
End Sub

設計讓列表頁有序號

aspx

code-behine

Protected Sub ListView1_ItemDataBound(sender As Object, e As System.Web.UI.WebControls.ListViewItemEventArgs) Handles ListView1.ItemDataBound
        If e.Item.ItemType = ListViewItemType.DataItem Then
            Dim lvdi As ListViewDataItem = CType(e.Item, ListViewDataItem)
            Dim drv As DataRowView = CType(lvdi.DataItem, DataRowView)
            Dim Literal1 As Literal = CType(e.Item.FindControl("Literal1"), Literal)
            Literal1.Text = lvdi.DataItemIndex + 1
        End If
 End Sub

將轉成base64的圖片 再轉成圖片

    Dim file_path As String = System.Configuration.ConfigurationManager.AppSettings("file_path") & "images\"
    Dim ResizedImg As System.Drawing.Image = System.Drawing.Image.FromStream(Base64ToImage(ib))
    ResizedImg.Save(file_path & saveid & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

    ResizedImg.Dispose()
    context.Response.End()



    Public Function Base64ToImage(ByVal base64String As String) As MemoryStream
        ' Convert Base64 String to byte[]]
        Dim imageBytes() As Byte = Convert.FromBase64String(base64String)
        Dim ms As MemoryStream = New MemoryStream(imageBytes, 0, imageBytes.Length)
        
        Return ms
        
    End Function

檔案上傳

原始碼

 

      檔案上傳：
      
      

code behind

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then

            '設定ID為sn
            Identity = Convert.ToString(Request.QueryString("sn"))

            '設定透過ID指定上傳的檔案和圖片
            Me.filemanage1.FieldID = Identity
            Me.filemanage2.FieldID = Identity

            library.BindCate(Me.ddlcate1, connstr, 18)

            Me.Label1.Text = Me.function_name
            Me.Label2.Text = Me.function_name


            Bind()
        End If
    End Sub

日期點選

日期點選

原始碼

		啟用期限(起)：
		
        

		啟用期限(迄)：
		
        (結束日期為空表示不下架)

	

code behind

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then

            '設定ID為sn
            Identity = Convert.ToString(Request.QueryString("sn"))

            '設定透過ID指定上傳的檔案和圖片
            Me.filemanage1.FieldID = Identity
            Me.filemanage2.FieldID = Identity

            library.BindCate(Me.ddlcate1, connstr, 18)

            Me.Label1.Text = Me.function_name
            Me.Label2.Text = Me.function_name


            Bind()
        End If
    End Sub