<!--#include file=webhead.asp-->
<!--#include file=cookie.asp-->
<title><%=webname%>-会员中心</title>
<body bgcolor="#CCCCCC">
<div align="center">
  <table width="784" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" >
    <tr> 
      <td bgcolor="#E9E9E9" height=2></td>
    </tr>
    <tr> 
      <td align="center"> <p align="center"> 
          <%if ad2451class=0 then%>
          <a target="_blank" href="<%=ad2451url%>"><img  alt="<%=ad2451name%>" src="<%=ad2451%>"  border="0" width=777 height=123></a> 
          <%else%>
          <object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="777" height="123">
            <param name="movie" value="<%=ad2451%>">
            <param name="quality" value="High"><embed src="<%=ad2451%>" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="777" height="123"> 
          </object>
          <%end if%>
          　</td>
    </tr>
  </table>
<%
set rs7=server.CreateObject ("adodb.recordset")
sql="select * from byshop_user where user='"&replace(request.cookies("byshop")("user"),"'","")&"'"
rs7.open sql,conn,1,1
userid=rs7("id")
%>
	
  <table width="784" border="0" cellpadding="0" bordercolor="#000000" bgcolor="#FFFFFF" style="border-collapse: collapse; border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px">
    <tr>
			<td width="200" valign="top"><!--#include file="mume.asp"-->
      </td>			<td width=3 bgcolor="#ffffff"></td>
			<td width=1 bgcolor="#E9E9E9"></td>
			<td width=3 bgcolor="#ffffff"></td>
			<td width="600" valign="top">
			<table border="0" width="100%">
				<tr>
					<td>
					<table cellSpacing="0" cellPadding="0" width="500" align="center" border="0">
                <tr> 
                  <td> <table cellSpacing="1" cellPadding="3" width="100%" border="0">
                      <tr> 
                        <td class="title" align="middle" colSpan="2" height="20"> 
                          <font color="#ff0000"><strong>基本信息</strong></font></td>
                      </tr>
                      <tr bgColor="#f1f1f1"> 
                        <td align="middle" width="25%" height="20"> 发布类型: </td>
                        <td width="75%" height="20"> <font color="#FF0000"> 
                          <%if rs7("usersort")=2 then%>
                          中介 <%=rs7("company")%> 
                          <%end if%>
                          <%if rs7("usersort")=3 then%>
                          个人 <%=rs7("name")%> 
                          <%end if%>
                          </font></td>
                      </tr>
                      <tr bgColor="#f1f1f1"> 
                        <td align="middle" height="20">注册时间:</td>
                        <td bgColor="#f1f1f1" height="20"> <font color="#ff0000"><%=rs7("addtime")%></font></td>
                      </tr>
                      <tr bgColor="#f1f1f1"> 
                        <td align="middle" height="20">上次登录:</td>
                        <td bgColor="#f1f1f1" height="20"> 时间：<font color="#FF0000"><%=rs7("lastlogin")%></font> IP：<font color="#FF0000"><%=rs7("ip")%></font>- <%
									          lastip=rs7("ip")
									      
IP=lastip
	Function cacuIp(ip)
	On Error Resume Next
Dim srIp, aIp
	srIp=0
	aIp = Split(ip,".")
If UBound(aIP)<>3 Then
cacuIP=0
	Exit Function
End If
	For i=0 To 3
	srIp=srIp+(CInt(aIP(i))*(256^(3-i)))
Next
	cacuIp=srIp-1
If Err Then cacuIp=0
End Function 

Set CONN2=Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../admin/byshop.cn.IP.asp")
conn2.open connstr
iip=cacuIp(IP)
SQL = "SELECT bz,ct FROM byshop WHERE jiu1<=" & iip & " AND hu2>=" & iip
Set rs = CONN2.Execute ( SQL )
If rs.Eof Then
	sPlace="查询错误"
Else
	sPlace=rs(0)&""&rs(1)
End If
	
	Response.Write "[<font color=red>"&sPlace&"</font>]"
	responsew.write rs("jiu1")
	Set rs=Nothing
