把字符串转换成数据库SQL语句格式

　　'把字符串转换成数据库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