商务助手首页
发布商业信息
发布供求信息
管理供求信息
发布产品信息
管理产品信息
公司介绍
查看商业往来
我收到的留言
我发出的留言
发新留言
我订阅的信息
我的商业伙伴
我的会员资料
我的自助网站
帮助



现有商业伙伴：

<% set rs=conn.execute("select memberRelation.user as MemUser,memberRelation.secuser,memberRelation.relation,memberRelation.addtime,corporation.* from memberRelation,corporation where memberRelation.relation=0 and memberRelation.user='"&session("user")&"' and corporation.user=memberRelation.secuser order by memberRelation.id desc") if rs.eof or rs.bof then response.write"" response.write"" else do while not rs.eof %> <% rs.movenext loop end if %>
我的供应商
   

<% set rs=conn.execute("select memberRelation.user as MemUser,memberRelation.secuser,memberRelation.relation,memberRelation.addtime,corporation.* from memberRelation,corporation where memberRelation.relation=1 and memberRelation.user='"&session("user")&"' and corporation.user=memberRelation.secuser order by memberRelation.id desc") if rs.eof or rs.bof then response.write"" response.write"" else do while not rs.eof %> <% rs.movenext loop end if %>
我的采购商
   
" response.write"

<% set rs=conn.execute("select memberRelation.user as MemUser,memberRelation.secuser,memberRelation.relation,memberRelation.addtime,corporation.* from memberRelation,corporation where memberRelation.relation=-1 and memberRelation.user='"&session("user")&"' and corporation.user=memberRelation.secuser order by memberRelation.id desc") if rs.eof or rs.bof then response.write"" response.write"" else do while not rs.eof %> <% rs.movenext loop end if %>
黑名单
   


全选
您可以将骚扰您的会员归到“黑名单”组，您就不会收到他通过<%=webname%>发送的网上留言、email啦！




对我感兴趣的商友：

<% sql1="select distinct user from MemberRelation where secuser='"&session("user")&"'" Set rs1= Server.CreateObject("ADODB.Recordset") rs1.open sql1,conn,1,1 totle=rs1.recordcount response.write" 共有"&totle&"个会员将我加入到他的商业伙伴列表。" if totle>0 then response.write" 立即查看" %>


将其他会员添加为“我的商业伙伴”     邀请非会员朋友成为“我的商业伙伴”






<% rs1.close set rs1=nothing rs.close set rs=nothing conn.close set conn=nothing %>