复制代码 代码如下:'把字符串转换成数据库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

　　推荐阅读

　　如何使用FSO搜索硬盘文件

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim st st=timer() '************************************************************* '*************搜索硬盘文件的类SearchFile ************* '*************调用方>>>详细阅读

本文标题：把字符串转换成数据库SQL语句格式

地址：http://www.17bianji.com/kaifa2/ASP/33023.html

 1/2    1