<% dim tid,sellname tid=ubb(request("tid")) if tid="" or Isnumeric(tid)=False then Call Error("ID无效！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from sell where id="&tid,conn,1,1 if rs.eof then Call Error("帖子不存在！") end if sellname=rs("name") rs.close set rs=nothing Response.write "返回之前页" & chr(13) Response.write "
"&ubb(sellname)&"" Response.write "
-----------" Response.write "
请选择好友（可多选）
" function uname(uid) dim ru Set ru = Server.CreateObject("ADODB.Recordset") ru.Source ="SELECT name from Users where ID="&uid ru.open ru.Source,Conn,1,1 if not ru.eof then if ru("name")<>"" then uname=ru("name") else uname="[ID"&uid&"]" end if else uname="不存在的会员" end if ru.close set ru=nothing end function dim mesall mesall = Trim(Request.QueryString("mesall")) if mesall<>"" then mesall=";"&mesall end if dim myp,total,u,url,ptp,MaxPages,nextpage set rs=server.CreateObject("ADODB.RecordSet") rs.Open "select Did from myfriend where cid="&myid&" order by id desc",conn,1,1 myp = Trim(Request.QueryString("page")) if myp="" then myp=1 end if if rs.EOF then Response.write "还没有好友

" else rs.PageSize=50 MaxPages=rs.PageCount rs.absolutepage=myp total=rs.RecordCount u=0 Response.write "" do until rs.eof or u=rs.PageSize Response.Write "" Response.Write uname(rs("Did")) Response.Write "" rs.MoveNext u=u+1 loop Response.write "
" end if rs.close set rs=Nothing conn.close set conn=Nothing Response.write "
马上推荐" & chr(13) Response.write "" & chr(13) Response.write "" & chr(13) Response.write "
推荐所有好友" & chr(13) Response.write "" & chr(13) Response.write "" & chr(13) Response.write "
返回主贴" & chr(13) %>