* 程式流程圖
    * Code
<code asp 1>
<%
Function httpStrChk(Str)
linkStr=Str
if not instr(Str,"http://") >0 then
linkStr="http://"&linkStr
end if
httpStrChk=linkStr
End Function
%>
</code>