在asp中实现字符串过滤单引号的功能

‘函数名称: strReplace(Str)
‘函数功能: 过滤单引号
‘参数说明: Str 
‘********************************************
Function strReplace(Str)
 dim tempcheckstr
 tempcheckstr=Str
 If Isnull(tempcheckstr) Then
  strReplace = “”
  Exit Function
 End If
 strReplace = Replace(tempcheckstr,”‘”,”””)
End Function