_ MotherBoardが欲しい！と思うも.

コレだっ！と云うのが無い.

ベストな構成は

_ Micro-ATX

_ オンボードグラフィック

_ オーディオ無し

_ 2 Gigabit LAN

_ SAS 2〜4ports

_ ECCメモリ対応

なのが良いんだが、無いな（爆）

CPUは Phenom II か Core i5 が載れば、上記条件さえ満たしてくれれば問わないのだが、Core i5 はECC未対応だったっけか.

Phenom は 実質 1socket Opteron と変わらないから対応してるんだよな.　スバラシイ.

・・・・・Lynnfield な Xeon はECC・・・・・アレ？ 機能を殺しているのか、それとも・・・・

_ 頭の頭部の頭痛が痛い.

風邪、かな（汗）

でもって、MySQL(utf8) なWeb(utf8) アプリなのだが、管理がExcel(sjis) で連携先がDB2(EBCDIC) って.

Lunux(MySQL) === MyODBC WindowsPC(Excel) iSeriesAccess === i5(DB2)

と、繋がる.　うむ、多機能なり、Excel（ぉぃ

問答無用で文字化けしやがるのだが、どうもMySQLやMyODBCがあれで.

いや、文字コードが異なるのを変換しようってのがマズいんだ.

でもって、痛い頭で考えた.　良い手があった. URL encode だ.

調べると先人が成し遂げてくれている！！

転載させてもらうと以下の通り.

_

'==================================================

'UrlEncodeUtf8: 文字列をUTF-8でエンコードするFunction

'==================================================

'strSource: 元の文字列

'返り値: エンコードされた文字列

'==================================================

Public Function UrlEncodeUtf8(ByRef strSource As String) As String

Dim objSC As Object

Set objSC = CreateObject("ScriptControl")

objSC.Language = "Jscript"

UrlEncodeUtf8 = objSC.CodeObject.encodeURIComponent(strSource)

Set objSC = Nothing

End Function

_

'==================================================

'UrlDecodeUtf8: 文字列をUTF-8でデコードするFunction

'==================================================

'strSource: 元の文字列

'返り値: エンコードされた文字列

'==================================================

Public Function URLDecodeUTF8(strSource As String) As String

Dim objSC As Object

Set objSC = CreateObject("ScriptControl")

objSC.Language = "Jscript"

URLDecodeUTF8 = objSC.CodeObject.decodeURIComponent(strSource)

Set objSC = Nothing

End Function

_ あぁ、スバラシイ(感涙)