<% Option Explicit %>
<!--#include file="../FS_Inc/Const.asp" -->
<!--#include file="../FS_InterFace/MF_Function.asp" -->
<!--#include file="../FS_Inc/Function.asp" -->
<!--#include file="lib/strlib.asp" -->
<!--#include file="lib/UserCheck.asp" -->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
If Request.Form("Action") = "Save" then
	Dim DelID,Str_Tmp,Str_Tmp1
	DelID = request.Form("CorpCardID")
	if DelID = "" then 
		strShowErr = "<li>你必须选择一项再删除</li>"
		Call ReturnError(strShowErr,"")
	End if
	User_Conn.execute("Delete From  FS_ME_CorpCard   where CorpCardID in ("&DelID&")")
	strShowErr = "<li>删除名片成功</li>"
	Call ReturnError(strShowErr,"")
End if
User_GetParm
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<title><%=GetUserSystemTitle%>-名片管理</title>
<meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
<meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
<link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<head>
<body>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  <tr>
    <td>
      <!--#include file="top.asp" -->
    </td>
  </tr>
</table>
<table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  
    <tr class="back"> 
      <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
    </tr>
    <tr class="back"> 
      <td width="18%" valign="top" class="hback"> <div align="left"> 
          <!--#include file="menu.asp" -->
        </div></td>
      <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
          <tr class="hback"> 
            
          <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
            <a href="main.asp">会员首页</a> &gt;&gt; 名片管理 </td>
          </tr>
        </table>
        
      <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
        <form name="form1" method="post" action="">
          <tr class="hback"> 
            <td colspan="4" class="hback"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="44%"> 共搜索到<strong> 
                    <%
				Dim RsCardObj,RsCardSQL
				Dim strpage,strSQLs
				strpage=request("page")
				if len(strpage)=0 Or strpage<1 or trim(strpage)=""  Then strpage="1"
				Set RsCardObj = Server.CreateObject(G_FS_RS)
				RsCardSQL = "Select CorpCardID,UserNumber,F_UserNumber,AddTime,Content,isLock From FS_ME_CorpCard  where UserNumber='"&Fs_User.UserNumber&"' "& strSQLs &" and islock = 0 Order by CorpCardID desc"
				RsCardObj.Open RsCardSQL,User_Conn,1,3
				Response.Write "<Font color=red>" & RsCardObj.RecordCount&"</font>"
				%>
                    </strong> 个 名片</td>
                  <td width="56%"><div align="center"><%if p_isPassCard = 1 Then Response.Write("<a href=Corp_Card_unpass.asp><b>查看欲和我交换名片的用户</b></a>")%></div></td>
                </tr>
              </table></td>
          </tr >
          <tr class="hback"> 
            <td class="xingmu">用户编号</td>
            <td class="xingmu">添加时间</td>
            <td class="xingmu"><div align="center">查看名片和备注</div></td>
            <td class="xingmu"><div align="center">操作</div></td>
          </tr>
          <%
		Dim select_count,select_pagecount,i
		if RsCardObj.eof then
			   RsCardObj.close
			   set RsCardObj=nothing
			   Response.Write"<TR><TD colspan=""4""  class=""hback"">没有记录。</TD></TR>"
		else 
				RsCardObj.pagesize = 15
				RsCardObj.absolutepage=cint(strpage)
				select_count=RsCardObj.recordcount
				select_pagecount=RsCardObj.pagecount
				for i=1 to RsCardObj.pagesize
					if RsCardObj.eof Then exit For 
						Dim Returvaluestr
						Returvaluestr = Fs_User.GetFriendName(RsCardObj("F_UserNumber"))
					if RsCardObj("F_UserNumber") = "0" then
						  exit For 
					Else
						Dim RsGetCardUObj,QQ,msn,Email
						Set RsGetCardUObj = Server.CreateObject(G_FS_RS)
						RsGetCardUObj.open "select  qq,msn,UserNumber,Email From FS_ME_Users where UserNumber='"& RsCardObj("F_UserNumber") &"'",User_Conn,1,1
						if not RsGetCardUObj.eof then 
							QQ = RsGetCardUObj("qq")
							msn = RsGetCardUObj("msn")
							Email = RsGetCardUObj("Email")
						else
							QQ = "用户已不存在"
							msn = "用户已不存在"
							Email = "用户已不存在"
						end if	
						Dim RsGetCardObj
						Set RsGetCardObj = Server.CreateObject(G_FS_RS)
						RsGetCardObj.open "select C_logo,C_Name,C_ConactName,C_Vocation,C_Tel,C_Fax,C_WebSite,C_Province,C_City,C_address,C_PostCode,UserNumber From FS_ME_CorpUser where UserNumber='"& RsCardObj("F_UserNumber") &"'",User_Conn,1,1
		%>
          <tr class="hback"> 
            <td width="41%" class="hback">· <a href="ShowUser.asp?UserNumber=<% = RsCardObj("F_UserNumber")%>" target="_blank">
              <% = Returvaluestr%>&nbsp;(<%if RsGetCardObj.eof then response.Write("用户已不存在") else response.Write(RsGetCardObj("C_Name")) end if%>)
              </a></td>
            <td width="23%" class="hback"><div align="left"><% = RsCardObj("addtime")%></div></td>
            <td width="20%" class="hback"  id=item$pval[CatID]) style="CURSOR: hand"  onmouseup="opencat(Cid<%=RsCardObj("CorpCardID")%>);if(document.all.imgid<%=RsCardObj("CorpCardID")%>.offsetWidth>200) document.all.imgid<%=RsCardObj("CorpCardID")%>.width=200;"  language=javascript><div align="center">查看名片</div></td>
            <td width="16%" class="hback"><div align="center"> 
                <input name="CorpCardID" type="checkbox" id="CorpCardID2" value="<% = RsCardObj("CorpCardID")%>">
              </div></td>
          </tr>
          <tr class="hback" style="display:none" id="Cid<%=RsCardObj("CorpCardID")%>"> 
            <td height="46" colspan="4" class="hback"><table width="100%" border="0" cellspacing="1" cellpadding="5" class="table">
                <tr> 
                  <td width="23%" class="hback_1">备注</td>
                  <td width="22%" class="hback_1"><div align="center"><a href="Corp_Card_add_1.asp?CorpCardid=<% = RsCardObj("CorpCardID")%>">修改此名片</a></div></td>
                  <td rowspan="2" class="hback_1">
				  
				  <table width="100%" border="0" cellspacing="1" cellpadding="2" class="table">
                      <tr>
                        <td width="39%" rowspan="6" class="hback"> <div align="center"><a href="ShowUser.asp?UserNumber=<%if RsGetCardObj.eof then response.Write("用户已不存在") else response.Write(RsGetCardObj("UserNumber")) end if%>" target="_blank"> 
                            <%if RsGetCardObj.eof then 
								response.Write("用户已不存在") 
							else 
								if Trim(RsGetCardObj("C_logo")) <>"" then%>
								<img id="imgid<%=RsCardObj("CorpCardID")%>" src="<% = RsGetCardObj("C_logo")%>" alt="查看详细资料" border="0"></img> 
								<%Else%>
								<img src="images/nologo.gif" alt="查看详细资料" border="0"></img> 
								<%End if
							end if%>
                            </a> </div></td>
                        <td width="61%" class="hback"><strong><span class="bigtitle"><b> 
                          <%if RsGetCardObj.eof then response.Write("用户已不存在") else response.Write(RsGetCardObj("C_Name")) end if%>
                          </b></span> </strong></td>
                      </tr>
                      <tr> 
                        <td class="hback"><strong> 
                          <%if RsGetCardObj.eof then response.Write("用户已不存在") else response.Write(RsGetCardObj("C_ConactName")) end if %>
                          </strong>( 
                          <%if RsGetCardObj.eof then response.Write("用户已不存在") else response.Write(RsGetCardObj("C_Vocation")) end if%>
                          ) </td>
                      </tr>
                      <tr> 
                        <td class="hback">电话: 
                          <%if RsGetCardObj.eof then response.Write("用户已不存在") else response.Write(RsGetCardObj("C_Tel")) end if%> </td>
                      </tr>
                      <tr> 
                        <td class="hback">传真:
						<%if RsGetCardObj.eof then response.Write("用户已不存在") else response.Write(RsGetCardObj("C_Fax")) end if%> </td>
                      </tr>
                      <tr> 
                        <td class="hback">主页:<%if RsGetCardObj.eof then 
							response.Write("用户已不存在") 
							else%>
							<a href="<% = RsGetCardObj("C_WebSite")%>"> 
							  <% = RsGetCardObj("C_WebSite")%>
							</a>
						  <%end if%></td>
                      </tr>
                      <tr> 
                        <td class="hback">地址: 
                          <%if RsGetCardObj.eof then response.Write("用户已不存在") else response.Write(RsGetCardObj("C_Province")&" "&RsGetCardObj("C_Address")&" "&RsGetCardObj("C_PostCode")) end if%>  </td>
                      </tr>
                      <tr> 
                        <td class="hback">QQ: 
                          <%
						if  Len(Trim(QQ))>4 then
							Dim sOICQ
						    sOICQ ="<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin="& QQ &"&Site=FoosunCMS&Menu=yes><img border=""0"" SRC=http://wpa.qq.com/pa?p=1:"& QQ &":16 alt=""点击这里给"& QQ &"发消息""></a>"
							Response.Write sOICQ
						Else
							Response.Write("没有QQ")
						End if
						%> </td>
                        <td class="hback">QQ: 
                          <% = QQ%> </td>
                      </tr>
                      <tr> 
                        <td width="39%" class="hback"> <div align="left">Email:<a href="mailto:"<% = Email%>> 
                            <% = Email%>
                            </a><br>
                          </div></td>
                        <td class="hback">msn: 
                          <% = msn%> </td>
                      </tr>
                    </table></td>
                </tr>
                <tr> 
                  <td height="111" colspan="2" valign="top" class="hback_1">
				<%if RsGetCardObj.eof then 
					response.Write("用户已不存在") 
				else%>				  
				  <a href="ShowUser.asp?UserNumber=<% = RsCardObj("F_UserNumber")%>">
                    <% = RsCardObj("Content")%>
                  </a>
				 <%end if%> </td>
                </tr>
              </table></td>
          </tr>
          <%
				End if
			  RsCardObj.MoveNext
		  Next
		  %>
          <tr class="hback"> 
            <td colspan="4" class="hback_1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="80%"> <% 
							Response.Write("每页:"& RsCardObj.pagesize &"个,")
							Response.write"&nbsp;共<b>"& select_pagecount &"</b>页<b>&nbsp;" & select_count &"</b>条记录，本页是第<b>"& strpage &"</b>页。"
							if int(strpage)>1 then
								Response.Write"&nbsp;<a href=?page=1>第一页</a>&nbsp;&nbsp;"
								Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)-1)&">上一页</a>&nbsp;&nbsp;"
							End if
							If int(strpage)<select_pagecount then
								Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)+1)&">下一页</a>&nbsp;"
								Response.Write"&nbsp;<a href=?page="& select_pagecount &">最后一页</a>&nbsp;&nbsp;"
							End if
								Response.Write"<br>"
								RsCardObj.close
								Set RsCardObj=nothing
							End if
							%></td>
                </tr>
              </table></td>
          </tr>
          <tr class="hback"> 
            <td colspan="4" class="hback"><div align="right"> 
                <input name="Action" type="hidden" id="Action" value="Save">
                <input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(this.form)">
                选中所有名片 
                <input type="submit" name="Submit" value="删除所选择的项目"  onClick="{if(confirm('确定清除您所选择的记录吗？?')){this.document.form1.submit();return true;}return false;}">
              </div></td>
          </tr>
        </form>
      </table>
       </td>
    </tr>
    <tr class="back"> 
      <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
          <!--#include file="Copyright.asp" -->
        </div></td>
    </tr>
 
</table>
</body>
</html>
<%
set RsGetCardUObj = nothing
set RsGetCardObj = nothing
Set Fs_User = Nothing
%>
<script language="JavaScript" type="text/JavaScript">
function CheckAll(form)  
  {  
  for (var i=0;i<form.elements.length;i++)  
    {  
    var e = form.elements[i];  
    if (e.name != 'chkall')  
       e.checked = form.chkall.checked;  
    }  
  }
</script>
<!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->