<?xml version="1.0" encoding="gb2312"?>
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from link"
rs.open sql,conn,1,3
Response.Buffer = flase
%>
<link>
<%
 rs.MoveFirst		' 将目前的数据记录移到第一项
  While Not rs.EOF	' 判断是否过了最后一项
  if rs(3)=1  Then
%>
<item title="<%=rs(1)%>" url="http://<%=rs(2)%>/"></item>
<%
end if
rs.MoveNext	' 移到下一项
Wend
rs.close
set rs=nothing
%>
</link>