复制代码 代码如下:
'把字符串转换成数据库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
您可能感兴趣的文章:
如您对本文有疑问或者有任何想说的,请 点击进行留言回复,万千网友为您解惑!
网友评论