comfun.inc

yuanma

<SCRIPT LANGUAGE=VBScript RUNAT=server>
'fix text for SQL
Function SqlStr( data ) 
SqlStr = "'" & Replace( data, "'", "''" ) & "'" 
End Function 
</SCRIPT>