在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