城杆

<%
function foot(abc)
abc=split(abc,";")
for i=0 to ubound(abc)
    str =abc(i)&chr(10)
    str = Split(str,"|")
    response.write "<a  href=" & Str(1)
    If Str(2)=1 Then Response.Write " target=_blank "
    Response.Write ">" & Str(0) & "</a>" &chr(10)
next
end function
%>
<% abc="首页|index.asp|0;图片|pic.asp|0;文章|act.asp|0;教程|act.asp|0;blog|http://www.aixq.com|1" %>
<%= foot(abc) %>