sub index_flinkwz()
'============================================================连接
sql="select top 10 fl_id,fl_name,flcat_id,fl_logo,fl_url,count,passed from friendlink where fl_logo='' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<select name='titlelink' id='titlelink'">" & vbCrLf
Response.Write "<option>文字友情连接</option>"
do while not rs.eof
Response.Write "<option value='link.asp?action=go&fl_id="&rs("fl_id")&"'>"&rs("fl_name")&"</option>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<option>当前没有链接</option>"
end if
Response.Write "</select>"
end sub%>