今天在日常維護一個網(wǎng)站時，發(fā)現(xiàn)該網(wǎng)站的留言程序沒有經(jīng)過嚴格的驗證過濾，導(dǎo)致了將近十萬條垃圾數(shù)據(jù)。而其中又不乏重要信息，需要清理數(shù)據(jù)，以及增加更為嚴格的驗證措施。

而通過在數(shù)據(jù)庫中直接刪除又不太科學(xué)，會誤刪很多重要信息。

通過 模糊查詢語句：

復(fù)制代碼 代碼如下:

select * from Feedback where Comments like '%http%'

結(jié)果:“內(nèi)存溢出”

經(jīng)過不斷的搜索，找出了問題的主要原因：

asp 中用 LIKE 關(guān)鍵字查詢?nèi)瘴姆柧蜁鲥e，比如說Chr(-23075)，提示內(nèi)存溢出。
如果數(shù)據(jù)表中的數(shù)據(jù)包含日文或者一些特殊非簡體漢字符號，也會出現(xiàn)內(nèi)存溢出的錯誤。

而網(wǎng)上說，上述問題已經(jīng)得到微軟動力營的微軟工程師確認，為產(chǎn)品的 BUG，無法解決。唯一的辦法就是將整個數(shù)據(jù)庫中的數(shù)據(jù)編碼為ANSI 文本格式，然后保存。顯示的時候再DECODE。

無解，只有按上面所說，進行字段轉(zhuǎn)換保存到另外一個新字段中，然后再進行清理操作。面對這個超標(biāo)數(shù)據(jù)真是困難。

EncodeString 函數(shù)進行字符轉(zhuǎn)義

復(fù)制代碼 代碼如下:

Function EncodeString(strWords)
    Dim i As Long
    Dim strEncodeWords
    For i = 1 To Len(strWords)
        strEncodeWords = strEncodeWords & CStr(Asc(Mid(strWords, i, 1))) & ","
    Next

    EncodeString = strEncodeWords
End Function

這樣經(jīng)過轉(zhuǎn)義后，在模糊搜索時，將關(guān)鍵字進行轉(zhuǎn)義一下

復(fù)制代碼 代碼如下:

delete * from Feedback where Comments_new like '%&EncodeString("http")&%'