📄 index.asp
字号:
if is2weburl=1 then
%>
<A href="http://<%=rs("user")%>.<%=weburl1%>" target=_blank><%=rs("qymc")%></A>
<%
else
%>
<A href="<%=HOPE_InstallDir%>vipcom/<%=rs("user")%>" target=_blank><%=rs("qymc")%></A>
<%
end if
%>
主营产品/服务:
<%
zycp=rs("zycp")
if zycp>"" then
if instr(zycp,",")>0 then
zcarry=split(rs("zycp"),",")
if ubound(zcarry)=1 then
response.write"<a href='"&HOPE_InstallDir&"search/searchcom.asp?keywords="&zcarry(0)&"' target=_blank>"&zcarry(0)&"</a> <a href='"&HOPE_InstallDir&"search/searchcom.asp?keywords="&zcarry(1)&"' target=_blank>"&zcarry(1)&"</a>"
elseif ubound(zcarry)=2 then
response.write"<a href='"&HOPE_InstallDir&"search/searchcom.asp?keywords="&zcarry(0)&"' target=_blank>"&zcarry(0)&"</a> <a href='"&HOPE_InstallDir&"search/searchcom.asp?keywords="&zcarry(1)&"' target=_blank>"&zcarry(1)&"</a> <a href='"&HOPE_InstallDir&"search/searchcom.asp?keywords="&zcarry(2)&"' target=_blank>"&zcarry(2)&"</a>"
elseif ubound(zcarry)>2 then
response.write"<a href='"&HOPE_InstallDir&"search/searchcom.asp?keywords="&zcarry(0)&"' target=_blank>"&zcarry(0)&"</a> <a href='"&HOPE_InstallDir&"search/searchcom.asp?keywords="&zcarry(1)&"' target=_blank>"&zcarry(1)&"</a> <a href='"&HOPE_InstallDir&"search/searchcom.asp?keywords="&zcarry(2)&"' target=_blank>"&zcarry(2)&"</a>"
end if
else
response.write"<a href='"&HOPE_InstallDir&"search/searchcom.asp?keywords="&zycp&"'>"&zycp&"</a>"
end if
end if%>
</DIV></TD></TR>
<%
rs.movenext
loop
end if
%>
</TBODY></TABLE></TD></TR>
</TABLE><IMG
height=8 src="../images/shim(1).gif" width=1><BR>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD bgColor=#eeeeee>
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=0>
<TR>
<TD width="90%" bgColor=#e6e6e6>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="5%">
<%
Sql=("select Yixiang_memberRelation.[user] as MemUser,Yixiang_memberRelation.secuser,Yixiang_memberRelation.relation,Yixiang_memberRelation.addtime,wygkcn_corporation.* from Yixiang_memberRelation,wygkcn_corporation where Yixiang_memberRelation.relation=1 and Yixiang_memberRelation.[user]='"&session("user")&"' and wygkcn_corporation.[user]=Yixiang_memberRelation.secuser order by Yixiang_memberRelation.id desc")
set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open sql,conn,1,3%>
<INPUT
onclick=selectgroupall(this.form.group1)
type=checkbox value=1 name=group1> </TD>
<TD class=M style="CURSOR: hand"
onclick=javascript:hve_display(table0,image0)><IMG
src="../images/groupex.gif" border=0
name=image0> <U><FONT
color=#000000>我的采购商(<span style="color:red;">共<%=Rs.Recordcount%>位</span>)</FONT></U>
</TD></TR></TBODY></TABLE></TD>
<TD align=middle width="5%" bgColor=#e6e6e6> </TD>
<TD align=middle width="5%" bgColor=#e6e6e6> </TD></TR>
<TBODY id=table0>
<%
if rs.eof or rs.bof then
response.write"<TR>"
response.write"<TD style='PADDING-LEFT: 28px' bgColor=#ffffff colSpan=3 height=28>"
response.write"<DIV id=nav>该组下无成员</DIV></TD></TR>"
else
do while not rs.eof
%>
<TR>
<TD style="PADDING-LEFT: 28px" bgColor=#ffffff colSpan=3
height=28>
<DIV id=nav><INPUT type=checkbox value=1+<%=rs("secuser")%>
name=selected_friend_id>
<%
if rs("flag")=1 then
if is2weburl=1 then
%>
<A href="http://<%=rs("user")%>.<%=weburl1%>" target=_blank><%=rs("qymc")%></A>
<%else%>
<A href="<%=HOPE_InstallDir%>vipcom/<%=rs("user")%>" target=_blank><%=rs("qymc")%></A>
<%
end if
end if
%>
主营产品/服务:<%=rs("zycp")%>
</DIV></TD></TR>
<%
rs.movenext
loop
end if
%>
</TBODY></TABLE></TD></TR>
</TABLE><IMG height=8 src="../images/shim(1).gif" width=1><BR>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TR>
<TD bgColor=#eeeeee>
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=0>
<TR>
<TD width="90%" bgColor=#e6e6e6>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="5%">
<%
sql="select Yixiang_memberRelation.[user] as MemUser,Yixiang_memberRelation.secuser,Yixiang_memberRelation.relation,Yixiang_memberRelation.addtime,wygkcn_corporation.* from Yixiang_memberRelation,wygkcn_corporation where Yixiang_memberRelation.relation=-1 and Yixiang_memberRelation.[user]='"&session("user")&"' and wygkcn_corporation.[user]=Yixiang_memberRelation.secuser order by Yixiang_memberRelation.id desc"
set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open sql,conn,1,3%>
<INPUT
onclick=selectgroupall(this.form.group)
type=checkbox value=-1 name=group> </TD>
<TD class=M style="CURSOR: hand"
onclick=javascript:hve_display(tableblacklist,imageblacklist)><IMG
src="../images/groupex.gif" border=0
name=imageblacklist> <U><FONT
color=#000000>黑名单</FONT></U><U><FONT
color=#000000>(<span style="color:red;">共<%=Rs.Recordcount%>位</span>)</FONT></U>
</TD>
</TR></TBODY></TABLE></TD>
<TD align=middle width="5%" bgColor=#e6e6e6> </TD>
<TD align=middle width="5%" bgColor=#e6e6e6> </TD></TR>
<TBODY id=tableblacklist style="DISPLAY: none">
<%
if rs.eof or rs.bof then
response.write"<TR>"
response.write"<TD style='PADDING-LEFT: 28px' bgColor=#ffffff colSpan=3 height=28>"
response.write"<DIV id=nav>该组下无成员</DIV></TD></TR>"
else
do while not rs.eof
%>
<TR>
<TD style="PADDING-LEFT: 28px" bgColor=#ffffff colSpan=3
height=28>
<DIV id=nav><INPUT type=checkbox value=-1+<%=rs("secuser")%>
name=selected_friend_id>
<%
if is2weburl=1 then
%>
<A href="http://<%=rs("user")%>.<%=weburl1%>" target=_blank><%=rs("qymc")%></A>
<%
else
%>
<A href="<%=HOPE_InstallDir%>vipcom/<%=rs("user")%>" target=_blank><%=rs("qymc")%></A>
<%end if%>
<%=rs("qymc")%> [<%if rs("country")="中国" then response.write""&rs("city")&"" else response.write""&country&"" end if%>] 主营产品/服务:<%=rs("zycp")%> </DIV></TD></TR>
<%
rs.movenext
loop
end if
%>
</TBODY></TABLE></TD></TR>
</TABLE><IMG
height=8 src="../images/shim(1).gif" width=1><BR><IMG
height=4 src="../images/shim(1).gif" width=1><BR>
<TABLE cellSpacing=1 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD><INPUT onclick=selectall() type=checkbox value=on
name=all> 全选 </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD align=middle><INPUT onClick="return dosendmessage()" type=submit value="发留言" name=eventSubmit_doMessage>
<INPUT onClick="return domovefriend()" type=submit value="转移/复制 到其他组" name=eventSubmit_doMove>
<INPUT onClick="return delfriendclick()" type=submit value="删除" name=eventSubmit_doDelete>
</TD></TR></TBODY></TABLE></FORM>
<TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="95%"
border=0><TBODY>
<TR>
<TD>
<TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD>您可以将骚扰您的会员归到“黑名单”组，您就不会收到他通过<%=webname%>发送的网上留言、email啦！
</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR><BR><BR><BR>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD class=tbg1>对我感兴趣的商友： </TD></TR></TBODY></TABLE><IMG height=8
src="../images/shim(1).gif" width=1><BR>
<TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="95%"
border=0><TBODY>
<TR>
<TD>
<TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD class=lh15>
<%
sql1="select distinct [user] from Yixiang_memberRelation where secuser='"&session("user")&"'"
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql1,conn,1,1
totle=rs1.recordcount
response.write" 共有<b><font color='#ff0000'>"&totle&"</font></b>个会员将我加入到他的商业伙伴列表。"
if totle>0 then response.write"<img src='../images/indexpoint.gif' width='5' height='9'> <a href='addmefriend.asp' target='_blank'>立即查看</a>"
%>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR><BR>
<IMG
height=21 src="../images/addpartner_s.gif" width=29
align=absMiddle border=0> <A
href="addfriend_new.asp">将其他会员添加为“我的商业伙伴”</A> <A
href="toldmyfriend.asp"></A> <BR>
<BR><BR><BR></TD></TR>
</TABLE>
</TABLE>
<%
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -