WEBサイトのセキュリティ

エンコード

  '----------------------------------------------
  ' ＳＱＬエスケープ
  '----------------------------------------------
  Function SqlConv(pInputSql)
    Dim strData
    strData = pInputSql
    strData = Replace(strData, "'", "''")
    strData = Replace(strData, "[", "[[]")
    strData = Replace(strData, "%", "[%]")
    srData = Replace(strData, "_", "[_]")
    SqlConv = strData
  End Function