Sam 的天馬行空不務正業亂想誌

2009/12/22

2009/12/19

2009/12/19
就在大家都不明所以的狀況下開始畫圖,而路過的小朋友都很好奇在看我們在幹嘛,哈哈
經過20分後大家都陸續的完工了,接著組裝起來後,就是一個相框啦,差點被搞死～XD

唉啊～真是好久沒更新網誌啦

var my_select = document.getElementById("DropDownList1") document.getElementById("TextBox1").value=my_select.options[my_select.selectedIndex].text;


'無條件進位的function
'd=取到小數第幾位

Function xRound(ByVal x As Decimal, Optional ByVal d As Integer = 0) As Decimal
Return CInt(x * 10 ^ d + 0.5 * Math.Sign(x)) / 10 ^ d
End Function


效能監視器計數器需求 (錯誤)
訊息
效能監視器計數器登錄值的 System Configuration Check 失敗。如需詳細資料，請參閱讀我檔案或《SQL Server 線上叢書》中的＜如何: 在 SQL Server 2005 中遞增安裝程式的計數器登錄機碼＞(How to: Increment the Counter Registry Key for Setup in SQL Server 2005)


AC_FL_RunContent('codebase', 'http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0', 'width', '955', 'height', '600', 'src', 'default', 'quality', 'high', 'pluginspage', 'http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash', 'movie', 'default', 'wmode', 'Opaque'); //end AC code

param name="wmode" value="Opaque"

加上紅色字體的部分就可以讓div層,浮在flash上面了～～

.net檢查檔案是否存在的方式


If System.IO.File.Exists(Server.MapPath("~/user_defaultdata/1/user_pic.jpg")) = False Then
img_src = "img/peo.gif" '預設圖
Else
img_src = "user_defaultdata/1/user_pic.jpg"
End If


在.vb裡先將文字作編碼

HttpUtility.UrlEncodeUnicode("天馬行空不務正業")

--如下

天馬行空不務正業 = %u5929%u99ac%u884c%u7a7a%u4e0d%u52d9%u6b63%u696d

在前端的時候可以用javascript的unescape函數去解碼

alert(unescape('%u5929%u99ac%u884c%u7a7a%u4e0d%u52d9%u6b63%u696d'))

這是利用javascript get方式來抓網址列上面的參數


function getQry(key)
{
var search=location.search.slice(1);//得到get方式提交的查詢字串
var my_id=search.split("&");
for(var i=0;i<my_id.length;i++)
{
var ar=my_id[i].split("=");
if(ar[0]==key)
{
return ar[1];
}
}
}



javascript confirm 按取消就不執行postback,按確定才執行.net的postback



Public Overloads Function GetConfirmScript(ByVal Message As String) As String
Dim sMessage As String
Dim sScript As String

sMessage = ParserMessage(Message)
sScript = String.Format("if (confirm('{0}')==false) {{return false;}}", sMessage)
Return sScript
End Function

Private Function ParserMessage(ByVal Message As String) As String
Dim sMessage As String

sMessage = Strings.Replace(Message, "'", "\'") '處理單引號
sMessage = Strings.Replace(sMessage, vbNewLine, "\n") '處理換行
Return sMessage
End Function





開啟「Microsoft SQL Server Management Studio」，
伺服器 --> 伺服器物件 --> 右鍵 --> 新增備份裝置，
這時可以輸入一個好記的裝置名稱，
檔案給他一個路徑名稱例如：C:\Backup.bak，
按OK，
在備份裝置按右鍵選重新整理，選擇剛剛所建立的備份裝置，
然後點選滑鼠右鍵，
選擇 備份資料庫 ，
這時在左側有 Select a page --> 一般，
選擇要備份的資料庫，
命名一個好記得名稱，
都填完後不要按 確定 ，
點選上方 指令碼 旁邊的小箭頭下拉選單，
選 編寫動做的指令碼至檔案，
存成一個 .sql 檔，例如 D:\Backup\FullBackup.sql ，
之後以排程工作定時執行 SQLCMD.exe -i "D:\Backup\FullBackup.sql"，
就會依照剛剛備份裝置的設定備份成一個檔案。
另外，可以利用Script在執行完成後，將檔名加上日期，
這樣就可以每天備份成不同的檔案，
再用其他備份軟體把這個檔案複製起來就可以了，
以上的做法，不用停止SQL Service就可以執行了。

上禮拜六HBO,有演兩部片一片是貝武夫,另一個是斯巴達之300壯士
看完之後覺得,貝武夫到底是什麼大爛片啊,全3D的電影,
難看死了.......
沒劇情就算了,還瞎到有剩～>.<"
其中一個部分是跟怪獸對打,貝武夫沒穿衣服,這是什麼鬼東西啊赤手空拳的把怪獸給打死,然後又沒穿衣服,
那其他穿盔甲拿見跟盾牌的,被踢一下就葛屁＝＝.....
真是夠了～大爛片
斯巴達之300壯士,這部還好一點,述說著斯巴達王不想屈服於波斯大帝無腦般的淫威之下,
而奮勇抵抗到死,劇中,斯巴達王跟他的壯士有如神人般的萬夫莫敵,但是最後的收尾有點瞭草隨便了點,死了倒是有點可惜～最後變成斯巴達軍隊＋希臘自由軍隊反攻波斯大軍,
並喊著"勝利在望！"......

單獨的四天～怎麼說勒,啊就貴婦帶著辣媽到韓國去度假囉,所以家裡只剩被遺棄的啊Ni陪我囉,不過有時想想,是我陪他,還是他陪我,到底......
昨天下了一場超大的雨,真是恐怖至極啊,小黃也不知道跑去哪了,前兩天拿飼料去餵他的時候,一叫小黃,他馬上跑過來,完全不怕人,反而嚇我一跳,哈哈～
但這兩天去都沒看到他的狗影,不知跑去哪裡逍遙了,真害...
昨天去餵小黃,還發生了一個小插曲,因為找不到,所以四處看,突然我發現對面有個女生,竟然也蹲下去,在看車底,八成是認為我在找走失的小狗,所以她在幫我找,真是讓我不好意思了一下^^,
部落格有點空蕩蕩的,是應該找個時間好好經營一下,但是我有時間嗎？～哈哈,又再找藉口......

昨天晚上一回家,馬上吃飯,因為等一下要到中正機場接機,但是因為接了通電話,所以時間有限,想說算了,回來再吃,於是換件衣服就出門了,出門時間是9點40分左右想說死定了,10點半以前要到,會不會有點勉強,懷著不安的心情上路～哈哈,結果路途中都沒什麼車,真是幸運,到機場也不過才10點15分左右,真是快速啊～呵呵結果不知道從二航廈的停車場到接機大廳要從b2過去所以當我們在1樓找不到過路缺口時,問了工作人員才知道要從b2過去,還真是搞校勒,一到大廳才發現,班機誤點要到50分才會到,ORZ啊好險沒遲到,嘿嘿, 順利接到老妹後,兩母女開始話匣子停不了了,真是太恐怖了～呵呵, 到家後,邊聊邊吃變成宵夜的晚餐,不知不覺就到了2點,真是快,躺到床上,就開始打呼了～～

新張開的落腳地方,胡思亂想的空間,這是個起點,終點在天的盡頭