searatt2.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 19 行

<%
'取得指定的属性
'SearAtt	要查找的属性类
'Att		被查找的字符串
'SearEDAtt	返回找到的属性值
AttTem=Att
if trim(replace(Att,",",""))<>"" then
	AttTem=replace(AttTem,SearAtt,"|")
	if AttTem<>Att then
		Start=instr(1,AttTem,"|",1)+1
		EndS=instr(Start,AttTem,")",1)
		SearEDAtt=mid(AttTem,Start,Ends-Start)
	else
		SearEDAtt="0"
	end if
else
	SearEDAtt="0"
end if
%>