<%dbdns="../"%> <% 'yp.asp?aid=条数&bid=每条字数&cid=用户等级&did=推不推荐&eid=要不要Logo 'bid 一个中文字算两个字符 'cid 0不分 4试用 6普通 2VIP 'did 0为不推荐 1为推荐 'eid 0不要 1要 aid=int(request.querystring("aid")) bid=int(request.querystring("bid")) cid=int(request.querystring("cid")) did=int(request.querystring("did")) eid=int(request.querystring("eid")) if cid=0 then c="" else c=" and SMT_vip="&cid&"" if did=1 then d=" and (SMT_key=3 or SMT_key=1)" else d=" and SMT_key=3" ypview="" set rs=server.createobject("adodb.recordset") sql="select top "&aid&" * from SMT_yp where SMT_key<>2 and SMT_key1=1"&c&d&" order by SMT_id desc" rs.open sql,conn,1,1 do while not rs.eof goname=rs("SMT_user") goid=rs("SMT_id") coname=trim(rs("SMT_coname")) ypview=ypview&"" rs.movenext loop rs.close ypview=ypview&"

" if dnskey=1 then if dnswww=1 then usertwourl="http://www."&goname&citydns else usertwourl="http://"&goname&citydns end if else usertwourl=cityurl&"co.asp?id="&goid end if if eid=1 then if rs("SMT_logo")<>"" then cologo=application("cityurl")&rs("SMT_logo") else cologo=application("cityurl")&"img/yplogo.gif" end if ypview=ypview&"

" end if ypview=ypview&"·"&LeftT(coname,bid)&"" if rs("SMT_vip")=2 then ypview=ypview&" " end if ypview=ypview&"

" %> document.write('<%=ypview%>')