所以我做了個簡單的範例

這個範例採用了 QueryString 的方式來交互傳值，

這是最簡單的asp.net 與 silverlight 溝通方式，

當然，這是在 值 不重要，給使用者看到沒關係且可自由更改的情況之下才能用此方式

若值攸關隱密性，則必須使用Session傳值，若要使用Session傳值，

則必須使用WCF的方式來處理，然後在WCF驗證 值 的真偽
這樣才能安全處理值的交換，
(這是因為Silverlight是run在Client,而Session是儲存在Server端的關係)

這個範例可以在下面這個連結進行下載，

本範例使用VS2010 + Silverlight 製成。

若以上檔案連結無法看到 請點擊我進行檔案下載

發現VS2008移除不掉

一直產生 載入安裝元件發生錯誤 無法移除 的錯誤,

上網找到了微軟有提供這個移除用的程式

除了可以強制移除VS2008外，還可以順便移除掉VS2008殘留下來沒用的程式

不用一個一個手動移除了

程式可以在這兒下載　http://go.microsoft.com/fwlink/?LinkId=105801

分享一下程式碼

剛好用到這部份:-)    

這函數會回傳一個字串陣列

其中第二個元素就是經 第三個就是緯 丟到Googe MAP API後就可以運作了

  Function getxy() As String()       

         Dim address As String = 『你的地址』

        Dim apikey = 『你的API Key』

        Dim url = 『http://maps.google.com/maps/geo?q=』 & address & 『&output=csv&key=』 & apikey

        Dim myrequest As System.Net.HttpWebRequest = System.Net.WebRequest.Create(url)

        Dim mywebresponse As System.Net.WebResponse = myrequest.GetResponse()

        Dim mystream As IO.Stream = mywebresponse.GetResponseStream()

        Dim sr As IO.StreamReader = New IO.StreamReader(mystream, Encoding.Default)

        Return Split(sr.ReadToEnd, 『,』)

  End Function

用途是於上傳圖片的同時進行縮圖處理

如此日後可以減少圖片下載時所需的頻寬(因為圖檔被縮小了)

也可以強制圖片必須為長寬多少內~(若使用者本身不懂縮圖,這個函數會自動幫忙處理)

分享一下原始碼跟方法

‘原始碼開始

  ’縮圖

    Sub imgresize(ByVal width As Integer, ByVal height As Integer, ByVal saveurl As String, ByVal filebytes As Byte(), ByVal filelength As Integer)

        Dim ms As MemoryStream = New MemoryStream

        ms.Write(filebytes, 0, filelength)

        ms.Flush()

        Dim img1 As System.Drawing.Image = System.Drawing.Image.FromStream(ms)

        If img1.Height > height Or img1.Width > width Then

            ’是否有超高or寬

            Dim newimg As System.Drawing.Image

            Dim thumbnailScale As Integer() = getThumbnailImageScale(width, height, img1.Width, img1.Height)

            ’算出原圖長寬比

            newimg = img1.GetThumbnailImage(thumbnailScale(0), thumbnailScale(1), Nothing, IntPtr.Zero)

            ’釋放資源

            newimg.Save(saveurl)

            newimg.Dispose()

            img1.Dispose()

            ms.Close()

        End If

    End Sub

    Function getThumbnailImageScale(ByVal maxWidth As Integer, ByVal maxHeight As Integer, ByVal oldWidth As Integer, ByVal oldHeight As Integer) As Integer()

        Dim result() As Integer = New Integer() {0, 0}

        Dim widthDividend As Single, heightDividend As Single, commonDividend As Single

        widthDividend = oldWidth / maxWidth

        heightDividend = oldHeight / maxHeight

        If (heightDividend > widthDividend) Then

            commonDividend = heightDividend

        Else

            commonDividend = widthDividend

        End If

        result(0) = CType((oldWidth / commonDividend), Integer)

        result(1) = CType((oldHeight / commonDividend), Integer)

        Return result

    End Function

‘原始碼結束

就是俗稱的runtime啦:)

那麼，該怎麼裝呢。

首先您必須在該設計的電腦上找到
C:\Program Files\Microsoft Visual Studio 9.0\Crystal Reports\
(以VS2008為例，若為2005，則為8.0)
這個資料夾，接著會看到CRRedist目錄，
裡面就會有您的設計機的處理器類型的可轉散發套件了

若要執行的主機是64位元的，則要想辦法從64位元的VS中拿出這個套件唷。

在這裡本人提供64位元的2008版本下載。
PS. Crystal Report.NET與 CrystalReport 的授權方式有些不同。
在這僅是讀取元件的部分，因此這個可轉散發套件
就如同Flash Player，是可以轉散發的！

請點擊以下下載點從Skydrive取得檔案

就分享寫法出來吧

其實很容易的，只是透過zip的command mode

在用asp.net 去呼叫執行，並且帶入參數就可以

    Protected Sub exzip()
        Dim dir As String = 『C:\』 ‘主要目錄
        Dim zip As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo()
        zip.FileName = Server.MapPath(『zip.exe』)
        zip.Arguments = 』 x 』 & dir & 『\』 & DropDownList1.SelectedValue & 』 -o』 & dir & 』 -y』
        Dim ziprocess As Diagnostics.Process = System.Diagnostics.Process.Start(zip)
        Label2.Text = DropDownList1.SelectedValue & 『解壓縮成功』
        ziprocess.WaitForExit(180000)
        If Not ziprocess.HasExited Then
            Label2.Text = 『壓縮檔無法在3分鐘內解壓縮完畢，解壓縮失敗』
            ziprocess.Kill()
        End If
    End Sub
 

但也許資料非常的小巧且對安全性不要求

比方說，今日瀏覽人數之類的

（當然若這些資料需要做分析性報表則不適合存在文字檔中）

那如果這些資料存在資料庫會不會太大材小用？

因此我們一般是存在txt文字檔當中…

一來加快讀取的速度，一來要求的基本空間跟條件也較小

而在ASP.NET中，讀取跟寫入文字檔是非常容易的，快速的兩行即可解決

讀取：

FileOpen(1, Server.MapPath(『howmuch.txt』), OpenMode.Input)
test = LineInput(1)

寫入：

FileOpen(1, Server.MapPath(『howmuch.txt』), OpenMode.Output)
Print(1, value)

對於簡單的小巧資料，用這種方式既快速且方便～