各種即時通訊備份路徑

宅男就是愛玩電腦
愛玩電腦就會常把電腦玩掛
玩掛之後就要重灌
重灌呢就會產生很多麻煩
要備份一堆有的沒的資料
像是電子郵件啦~美女圖啦~"搖桿驅動程式"啦~林林總總
當然還要把在即時通上跟美女聊天的回憶也保留下來啦
以下就整理了目前常用的即時通訊軟體預設的文字訊息路徑
讓重灌的人可以自己手動備份

備份MSN對話記錄

位址：C:\Documents and Settings\電腦的使用者名稱\My Documents\我已接收的檔案\使用的MSN帳號\記錄

備份MSN Messenger表情圖示

for XP

C:\Documents and Settings\電腦的使用者名稱\Local Settings\Application Data\Microsoft\Messenger\使用的MSN帳號

\ObjectStore\CustomEmoticons

Skype

C:\Documents and Settings\電腦的使用者名稱\Application Data\Skype\使用的Skype帳號

yahoo即時通

C:\Program Files\Yahoo!\Messenger\Profiles\使用的即時通帳號\Archive\Messages\

紀念宅生日

不知不覺又過完一年

於是給自己買了台GPS當作生日禮物

=================亂入的分隔線===================

亂入的路人甲：是沒人送你禮物才自己買的吧!

亂入的路人乙：廢話!誰會送那麼貴的東西

我：不管啦!反正就是好東西就是了.........冏

==============================================

本想趁著週休假期開車試試新買的GPS

確好死不死開了一朵"蓮花"，上帝還怕它口渴一直猛澆水(上帝阿!蓮花是水生植物，不用澆水啦!!)

於是只好宅在家過個宅生日

不過這次陪我的只有一個死小孩...阿布

對~就是它~我新養的小寵物~蜜袋鼯

其實早該它小時後就該介紹它給大家認識了

不過因為本人的相機壞了，又借不到相機

等到借到相機時，它已經一個月大囉

不過我發現，一隻手抓著它，一隻手拿相機拍真的有夠難拍

沒一張拍的清楚的

所以請個位看棺們多多包含啦

等有經費時，再來添購防地震+防手震+防風吹+防雨淋的超級相機來拍

超喜歡它小時後抱著我的大姆指的樣子，爆Q的，現在長大了，想抱它還不讓你抱

他長長的尾巴在睡覺的時後很可愛喔，會露出一小截掛在它的窩外面。

唯一一張最清楚的就這張@@

這是它的籠子跟椰子窩

那個紅色的大滾輪本來是想讓它玩

結果它都不喜歡玩 =.= (好歹也是三四佰塊耶，捧場一下嘛)

小密放生事件

最近從bbs看到一個消息

是關於一個女生養了一個多月的小蜜袋鼯

因為某些不明原因，就將一個多月大的小蜜放生

但這位女生並沒有多做什麼回應

於是有網友想從她部落格的好友名單中

找尋她的朋友，想借此能夠連絡上那位女生去尋找被放生的小蜜

看過這二位網友對於留言的回應

個人實在無法理解

他們對於寵物的定義是什麼?

一個消遣的商品@@?

沒辦法養了，或者不喜歡了，就說放生對它們比較好?

甚至於其中一位還說放生不等於棄養?

難道他們是被"放生"文字給模糊了嗎?

我在國家地理頻道或者一些新聞上

都看過將動物放回野外的新聞或記錄片

他們在放回野外前都會做很多準備工作

例如如果放生的動物是接受過人工飼養，就還會訓練它不依靠人類自行覓食的能力

野放的地點是否是屬於這個物種的棲息地等等細節

絕對不是人類自己覺得可以適合的地點就能做野放的動作

除了對野放的動物造成傷害之外，也會對野放地點的生態造成影響

例如台灣某些河川或水庫，裡面的魚大部份都變成外來種

還有公園裡的湖泊出現鱷魚

這些不都是那些自以為放生對動物就是最好選擇的人所帶來的傷害嗎?

這次事件的女主角放生的寵物是一隻完全經由人工飼養，並且尚無法自行覓食的小蜜袋鼯

放生真的對它有比較好嗎?

雖然不知道女主角是因何種原因不能繼續養它

也不知道她是如何放生

只是單就放生的這個行為而言

小弟我真的是覺得不太妥，也無法接受

也覺得放生這個名詞是人類創造出來安慰自己的名詞之一

希望這隻被野放的小蜜，能夠幸運找到有心的好主人

textbox存入資料庫時換行的解法

使用ADO.NET方法來存取資料庫，並在按鈕事件裡加入轉換換行符號的程式碼。

****************************程式碼起始*************************

        Dim Conn As OleDbConnection = New OleDbConnection()

        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("~/App_Data/changshiidb.mdb")

        Conn.Open()

        Dim text As String = Replace(TextBox1.Text, vbCrLf, "<br>")

        Dim sqlstr As String = "Insert Into 多行(textcont) Values ('" & text & "')"

        Dim cmd As OleDbCommand = New OleDbCommand(sqlstr, Conn)

        cmd.ExecuteNonQuery()

        cmd.Cancel()

        Conn.Close()

        Conn.Dispose()

****************************程式碼結束*************************

讀取時不需再另外轉換，直接將文字顯示。

****************************程式碼起始*************************

        Dim Conn As OleDbConnection = New OleDbConnection()

        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("~/App_Data/changshiidb.mdb")

        Conn.Open()

        Dim sqlstr As String = "select * from 多行"

        Dim cmd As OleDbCommand = New OleDbCommand(sqlstr, Conn)

        Dim dr As OleDbDataReader = cmd.ExecuteReader()

        While dr.Read()

            Literal1.Text = dr.Item("textcont")

        End While

        cmd.Cancel()

        dr.Close()

        Conn.Close()

        Conn.Dispose()

 ****************************程式碼結束*************************