複製代碼代碼如下:
'把字符串轉換成數據庫SQL語句格式
'-------------------------------------------------
FunctionAllStr2Database(str,strType)
DimstrTemp:strTemp=str
SelectCasestrType
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","")