<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
if MemberName="" then
  response.Redirect("userlogin.asp")
  response.end
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE91 {	font-size: 14px;
	color: #0066CC;
	font-weight: bold;
}
-->
</style>
 <script language="javascript" src="js/area1.js"></script>
 <script language="javascript">
 function chklog(){
if(document.frmlog.userid.value.length==0){
 alert("请填写您的登陆帐号！");
 document.frmlog.userid.focus();
 return false;
}
if(document.frmlog.userpass.value.length==0){
 alert("请填写您的登陆密码！");
 document.frmlog.userpass.focus();
 return false;
}
return true;
}
 </script>
</head>
<body>
<%
dim prov,city,sheng,shi
set res=server.CreateObject("adodb.recordset")
sql1="select prov,city,sheng,shi from user_info where userid="& userid
res.open sql1,conn,1
prov=res("prov")
city=res("city")
sheng=res("sheng")
shi=res("shi")
res.close
set res=nothing
%>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="787" align="center" valign="top" bgcolor="#FFFFFF"><div align="left">
      <table width="778" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="200" align="center" valign="top"><div align="left"><!--#include file="memberleft.asp"-->
              </div></td>
          <td align="center" valign="top" bgcolor="FAFAFA" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><table width="565" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="577" align="center" valign="top"><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
                    <TBODY>
                      <TR>
                        <TD align=center width="2%"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                        <TD width="12%" align=center background="image/tiao_4.gif"><table width="69" height="25" border="0" cellpadding="0" cellspacing="0">
                          <tr>
                            <td align="center" class="pgd">老乡会</td>
                          </tr>
                        </table></TD>
                        <TD width="53%" height="20" align="center" background="image/tiao_4.gif">&nbsp;
      </TD>
                        <TD width="32%" align="center" background="image/tiao_4.gif">&nbsp;</TD>
                        <TD width="1%" align="center"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr>
              <tr>
                <td height="7"></td>
              </tr>
			  <%if sheng="" or shi="" or isnull(sheng) or isnull(shi) then 
				  response.Write "<tr><td><br><br><br><p align=center class=style30>您没有填写好原籍，无法浏览老乡会频道！<br><br><a href='baseinfo.asp' class='a2'>点击这里</a>来完善您的基本资料。<br><br></p></td></tr>"
				else
				%>
              <tr>
                <td><table width="565" border="1" cellpadding="0" cellspacing="0" bordercolor="#9DCCF6" bordercolordark="#FFFFFF">
                    <tr>
                      <td width="561"><table width="100%" height="50" border="0" cellpadding="0" cellspacing="0" class="STYLE1">
                          
                          <tr>
                            <td height="25" colspan="4" align="center"><table width="100%" height="28" border="0" cellpadding="0" cellspacing="0" class="style30">
                                <tr>
                                  <td width="6%" height="25" align="center" valign="middle"><img src="image/small_hongxin.gif" width="16" height="16"></td>
                                  <td height="25" valign="middle"><%response.Write "原籍:"&GetProv(sheng)&" "& GetCity(shi)&"&nbsp;&nbsp;&nbsp;&nbsp;"
								 response.Write "现居:"&GetProv(prov)&" "& GetCity(city)
								  %></td>
                                  </tr>
                                <tr>
                                  <td height="1" colspan="2" align="center" bgcolor="#9DCCF6"></td>
                                </tr>
                            </table></td>
                            </tr>
                          <tr class="STYLE1">
                            <td width="20%" height="25" align="center" bgcolor="#EDF8FE"><font color="#4193DD"><b>会员帐号</b></font></td>
                            <td width="38%" height="25" align="center"><font color="#4193DD"><b>个人独白</b></font></td>
                            <td width="20%" height="25" align="center" bgcolor="#EDF8FE">&nbsp;</td>
                            <td width="22%" height="25" align="center"><font color="#4193DD"><b>其它</b></font></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
              <%
