const.asp

一个比较完整的企业erp系统

<%
Function htmlencode(inString)
	Dim Ret

	If inString & "a" ="a" Then
		Exit Function
	End If

	Ret = inString
	'Ret = Replace(Ret,vbcrlf,"<br>")

	htmlencode = Ret
End Function
%>