inc_function.asp

来自「为了开发出适用于中小型企业的通用人才管理软件。对于已备电脑等硬件设备而无人才管理」· ASP 代码 · 共 19 行

<%
Function chk(fstring)
Dim string
string=Rtrim(fstring)
If string="" then Exit Function
string=Replace(string,"<","&lt;",1,-1,1)
string=Replace(string,">","&gt;",1,-1,1)
chk=string
End Function

Function chkf(fstring)
Dim string
string=trim(fstring)
If string="" then Exit Function
string=Replace(string,"<","&lt;",1,-1,1)
string=Replace(string,">","&gt;",1,-1,1)
chkf=string
End Function
%>