set rsSiteLink = dataLinkR(DB_Path, "select * from links where user='"&user&"'") 
if rs21.Eof then
strLinks=strLinks &("<tr><td align=""center""> 未添加任何链接！</td></tr>")
Else

strLinks= "<table width=""90%"" align=""center"">" 

for i = 1 to rs21.recordcount
strLinks=strLinks & "<tr>" 
strLinks=strLinks & "<td align=""center"">" 
if rs21("ims") <> "no" then
strLinks=strLinks & "<a href=""" & rs21("url") & """ target=""_blank""><img border=0 src="&replace(rs21("ims"),"../"&user&"/","")&" height=40 width=120 alt="&rs21("name")&"></a>" 
else
'打开显示图文混排
strLinks=strLinks & "<a href=""" & rs21("url") & """ target=""_blank"">"&rs21("name")&"</a>" 
end if
strLinks=strLinks & "</td>" 
strLinks=strLinks & "<tr>" 
  rs21.movenext
  if rs21.Eof then exit for
  next 
strLinks=strLinks & "<FORM method=get><TR><TD align=middle><SELECT onchange=""window.open(this.form.link.options[this.form.link.selectedIndex].value,'_blank')"" name=link>"
strLinks=strLinks & "<OPTION  selected value=""index.asp"">友 情 链 接</OPTION>"
do while not rs211.eof
dim linkname
linkname=rs211("name")
        if len(linkname)>8 then
        linkname=left(linkname,8)
strLinks=strLinks & "<OPTION  value="&rs211("url")&">"&linkname&"…</OPTION>"
        else
strLinks=strLinks & "<OPTION  value="&rs211("url")&">"&linkname&"</OPTION>"
end if
rs211.movenext
loop
strLinks=strLinks & "</SELECT></TD></TR></FORM>" 
strLinks=strLinks & "</TABLE>" 
  End if
  rs21.close
  set rs21=nothing
  rs211.close
  set rs211=nothing