%></font>
                          </td>
                      </tr>
                      <tr> 
                        <td colSpan="2" height="15"></td>
                      </tr>
                    </table></td>
                </tr>
                <tr> 
                  <td> <table cellSpacing="1" cellPadding="1" width="100%" border="0">
                      <tr> 
                        <td class="title" align="middle" colSpan="4" height="20"> 
                          <strong><font color="#FF0000"></strong><font color="#FF0000"><strong>信息发布</strong></font></td>
                      </tr>
                      <tr> 
                        <td class="title" align="middle" width="25%" bgColor="#f1f1f1" height="20"> 
                          发布信息类型</td>
                        <td class="title" align="middle" width="25%" bgColor="#f1f1f1" height="20"> 
                          通过审核</td>
                        <td class="title" align="middle" width="25%" bgColor="#f1f1f1" height="20"> 
                          待审核 </td>
                        <td class="title" align="middle" width="25%" bgColor="#f1f1f1" height="20"> 
                          未通过审核</td>
                      </tr>
                      <tr> 
                        <td align="middle" bgColor="#f1f1f1" > 二手房出售</td>
                        <td align="middle" bgColor="#f1f1f1" > <font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from sell where by_shenhe=1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"><font color="#FF0000">
                          <%set rs=server.createobject("adodb.recordset")
rs.open "select * from sell where by_shenhe=0 and userid='"&userid&"'",conn,1,1

response.write  rs.recordcount
rs.close
set rs=nothing
%>
                          </font>条</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"> <font color="#FF0000">
                          <%set rs=server.createobject("adodb.recordset")
rs.open "select * from sell where by_shenhe=-1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条</td>
                      </tr>
                      <tr> 
                        <td align="middle" bgColor="#f1f1f1" > 二手房求购</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"> <font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from sell2 where by_shenhe=1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"> <font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from sell2 where by_shenhe=0 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条 　</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"> <font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from sell2 where by_shenhe=-1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条　</td>
                      </tr>
                      <tr> 
                        <td align="middle" bgColor="#f1f1f1" > 借款信息</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"> <font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from rent where by_shenhe=1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条 　</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"> <font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from rent where by_shenhe=0 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"><font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from rent where by_shenhe=-1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条</td>
                      </tr>
                      <tr> 
                        <td align="middle" bgColor="#f1f1f1" > 放款信息</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"><font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from rent2 where by_shenhe=1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条 　</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"><font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from rent2 where by_shenhe=0 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条 　</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"><font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from rent2 where by_shenhe=-1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条　</td>
                      </tr>
                      <tr> 
                        <td align="middle" bgColor="#f1f1f1" > 合租</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"> <font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from cotenancy where by_shenhe=1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"><font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from cotenancy where by_shenhe=0 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条</td>
                        <td align="middle" bgColor="#f1f1f1" height="20"><font color="#FF0000"> 
                          <%
									set rs=server.createobject("adodb.recordset")
rs.open "select * from cotenancy where by_shenhe=-1 and userid='"&userid&"'",conn,1,1
response.write  rs.recordcount

rs.close
set rs=nothing
%>
                          </font>条</td>
                      </tr>
                      <tr> 
                        <td colSpan="4" height="20">　</td>
                      </tr>
                      <tr> 
                        <td colSpan="4" height="20"> <table width="100%" border="0" cellPadding="3" cellSpacing="1" bgcolor="#FFFF99">
                            <tr> 
                              <td align="middle" height="15"><font color="#ff0000"><strong>特别提示</strong></font></td>
                            </tr>
                            <tr> 
                              <td bgColor="#f1f1f1" height="43"> <span style="LETTER-SPACING: 1pt"> 
                                <font color="#ff0000">提醒注意：<br>
                                </font>1.所有信息需审核后才能显示</span><span style="LETTER-SPACING: 1pt">。</span><span style="LETTER-SPACING: 1pt"><br>
                                2.为了提升网站信息的准确率，使网站得到更好的作，请您在发布信息时，一定发布真实的信息，如若故意发布虚假信息，管理员有权在不告知发布者的情况下直接删除 
                                该信息,并取消会员资格。<br>
                                3.通过审核和未通过审核信息均不能修改</span><span style="LETTER-SPACING: 1pt">。</span><span style="LETTER-SPACING: 1pt"><br>
                                4.如有其它事疑,请联系本站管理员</span><span style="LETTER-SPACING: 1pt">。</span><span style="LETTER-SPACING: 1pt"><br>
                                　</span> <table border="0" width="100%" cellspacing="0" cellpadding="0">
                                  <tr> 
                                    <td> <p align="right"><%=webname%>-管理员　</td>
                                  </tr>
                                </table></td>
                            </tr>
                            <tr> 
                              <td height="20">　</td>
                            </tr>
                          </table></td>
                      </tr>
                    </table></td>
                </tr>
              </table>
					</td>
				</tr>
			</table>
			</td>
		</tr>
	</table>
</div>
<!--#include file=webfoot.asp-->