程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 把字符串轉換成數據庫SQL語句格式

把字符串轉換成數據庫SQL語句格式

編輯:關於ASP編程
復制代碼 代碼如下:
'把字符串轉換成數據庫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
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved