checkchange.inc

来自「《管式加热炉设计计算程序》本程序依据《管式加热炉规范》 SY/T0538-200」· INC 代码 · 共 14 行

<%
function eck(str)
rem 检查所有的输入
dim result
result=Replace(str,"'","''")
result=Replace(result,"<","&lt")
result=Replace(result,">","&gt")
result=Replace(result,"chr(60)","&lt")
result=Replace(result,"chr(37)","&gt")
result=Replace(result,"""","&quot;")
result=Replace(result,";",";;")
eck=result
end function
%>