這兩天看完這部電影，真的要大推一下XD
太歡樂了~~
看完這部，一般人大概可以初窺金屬樂的面目._.
松雪泰子跟松山建一真是太讚了...
倒是女主角-加藤羅莎只有她的小雞褲褲搶鏡頭吧XD
松山建一提到他，大部分的人印象應該都停留在L的印象，
很不幸死亡筆記本我的注意力大部分都是放在夜神身上XD
不過他在這部電影裡的反差演出實在是太出色啦~~
不管是正面積極的純情少年或是上妝後的克勞薩，實在是很到位阿
下次電影台重播死亡筆記本，我會好好看他的._.
另外一位想提的就是松雪泰子啦~
剛看完伽利略的電影版，
裡面超顧家的美人媽媽轉瞬間成了老把高潮放嘴邊的暴力社長，
腦袋實在是很衝擊阿 Orz
金屬樂的歌詞常常帶有性暗示的意味，
所以在看這部漫畫的時候並不以為意，還挺能接受的~
不過松雪泰子一身勁裝講出那樣的話，我崩了 Orz
總之這是一部可以放開懷去享受的電影，
處處充滿歡樂的爆點XD
會想寫這個TAG的主題，主要是想幫專題做個紀錄@_@
昨天跟老師的meeting是排在第一組，
由於個人的不成才，這次決定把網頁那邊的先推出去送死XD
結果當然如預料的慘XD
AP這邊，則是推軍師完成的部分給老師XD
阿 還是一樣慘@_@
不過，比起來我們被劈的時間稍微長些
這是好消息嗎@_@
講完後等待的時刻，
網頁那邊除了檢討剛剛有問題的部分，好不熱鬧的三位XD
軍師忙自己的事情，我則是等待牙套男有空時來幫我看一下為啥我不能順利的開啟軍師給的檔案 Orz
牙套男不愧是專業級的，雖然他看得頭也很痛，
不過 最後還是完成我交代給他的任務XD
問題:Sql server 2005 程式要跑的時候會出現以下字眼 sp_configure 'user instances enabled 然後就不能動了= =
要執行以下的字句，
exec sp_configure 'user instances enabled',1
reconfigure
當初在網路上，看到不少的類似問題，解決方法也同上，
不過 看到的都是甚麼ASP.NET執行時出現問題，
因為，我程式用VB.NET在寫....
所以很條直的想不到要在哪處理這兩行程式，
後來牙套男在我的SQL SERVER MANAGEMENT上用開了個SQL檔貼上後執行
問題就解決了一半 Orz...
下一半則是SQL SERVER的設定本來好像就有問題，再加上自作聰明的修改字串，
所以一直有問題，最後終於完美解決了~
唔...接下來的日子好像不能拿連接有問題當藉口偷懶了一 一
Private Sub Command1_Click()
Dim S As String
IDChk Text1.Text, S
MsgBox S
End Sub
Function IDChk(ByVal ID As String, Optional ByRef msg As String = "") As Boolean
Dim A As Integer, B As Integer, C As Integer, S As String
ID = UCase(ID): S = Left(ID, 1): IDChk = False
If Len(ID) <> 10 Then msg = "身份證必須是 十碼!": Exit Function
If (S < "A" Or S > "Z") Then msg = "身份證第 一碼 必須是英文字母!": Exit Function
If Mid(ID, 2, 1) <> "1" And Mid(ID, 2, 1) <> "2" Then msg = "身分證第 二碼 只能是數字 1(男) 或 2(女)!": Exit Function
If Not IsNumeric(Mid(ID, 3)) Then msg = "身分證第 三碼 至第 十碼 不是全部為數字!": Exit Function
A = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", S) + 9
ID = CStr(A) & Mid(ID, 2)
B = CInt(Mid(ID, 1, 1)) + CInt(Mid(ID, 11, 1))
For C = 2 To 10
B = B + CInt(Mid(ID, C, 1)) * (11 - C)
Next C
If (B Mod 10 = 0) Then
IDChk = True: msg = "身分證正確!!"
Else
msg = "身分證輸入錯誤，請再檢查!"
End If
End Function
