<%dim t1,t2,t3,t4,Mynum,MyVar
'判断字符串里面是否含有"Post"字符
t1="Post sa es fdse sfefs saasd"
t2="sa1 es fdse1 sfefs saasd Post"
t3="sa2 es fdse2 sfefs Post saasd"
t4="sa3 es fdse3 sfefs saasd"

Mynum=instr(trim(t1),"Post")
if Mynum<>0 then
MyVar=Mid(t1,Mynum,4)
else
MyVar="no"
end if

if MyVar="Post" then
'执行程序
end if
%>
<%=MyVar%>