?? index.asp
字號:
function domovefriend(){
var count = 0;
for (var i = 0; i < document.mypartnerlist.elements.length; i++){
var field = document.mypartnerlist.elements[i];
var element_name = field.name;
if (element_name == "selected_friend_id"){
if (field.checked ) count++;
}
}
if (count == 0){
alert("親愛的會員，請先選擇要移動/復制到其他組的商業(yè)伙伴!");
return false;
}
document.mypartnerlist.action="movefriend.asp";
document.mypartnerlist.submit();
}
function addvisitorinfo(id_value){
document.formlink.myfriend_id.value=id_value;
document.formlink.submit();
}
function hve_display(t_id,i_id){//顯示隱藏程序
//var t_id;//表格id
//var i_id;//圖片id
var on_img="on.gif";//打開時圖片
var off_img="off.gif";//隱藏時圖片
if (t_id.style.display == "none") {//如果為隱藏狀態(tài)
t_id.style.display="";//切換為顯示狀態(tài)
i_id.src="../images/groupfo.gif";}//換圖
else{//否則
t_id.style.display="none";//切換為隱藏狀態(tài)
i_id.src="../images/groupex.gif";}//換圖
}
function Hve_Display(t_id){//顯示隱藏程序
var t_id;
if (t_id.style.display == "none") {//如果為隱藏狀態(tài)
t_id.style.display="";//切換為顯示狀態(tài)
}//換圖
else{//否則
t_id.style.display="none";//切換為隱藏狀態(tài)
}//換圖
}
</SCRIPT>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD align=right><A
href="addfriend_new.asp"><IMG
height=26 src="../images/addnewpartner.gif" width=97
border=0></A></TD>
</TR></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD class=tbg1>現(xiàn)有商業(yè)伙伴：</TD></TR></TBODY></TABLE>
<FORM style="MARGIN-TOP: 8px" name=mypartnerlist action="" method=post>
<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%"><INPUT
onclick=selectgroupall(this.form.group0)
type=checkbox value=0 name=group0> </TD>
<TD class=M style="CURSOR: hand"
onclick=javascript:hve_display(table1754891,image1754891)><IMG
src="../images/groupex.gif" border=0
name=image1754891> <U><FONT
color=#000000>我的供應商</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=table1754891 style="DISPLAY: none">
<%
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"<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=0+<%=rs("secuser")%>
name=selected_friend_id> <%if rs("flag")=1 then%><A
href="../../<%=rs("url")%>"
target=_blank><%=rs("qymc")%></A><%elseif rs("cflag")=1 then%><A
href="../../noshinecompany/<%=rs("id")%>.html"
target=_blank><%=rs("qymc")%></A><%else%><A
href="../../noshinecompany/<%=rs("id")%>.html"
target=_blank><%=rs("qymc")%></a><%end if%> 主營產(chǎn)品/服務:<% zycp=rs("zycp")
if zycp>"" then
if instr(zycp,",")>0 then
zcarry=split(rs("zycp"),",")
if ubound(zcarry)=1 then
response.write"<a href='/search/searchcor.asp?keywords="&zcarry(0)&"'>"&zcarry(0)&"</a> <a href='/search/searchcor.asp?keywords="&zcarry(1)&"'>"&zcarry(1)&"</a>"
elseif ubound(zcarry)=2 then
response.write"<a href='/search/searchcor.asp?keywords="&zcarry(0)&"'>"&zcarry(0)&"</a> <a href='/search/searchcor.asp?keywords="&zcarry(1)&"'>"&zcarry(1)&"</a> <a href='/search/searchcor.asp?keywords="&zcarry(2)&"'>"&zcarry(2)&"</a>"
elseif ubound(zcarry)>2 then
response.write"<a href='/search/searchcor.asp?keywords="&zcarry(0)&"'>"&zcarry(0)&"</a> <a href='/search/searchcor.asp?keywords="&zcarry(1)&"'>"&zcarry(1)&"</a> <a href='/search/searchcor.asp?keywords="&zcarry(2)&"'>"&zcarry(2)&"</a>"
end if
else
response.write"<a href='/search/searchcor.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%"><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>我的采購商</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>
<%
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"<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%><A
href="../../<%=rs("url")%>"
target=_blank><%=rs("qymc")%></A><%elseif rs("cflag")=1 then%><A
href="../../noshinecompany/index.asp?id=<%=rs("id")%>"
target=_blank><%=rs("qymc")%></A><%else%><%=rs("qymc")%><%end if%> 主營產(chǎn)品/服務:<%=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%"><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>
</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">
<%
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"<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%><A
href="../../<%=rs("url")%>"
target=_blank><%=rs("qymc")%></A><%elseif rs("cflag")=1 then%><A
href="../../noshinecompany/index.asp?id=<%=rs("id")%>"
target=_blank><%=rs("qymc")%></A><%else%><%=rs("qymc")%><%end if%> [<%if rs("country")="中國" then response.write""&rs("city")&"" else response.write""&country&"" end if%>] 主營產(chǎn)品/服務:<%=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="發(fā)留言" name=eventSubmit_doMessage>
<INPUT onclick="return domovefriend()" type=submit value="轉(zhuǎn)移/復制 到其他組" 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%>發(fā)送的網(wǎng)上留言、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 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>個會員將我加入到他的商業(yè)伙伴列表。"
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">將其他會員添加為“我的商業(yè)伙伴”</A> <IMG
height=21 src="../images/addpartner_s.gif" width=29
align=absMiddle border=0> <A
href="toldmyfriend.asp">邀請非會員朋友成為“我的商業(yè)伙伴”</A> <BR>
<BR><BR><BR></TD></TR>
</TABLE>
<BR><BR>
</TABLE><IMG
height=10 src="../images/bottom.gif" width=778><BR>
<!--#include file="../end.asp"-->
<%
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 + -