?? addmefriend.asp
字號:
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
Response.Buffer = true
Response.ExpiresAbsolute=now()-1
Response.Expires=0
Response.CacheControl="no-cache"
if session("id")="" then
session("geturl")=geturl
response.Redirect("../../login/login1.asp")
response.end
end if
if Not ChkPost then
response.redirect ("../../login/chklogin.asp?login=4")
response.end
end if
%>
<!--#include file="../getprice/head.asp"-->
<%
sql="select * from memberRelation where secuser='"&session("user")&"'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
user=rs("user")
msg_per_page=20 '定義每頁顯示記錄條數
%>
<!--#include file="../../inc/headpage.asp"-->
<TABLE width=750 border=0 align="center" cellPadding=3 cellSpacing=0>
<TBODY>
<TR bgColor=#f5f5f5>
<TD class=C align=left>對您感興趣的商友共 <font color=#ff0000><b><%=totalrec%></b></font> 名</TD>
<TD class=C align=right>
</TD></TR></TBODY></TABLE><BR>
<TABLE width=750 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD bgColor=#a6d0ff>
<TABLE cellSpacing=1 cellPadding=5 width=750 border=0>
<TBODY>
<TR bgColor=#d7ebff>
<TD class=M align=middle>姓名</TD>
<TD class=M align=middle>性別</TD>
<TD class=M align=middle>城市</TD>
<TD class=M align=middle>行業</TD>
<TD class=M align=middle>主營產品/服務</TD>
<TD class=M align=middle>公司</TD></TR>
<%
'set rs=conn.execute("select distinct(memberRelation.user) as MemUser,memberRelation.relation,memberRelation.addtime,corporation.* from memberRelation,corporation where memberRelation.secuser='"&session("user")&"' and corporation.user=memberRelation.user order by memberRelation.id desc")
'set rs=conn.execute("select memberRelation.user as MemUser,memberRelation.relation,memberRelation.addtime,corporation.city from memberRelation,corporation where memberRelation.secuser='"&session("user")&"' and corporation.user=memberRelation.user GROUP BY memberRelation.user,memberRelation.relation,memberRelation.addtime,corporation.user,corporation.city order by memberRelation.id desc")
if rs.eof or rs.bof then
response.write"<TABLE cellSpacing=1 cellPadding=5 width=750 border=0><TBODY><TR bgColor=#ffffff><TD class=M align=middle>暫無其他商友把您加為商業伙伴</td></TR></TBODY></TABLE>"
else
do while not rs.eof and rowcount > 0
set rs1=conn.execute("select corporation.*,class_1.* from corporation,class_1 where [user]='"&user&"' and class_1.sortid=corporation.sortid")
%>
<TR bgColor=#ffffff>
<TD class=C noWrap>
<DIV id=nav><A href="mailto:<%=rs1("email")%>"
target=_blank><%=rs1("name")%></A> </DIV></TD>
<TD align=middle><%=rs1("ch")%></TD>
<TD align=middle><%=rs1("city")%></TD>
<TD align=middle><%=rs1("sort")%></TD>
<TD><%=rs1("zycp")%></TD>
<TD><%if rs1("flag")=1 then response.write"<a href='../../"&rs1("url")&"' target='_blank'>"&rs1("qymc")&"</a>" else response.write"<a href='../../noshinecompany/index.asp?id="&rs1("id")&"' target='_blank'>"&rs1("qymc")&"</a>" end if%></TD></TR>
<%
rowcount=rowcount-1
rs.movenext
loop
end if
%>
</TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<BR>
<TABLE width=750 border=0 align="center" cellPadding=3 cellSpacing=0>
<TBODY>
<TR bgColor=#f5f5f5>
<TD class=C align=right><%=listPages("addmefriend.asp")%>
</TD></TR></TBODY></TABLE><BR><BR><BR><BR><BR>
<!--#include file="../../inc/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 + -