addmefriend.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
  <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("sh")
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"
  
 

if Not ChkPost then 
		response.write "<script language='javascript'>"
		response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
		response.end
end if
%>
<!--#include file="../getprice/head.asp"-->
<%
sql="select * from Yixiang_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>
<%
 
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 wygkcn_corporation.*,Yixiang_class_1.* from wygkcn_corporation,Yixiang_class_1 where wygkcn_corporation.flag=1 and  [user]='"&user&"' and Yixiang_class_1.sortid=wygkcn_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><% response.write""&rs1("qymc")&"" %></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
%>