<%
id=request("id")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from product where id="&id
rs.open sql,conn,1,3
i=0
dim tage
tage=rs("tage")
arr=split(tage,",") '返回数组
for i=lbound(arr) to ubound(arr) '输出内容
response.write %>
<A href="search.asp&tage=<%=arr(i)%>"><%=arr(i)%></A>
<%next%>
<% do while not rs.eof %>
<%
rs.movenext
i=i+1
loop
rs.close %>