复制代码 代码如下:
'把字符串转换成数据库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
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！