片尋記憶

Amy Macdonald - This Is The Life

此影片未在您的國家/地區或網域提供
明明有在賣CD ，為什麼不給看MV.......怪了

解決方法：設 proxy(代理是福氣伺服器)
請使用軟體，例如無界瀏覽、或自行手動設定

無界瀏覽下載後直接執行
IE免設定
opera ：opera:config#Proxy|HTTPserver → 設 127.0.0.1:9666
Mozilla Firefox ： 請善用google、或使用opera

-----------------------------------------------
Amy Macdonald 很Dolores O'Riordan

窗邊飛來 了三隻小雀
它們似乎告訴我要好好放輕鬆
夏天的味道像肉桂香般如此甜美
看著大街上女孩們開心的玩著跳繩
也許 有時候
做自己其實也沒什麼不好ㄚ
物換星移
但舊愛還是最美
好啦,別再胡思亂想了

將txt檔案中所有中文字，隨機取字設任意大小(html 格式)
執行結果如下：

Dim p,s,re
If Wscript.Arguments.Count=0 Then
Msgbox "將文件拖到圖示上！"
Wscript.Quit
End If
For i= 0 to Wscript.Arguments.Count - 1
p=Wscript.Arguments(i)
With CreateObject("Adodb.Stream")
.Type=2
.Charset="BIG5"'"GB2312"
.Open
.LoadFromFile=p
s=.ReadText
Set re =New RegExp
re.Pattern= "[^\x00-\xff]"
re.Global = True
If Not re.Test(s) Then
Msgbox "檔案無內容"
Wscript.Quit
End If
Set Matches = re.Execute(s)
s=""
For Each Match In Matches
Randomize
size = abs(Int((6 - 13) * Rnd))
if size > abs(Int((6 - 13) * Rnd)) then
s=s & "" & Match.Value & ""
else
s=s & Match.Value
end if
Next
.Position=0
.setEOS
.WriteText s
.SaveToFile p & "'s resize.html",2
.Close
End With
Next
Msgbox "DONE！"

---------------------------------
Script 首發!!

上班途中聽到的好歌......

我心託明月，無奈明月照溝渠......

好久沒跟老姐吵架了，恭賀新喜
今年終於開張了!!
總結去年度老姐惹我不高興兩次
今年大年初一，一睡醒又來招惹我
把好脾氣，當作沒脾氣
所以初一開始我就當自己是獨子，
什麼老姐!! 門都沒有
拿東西給我吃、約我出去......來不及了!!

無薪假也無聊，好好擺擺臭臉
反正好幾年沒吵架了

-------------------------------------------------------
原來擺臭臉給人看心情也會不好，看來給趁這次好好練習!!

舊留言板服務終止 !! 今までご利用いただきありがとうございました。

有請GOOGLE大神， KEYWORD レンタル ブログ パーツ

找到了http://www.harudake.net/m-ita.html

申請
↓輸入留言板管理密碼!!

【操作説明】

[読] ・・・クリックすると掲示板の記事閲覧ウィンドウが開きます。もう一度押すと消えます。ウェインドウ下のReloadを押すと記事が更新されます。

按下[読] 閱讀留言。再按一次關閉留言視窗
留言視窗下Reload可更新留言

[書]・・・クリックすると掲示板の書き込み用ウィンドウが開きます。もう一度押すと消えます。

按下[書]，可輸入留言，再按一次關閉輸入列

・１記事につき全角１２８文字記入可能、最大１００件の記事を保持出来ます。（※06/08/24全角32文字から大幅アップ！）
最多可輸入全形128個字、可保存100比留言

・セキュリティー面を考慮しHTMLタグの自動除外機能を実装しています。
安全考量，不允許輸入HTML語法

貼板・・・クリックすると操作説明ページ兼、管理者用ページエントリーページにリンクします。
貼板進入留言板管理畫面!!

----------------------------------------
心血來潮!!