把字符串转换成数据库SQL语句格式
2018-09-06 10:31
复制代码 代码如下:
把字符串转换成数据库SQL语句格式
-------------------------------------------------
FunctionAllStr2Database(str,strType)
DimstrTemp:strTemp=str
SelectCasestrType
Case
Casenum
strTemp=Clng(strTemp)
Casestring无Trim
strTemp=Replace(strTemp,,)
Casestr_br无Trim,把回车转换为<br>，一般用于多行文本输入
strTemp=Replace(Replace(strTemp,,),VbCrlf,<br>)
Casestr_trimTrim
strTemp=Replace(Trim(strTemp),,)
Casenums
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,)
Casestrings
CaseElse
EndSelect
AllStr2Database=strTemp
EndFunction
上一篇：个性验证码的制作方法