最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

把字符串轉換成數(shù)據(jù)庫SQL語句格式

 更新時間:2006年10月12日 00:00:00   作者:  
復制代碼 代碼如下:

'把字符串轉換成數(shù)據(jù)庫SQL語句格式
'-------------------------------------------------
Function AllStr2Database(str,strType)
    Dim strTemp:strTemp=str
    Select Case strType
        Case ""
        Case "num"
            strTemp = Clng(strTemp)
        Case "string" '無Trim
            strTemp = Replace(strTemp, "'", "''")
        Case "str_br" '無Trim,把回車轉換為<br>,一般用于多行文本輸入
            strTemp = Replace(Replace(strTemp, "'", "''"), VbCrlf, "<br>")
        Case "str_trim" 'Trim
            strTemp = Replace(Trim(strTemp), "'", "''")
        Case "nums"
            strTemp = Trim(strTemp)
            strTemp = Replace(strTemp, ")", "")
            strTemp = Replace(strTemp, "(", "")
            strTemp = Replace(strTemp, "'", "")
            strTemp = Replace(strTemp, ";", "")
            strTemp = Replace(strTemp, " ", "")
            strTemp = Replace(strTemp, "or", "")
            strTemp = Replace(strTemp, "and", "")
            strTemp = Replace(strTemp, "delete", "")
            strTemp = Replace(strTemp, "select", "")
            strTemp = Replace(strTemp, "exec", "")
            strTemp = Replace(strTemp, "update", "")
            strTemp = Replace(strTemp, "select", "")
        Case "strings"
        Case Else
    End Select

    AllStr2Database = strTemp
End Function

相關文章

最新評論

仙居县| 得荣县| 锦屏县| 华安县| 介休市| 婺源县| 巴林左旗| 贺州市| 沙河市| 淳安县| 九寨沟县| 尼勒克县| 樟树市| 黑水县| 曲周县| 凉山| 石家庄市| 宜黄县| 东乡县| 化德县| 屯留县| 靖宇县| 西乌| 平山县| 正宁县| 定边县| 延长县| 牟定县| 马山县| 林西县| 遵化市| 临桂县| 金华市| 大悟县| 南汇区| 洛扎县| 广水市| 中超| 罗山县| 青冈县| 斗六市|