functions.asp

一套简单的购物车程序

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
'replace single quote by two single quotes
function SqlEncode(str)
	SqlEncode=replace(str, "'", "''")
End Function
</script>


<SCRIPT LANGUAGE=VBScript RUNAT=Server>
'replace user enters by breaks
function showBreaks(str)
	showBreaks = replace(str, chr(10), "&nbsp;<br>")
End Function
</script>

<%
vbquote = Chr(34)
%>