my_friend.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 131 行

<!--#include file="top.asp"--><%usertopview%>
<%if userflag27=0 then
response.redirect"ok.asp?action=flag"
end if

if request("action")="save" then
%><!--#include file="../buy.htm"--><%
'==========================
elseif request("action")="del" then
%><!--#include file="../buy.htm"--><%
end if
%>
<script language="JavaScript">
<!--
function checkdata() {
if( addform.SMT_name.value =="") {
alert("\操作错误，下面是产生错误的可能原因：\n\n·请输入企业名称或联系人")
return false;
}
return true;
}
// -->
</script>

<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td width="160" valign=top bgcolor=#efefef>
<!--==============-->
<!--#include file="left.asp"-->
<!--==============-->
</td>
<td width="600" valign=top>
<!--==============-->
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td height=25>您现在的位置是：我的公文包 > 我的名片薄</td></tr>
  <tr>
    <td>
<!--####################################-->
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor=#6C94D1>
  <tr>
    <td height=25 bgcolor=#6C94D1>　　<font color=white>新增名片</font></td>
  </tr>
  <tr>
    <td bgcolor=#ffffff height=25>
<!--======-->
<table width="100%" border="0" cellspacing="0" cellpadding="0" align=center>
<form name="addform" method="post" action="my_friend.asp?action=save" onSubmit="return checkdata()">
  <tr>
    <td align=center height=30><select name="SMT">
<option value="SMT_coname">企业名称</option>
<option value="SMT_colxr">联系人</option>
</select>　<input name="SMT_name" type="text" size="30" maxlength="50">　<input type="submit" name="Submit" value="添 加" class="input1"></td>
  </tr>
</form>
</table>
<!--======-->
	</td>
  </tr>
</table>
<!--####################################-->
	</td>
  </tr>
  <tr>
    <td height=10></td>
  </tr>
  <tr>
    <td>
<!--####################################-->
<table width="100%" border="0" cellspacing="1" cellpadding="0"bgcolor=#6C94D1>
  <tr>
    <td height=25 bgcolor=#6C94D1 colspan=2 style="border:1px #6c94d1 solid">　　<font color=white>名片管理</font></td>
  </tr>
  <tr>
    <td width="19%" valign=top bgcolor="#ffffff">
<!--======-->
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<%set rs=server.createobject("adodb.recordset")

sql="select * from SMT_friend where SMT_yp_id="&session("id")
rs.open sql,conn,1,1
if not rs.eof then
SMT_friend=rs("SMT_friend")
else
response.write "<td align=center>还没有收藏企业名片</td>"
end if
rs.close

if SMT_friend<>"" then
SMT_friend=split(SMT_friend,",")
n=0
for i=0 to ubound(SMT_friend)
n=n+1
sql="select * from SMT_yp where SMT_id=" &SMT_friend(i)
rs.open sql,conn,1,1%>
<td width=45%><a href=<%=application("cityurl")%>card.asp?id=<%=rs("SMT_id")%> target=_blank><%=rs("SMT_coname")%></a></td><td width=5% align=center><a href=my_friend.asp?action=del&id=<%=SMT_friend(i)%>>删</a></td>
<%if n mod 2=0 then response.write "</tr><tr>"
rs.close
next
else
response.write "<td align=center>还没有收藏企业名片</td>"
end if

set rs=nothing%>
</tr>
</table>
<!--======-->
	</td>
  </tr>
</table>
<!--####################################-->
	</td>
  </tr>
</table>
<!--####################################-->
	</td>
  </tr>
</table>
<!--==============-->
</td>
</tr>
</table>
<!--====== bottom ========-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=#ffffff>
<tr><td height=2 bgcolor=#6C94D1></td></tr>
  <tr>
    <td align="center" height=80><%=citybottom%></td>
  </tr>
</table>
</body>
</html>