set rs=server.CreateObject("adodb.recordset")
sql="select userid,username,sex,friendrelation,dubai,photo from user_info where prov="& prov &" and city="& city &" and sheng="& sheng &" and shi="& shi &" and userid<>"& userid &" order by regtime desc"
rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<tr><td><p class='style30' align='center'><br>暂无老乡信息！<br><br></p></td></tr>"
else
               rs.pagesize=5
			   msg_per_page=rs.pagesize
			   page=request("page")
			   if page<1 or page="" then page=1
			   if clng(page)>clng(rs.pagecount) then page=clng(rs.pagecount)
			   page=clng(page)
			   rs.absolutepage=page
			   rowcount=rs.pagesize
			   pcount=clng(rs.pagecount)	
			   precordcount=rs.recordcount
%>
              <%	do while not rs.eof and rowcount>0%>
              <tr>
                <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="9DCCF6" bordercolordark="#FFFFFF" bgcolor="#EDF8FE" class="style30">
                    <tr>
                      <td width="20%" align="center"><table width="96%" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td height="21" align="center">[<%=rs("sex")%>]<span class="STYLE88"> <a href="userinfo.asp?user_id=<%=rs("userid")%>" class="a1" target="_blank"><%=rs("username")%></a></span></td>
                            </tr>
                            <tr>
                              <td align="center"><%if rs("photo")="" or isnull(rs("photo")) then %>
                                  <img src="image/showphoto2.gif" width="80" height="100">
                                  <%else%>
                                  <a href="uppic/photo/<%=rs("photo")%>" target="_blank"><img src="uppic/photo/<%=rs("photo")%>" onload="javascript:this.width=80" border="0"></a>
                                  <%end if%>
                              </td>
                            </tr>
                        </table></td>
                      <td width="39%" align="center" bgcolor="#FFFFFF"><%=rs("dubai")%></td>
                      <td width="19%" align="center"></td>
                      <td width="22%" align="center" bgcolor="#FFFFFF">
					  <a href="send_mail.asp?person=<%=rs("username")%>" class="a3"><FONT 
                                color=#60A7E5>给他留言</FONT></a>
					  <br><br>
                         <a href="photo_list.asp?user_id=<%=rs("userid")%>" class="a3"><FONT color=#60A7E5>个人相册</FONT></a><br>
                        <br>
                        <a href="diary_list.asp?user_id=<%=rs("userid")%>" class="a3"><FONT 
                                color=#60A7E5>文学作品</FONT></a><br><br>
                        <A href="allvideo.asp?uid=<%=rs("userid")%>" class="a3"><FONT 
                                color=#60A7E5>全部视频</FONT></A></td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td><hr size="1" color="#4193DD"></td>
              </tr>
              <%
rs.movenext
rowcount=rowcount-1
loop
end if
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
end if
%>
            </table>
              <%if pcount>1 then%>
              <table width="558" border="0" cellpadding="0" cellspacing="0" bgcolor="E8E6E7">
                <tr>
                  <td height="25"><%
  response.Write "<TABLE align='center' class='STYLE4'>"
response.Write "<form name='form1' method='post' action='lxh.asp'>"
response.Write "<TBODY><TR><TD>"
if page>1 then
    response.Write "<a href='lxh.asp?page=1' class='b2'>首页</a>&nbsp;"
	response.Write "<a href='lxh.asp?page="& page-1 &"' class='b2'>上一页</a>&nbsp;"
else
    response.Write "首页&nbsp;上一页&nbsp;"
end if			 
if page<pcount then
    response.Write "<a href='lxh.asp?page="& page+1 &"' class='b2'>下一页</a>&nbsp;"
	response.Write "<a href='lxh.asp?page="& pcount &"' class='b2'>尾页</a>&nbsp;"
else
    response.Write "下一页&nbsp;尾页&nbsp;"
end if	

response.Write "页次:<STRONG><font color='#FF0000'>"&page&"</font>/"&pcount&"</STRONG>页&nbsp; <strong>"&msg_per_page&"</strong>条/页&nbsp;共<strong>"& precordcount &"</strong>条&nbsp;转到:"
response.Write "<input name='page' type='text' id='page' size='2' style='height:18px;' maxlength='5' value='"&page&"'>"
response.Write "<input name='submit' type='submit' style='height:20px;' id='submit' value='GO'>"
response.Write "</TD></TR></TBODY></form></TABLE>"
			%></td>
                </tr>
              </table>
              <%end if %>
          </td>
        </tr>
      </table>
    </div></td>
    <td width="163" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="fenlei.asp"--></td>
  </tr>
  <tr>
    <td height="1" valign="top"></td>
    <td valign="top" ></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
