<% if trim(request.QueryString("pid"))="" then pid=53 elseif trim(request.QueryString("pid"))="9147" then pid="9147 or blbid=106" else pid=trim(request.QueryString("pid")) end if sql="select top 20 * from tg_bm where blbid ="&pid&" order by id desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof if trim(rs("xb"))="ÄÐ" then xbxb="ÏÈÉú" else xbxb="Ůʿ" end if response.write"document.write('"&rs("blb")&""&rs("slb")&""&mid(rs("namexm"),1,1)&xbxb&""&rs("city")&""&left(trim(rs("tel")),7)&"****"&formatdate(rs("dtime"),12)&"');" rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %>