The Will Will Web

今天拿到一堆客戶提供的 VBScript 程式碼範例，雖然看的懂，但不知為何就是看不順眼，所以上網找了個 ScriptConverter 線上轉換工具，可以把 VBScript 全部轉成 JavaScript，雖然轉過去的 JavaScript 程式還是會有語法錯誤，但至少可以幫你省去 90% 重寫的時間。

使用這套工具非常的簡單：

1. 複製 VBScript 並貼上左側視窗
2. 點選 [Convert] 按鈕
3. 複製 JavaScript 取回轉換過的程式

轉換過的 JavaScript 有時後可能不會很整齊，這時再搭配 Javascript beautifier 將轉換過的 JavaScript 美化一下就蠻不錯的了。

最近有個專案很奇怪，我有個 Visual Studio 方案檔，開啟後會載入好幾個專案(Project)，其中有個專案負責所有與 Data Access Layer (DAL) 有關的工作，但我每次剛開啟 Visual Studio 2008 並載入專案後都無法直接按下 F6 直接建置方案( Build Solution )，都一定要先建置(Build)含有 DBML 的那個專案，才能再按下 F6 建置整個方案。

每當直接按下 F6 建置方案時，都會出現以下錯誤訊息：

Build failed due to validation errors in G:\Projects\XXXX\My.dbml. Open the file and resolve the issues in the Error List, then try rebuilding the project.

最後我的解決方式如下：

1. 先關閉所有 Visual Studio 2008
2. 點選 [開始] –> [執行] ，並輸入以下指令：
   "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\devenv" /resetskippkgs
3. 然後再關閉 Visual Studio 2008 並重新開啟原本無法建置的方案即可修復此問題

事實上，Visual Studio 偶爾會出問題，透過這個方式通常可以解決大部分的問題，至於為什麼會發生這些問題我也不大清楚，這類詭異的問題還是需要有 "經驗" 才能解決。

我個人有習慣收集一些網路上別人整理的速查表，因為程式開發的細節真的太多了，要能全部背起來不太可能，也沒什麼意義，甚至於有人說程式設計就是一件查詢、複製、貼上的工作而已。對我來說，寫程式首重觀念與經驗，有了完整而正確的觀念，就算記不得要怎麼寫，查詢一下就馬上能寫了；而有了經驗，對於一些難解的 Bug 自然能夠迅速解開。

所以當我在開發網站時只要開啟速查表文件，有時後看表提醒一下用法，馬上就可以解決問題。例如：像我之前是寫 PHP 好多年之後才突然轉換到 C# / ASP.NET 的，而當初我剛學 .NET 時，對 .NET 的 String.Format 十分感冒，因為不會用，且當時輸入的範例又寫的很不清楚，有時後為了輸出一個 NT$ 1,000,000.00 這樣的格式都要寫好久，真的很氣人。直到有一天在 John Sheehan 這位仁兄的網站看到 .NET Format String Quick Reference 這份速查表文件，因為講解的仔細又有範例，讓我一下子就掌握所有 String.Format 的用法，而這份文件也是我最常用的速查表之一。

以下是我這陣子累積整理的 Cheat Sheets 相關連結，各位如果有覺得不錯的也可以推薦給我，我再放上來：

C# / .NET / LINQ 相關

• .NET Format String Quick Reference [PDF]
• Microsoft .NET Framework 3.5 Commonly Uses Types and Namespaces [PDF]
• LINQ Cheat Sheet
• LINQ Standard Query Operators Cheat Sheet

Visual Studio 相關

• Visual Studio 2005 Built-in Code Snippets (C#) [PDF]
• Visual Studio 2005 Default Keybindings (C#) [PDF]
• Visual C# 2008 Keybinding Reference Poster

ASP.NET 相關

• ASP.NET 2.0 Page Life Cycle & Common Events [PDF]
• ASP.NET Page Life Cycle Diagram [PNG]
• ASP.NET Runtime Cheat Sheet: HttpRequest, HttpRuntime, AppDomain and friends
• Microsoft ASP.NET AJAX Library
• Microsoft ASP.NET AJAX Client Life Cycle & Events [PDF]

SQL Server 相關

• SQL Server Cheat Sheekt

Subversion 相關

• Subversion Cheat Sheet

Reqular Expression 相關

• Regular Expressions Cheat Sheet (V2)

CSS 相關

• CSS Cheat Sheet (V2)

HTML / XML / RGB 相關

• HTML Cheat Sheet
• HTML Character Entities Cheat Sheet
• RGB Hex Colour Chart
• XHTML Cheat Sheet [PDF]

ASP / VBScript 相關

• ASP / VBScript Cheat Sheet

PHP 相關

• PHP Cheat Sheet (V2)

JavaScript 相關

• JavaScript Cheat Sheet
• jQuery 1.2 Cheat Sheet
• jQuery 1.2 API Cheatsheet [彩色版]

系統管理

• Security Log Quick Reference Chart

微軟在以前 ASP 的時代就有提供一個 Script Encoder 工具，可以將你的 ASP 中的 VBScript 或 JScript 編碼，讓整個 ASP 程式看起來像是亂碼一樣。

例如說以下的範例，其 script  標籤的 language 屬性是設定為 VBScript.Encode 而非原本的 VBScript ：

<script language="VBScript.Encode">
#@~^KQAAAA==@#@&j1D
bwYc214W,J3x1W[roPbdP1WW^ZZJ@#@&PQsAAA==^#~@</script>

事實上，有很多的駭客(cracker)就是透過 Script Encoder 工具將「惡意程式」編碼，以跳過防毒軟體的檢查，所以原本一個用意良好的工具也可以拿來做壞事，這感覺就像是常聽到人家講的一句話：「法律是用來保護懂法律的人，不懂法律的人在法律的保護傘下還是一樣居於劣勢」，有了 Script Encoder 工具本應該保護的是開發者的著作財產，卻變成保護駭客隱匿他們的惡意程式碼！

幸好要解碼也很容易，只要用 JavaScript 就可以解碼了，所以其實也算是沒什麼保護的效果，所以只能防止不知道的人來看你的原始碼而已。

線上 VBScript 解碼器 ( 只能解 Script Encoder 編碼過的程式 )

相關連結

• Script Encoder Overview
  http://msdn2.microsoft.com/en-us/library/d14c8zsc(VS.85).aspx
  
  
• Script Encoder 下載
  http://www.microsoft.com/downloads/details.aspx?displaylang=zh-tw&FamilyID=e7877f67-c447-4873-b1b0-21f0626a6329
  
  
• 加密你的ASP页面—Script Encoder初探
  http://www.itzhe.cn/html/web/ASP/20071222/34900.html
  
  
• MS Script Encoder Decoded
  http://www.aspheute.com/english/20011123.asp

如果你在寫 ASP 或 VB 且一定要將文字儲存成 UTF-8 編碼，這個 Function 應該可以幫你的忙：

Function SaveTextAsUTF8(filePath, Text)
        Const adTypeText = 2
        Const adSaveCreateOverWrite = 2

        'Create Stream object
        Dim TextStream
        Set TextStream = CreateObject("ADODB.Stream")
        With TextStream
                .Open
                .CharSet = "UTF-8"
                .Position = TextStream.Size
                .WriteText Text
                .SaveToFile filePath, adSaveCreateOverWrite
                .Close
        End With
        Set TextStream = Nothing
       
End Function