<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/const.asp"-->
<%
sfaa="全国站"
sfbb=""
sfcc=GetTotalMember
if request("sf")<>"" then
set sfs=conn.execute("select * from sheng where id="&int(request("sf")))
if not sfs.eof then
sfaa=trim(sfs("sheng"))+"站"
sfbb="prov="&sfs("id")&" and "

set rsa=conn.execute("select count(*) as rs from user_info where prov="&sfs("id"))
sfcc=rsa("rs")

end if
end if %>
<HTML>
<HEAD>
<TITLE>红嫂视屏交友网全国连锁站</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心，红嫂视屏交友，久久">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="css.css" rel="stylesheet" type="text/css">

<script language="javascript">
<!--
function ShowMes()
{
	if(document.all.savecookies.checked)
	{
		alert("请注意：\n\n\n为了避免您的资料向其他人泄露，请谨慎使用此功能。\n\n如果您正在使用的机器是公用的电脑，例如在网吧或是\n\n公司的机器，我们建议您最好不要选择记住密码的功能。");
	}
	
}

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;
}
if(document.frmlog.chkcode.value.length==0){
 alert("请填写验证码！");
 document.frmlog.chkcode.focus();
 return false;
}
return true;
}

//-->
</script>

</HEAD>
<BODY>
<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="531" height="231" background="images/index_3.gif"><table width="515" height="32" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="264" height="26" valign="bottom"><div align="center" class="title1">会员登陆</div></td>
        <td width="256" valign="bottom"><div align="center" class="title1">交友搜索</div></td>
      </tr>
    </table>
      <table width="515" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="261" height="194" align="center" valign="top">
            
			<%
if UserID<>0 and isInteger(UserID) then
dim logins,logintime,userip,regtime
set rs=server.CreateObject("adodb.recordset")
sql="select logins,logintime,regtime from user_info where userid="& UserId &""
rs.open sql,conn,1
if not rs.bof then
  logins=rs("logins")
  logintime=rs("logintime")  
  regtime=rs("regtime")
end if
rs.close
set rs=nothing
userip = GetIp
response.Write ("<table width=""246"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""STYLE1"">")
response.Write ("<tr><td width=""35%"" height=""25""><div align=""right"">用户名：</div></td><td width=""65%"">&nbsp;<b>"& MemberName &"</b></td></tr>")
response.Write ("<tr><td height=""25""><div align=""right"">会员级别：</div></td><td>&nbsp;"&memberclass&"</td></tr>")
response.Write ("<tr><td height=""25""><div align=""right"">登陆次数：</div></td><td>&nbsp;"& logins &"</td></tr>")
response.Write ("<tr><td height=""25""><div align=""right"">注册时间：</div></td><td>&nbsp;"&regtime&"</td></tr>")
response.Write ("<tr><td height=""25""><div align=""right"">登陆时间：</div></td><td>&nbsp;"& logintime &"</td></tr>")
response.Write ("<tr><td height=""25""><div align=""right"">您的IP：</div></td><td>&nbsp;"& userip &"</td></tr>")
response.Write ("<tr><td height=""36"" colspan=""2"" align=""center""><a href=""myhome.asp"" class=""alan"">个人社区</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=""logout.asp"" class=""alan"">退出登陆</a></td></tr>")
response.Write ("</table>")
else
%>
<table width="235" border="0" align="center" cellpadding="0" cellspacing="0" class="STYLE1">
              <form action="chklogin.asp" method="post" name="frmlog" id="frmlog" onSubmit="return chklog();">
                <tr>
                  <td width="27%" height="24" align="center" class="lan"><div align="center">用户名：</div></td>
                  <td width="46%" height="25"><input name="userid" type="text" id="userid" style=" width:90px; height:18px" tabindex="1" /></td>
                  <td width="27%" rowspan="2" align="center"><div align="left">
                    <input name="imageField" type="image" src="images/aniu0.gif" width="49" height="31" tabindex="4" />
                  </div></td>
                </tr>
                <tr>
                  <td height="24" align="center" class="lan"><div align="center">密&nbsp; 码：</div></td>
                  <td height="22"><input name="userpass" type="password" id="userpass" style=" width:90px; height:18px" tabindex="2" /></td>
                </tr>
                <tr>
                  <td height="30" align="center" class="lan"><div align="center">验证码：</div></td>
                  <td height="30"><input name="chkcode" type="text" id="chkcode" style=" width:90px; height:18px" maxlength="4" tabindex="3" /></td>
                  <td align="center"><div align="left"><img id="checkcode" src="inc/checkcode.asp" style="border: 1px solid #ffffff" /></div></td>
                </tr>
                <tr>
                  <td height="25" colspan="3" align="center"><input name="savecookies" type="checkbox" id="savecookies" onClick="return ShowMes()" />
                  <font color="#4193DD">记住密码</font><span class="pink1">&nbsp;&nbsp;&nbsp;<a href="#" onClick="checkcode.src='inc/checkcode.asp'" class="alan"><font color="#4193DD">看不到验证码</font></a></span></td>
                </tr>
                <tr>
                  <td height="19" colspan="3" align="center"><span class="lan">在线人数</span><span class="hong"> <%=GetOnlineMember%></span> <span class="lan"><%=sfaa%>会员人数 </span><span class="hong"><%=sfcc%></span></td>
                </tr>
                <tr>
                  <td height="19" colspan="3" align="center">　<a href="userupdate.asp" class="ahong">红嫂视屏交友会员升级</a></td>
                </tr>
                <tr>
                  <td height="38" colspan="3" align="center"><table width="150" height="34" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td width="13"><img src="images/aniu1.gif" width="15" height="33" /></td>
                        <td align="center" background="images/aniu3.gif" class="STYLE2"><span style="font-weight: bold"><a href="newsreg.asp"><font color="#FFFFFF">注册</font></a></span> <span style="font-weight: bold"><font color="#FFFFFF">免费试用</font></span></td>
                        <td width="13"><img src="images/aniu2.gif" width="15" height="33" /></td>
                      </tr>
                  </table></td>
                </tr>
              </form>
		    </table>
		  <%end if%>
          </td>
        <td width="261" align="center" valign="top"><table width="96%" border="0" cellpadding="0" cellspacing="0" class="lan">
            <script language="JavaScript" src="js/area1.js" type="text/javascript"></script>
            <form action="sim_search.asp" method="post" name="form2" id="form2">
              <tr>
                <td height="8"></td>
              </tr>
              <tr>
                <td height="33" align="center">我要找：
                    <select class="STYLE1" id="sex" name="sex">
                      <option value="1">男性</option>
                      <option value="2" selected="selected">女性</option>
                  </select></td>
              </tr>
              <tr>
                <td height="33" align="center">年 龄：<span class="white1">
                  <select class="STYLE1" id="age1" name="age1">
                    <%for j=18 to 70
    response.Write "<option value="""& j &""""
	if j=18 then response.Write " selected"
	response.Write ">"& j &"</option>"
	next
  %>
                  </select>
              －
              <select name="age2" id="age2" class="STYLE1">
                <%for j=18 to 70
    response.Write "<option value="""& j &""""
	if j=40 then response.Write " selected"
	response.Write ">"& j &"</option>"
	next
  %>
              </select>
                </span></td>
              </tr>
              <tr>
                <td height="33" align="center">所在地：
                    <select name="sheng" class="STYLE1" onChange="setField(sheng,shi);">
                      <option value="0" selected="selected">不限</option>
                      <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select id,sheng from sheng order by id"					
					rs.open sql,conn,1
					do while not rs.eof
					  response.Write "<option value="""& rs("id") &""">"& rs("sheng")&"</option>"
					  rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                    </select>
                    <select class="STYLE1" name="shi">
                      <option value="0" selected="selected">不限</option>
                  </select></td>
              </tr>
              <tr>
                <td height="37" align="center"><input 
      id="photo" type="checkbox" value="1" name="photo" />
              <font color="#FF0000">有照片</font></span></td>
              </tr>
              <tr>
                <td height="40" align="center"><table width="150" height="33" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="13" height="33"><img src="images/aniu1.gif" width="15" height="33" /></td>
                      <td align="center" valign="top" background="images/aniu3.gif" class="STYLE2"><input name="imageField2" type="image" src="images/aniu4.gif" align="middle" width="50" height="28" />
&nbsp;&nbsp;</td>
                      <td align="center" valign="middle" background="images/aniu3.gif" class="STYLE2"><a href="advance_search.asp" style="font-weight: bold"><font color="#ffffff">高级搜索</font></a></td>
                      <td width="13"><img src="images/aniu2.gif" width="15" height="33" /></td>
                    </tr>
                </table></td>
              </tr>
            </form>
        </table></td>
      </tr>
    </table></td>
    <td width="159" valign="top" background="images/index_03.gif"><table width="150" height="33" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="34"><div align="center">
            <table width="100" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td><div align="center"><span class="title1">我要征婚</span></div></td>
              </tr>
            </table>
        </div></td>
      </tr>
    </table>
      <table width="151" height="192" border="0" align="center" cellpadding="00" cellspacing="3" bgcolor="9DCCF6">
        <tr>
          <td width="142" height="186" valign="top" bgcolor="#FFFFFF"><script type="text/javascript" src="js/tbjypic.js"></script></td>
        </tr>
      </table></td>
    <td width="260"><table width="260" height="225" border="0" cellpadding="0" cellspacing="0" background="images/index_4.gif">
      <tr>
        <td width="326" align="center" valign="middle"><table width="235" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="234" height="209" align="center" class="STYLE88"><script type="text/javascript" src="js/flashpic.js"></script></td>
            </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>

<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="38" valign="middle" background="images/index_118.gif" style="padding-left:150px; padding-top:10px;">
	<span  style="font-size:14px; "><font color="#FFFFFF"><b><%=sfaa%></b></font></span></td>
  </tr>
  <tr>
    <td  align="center" style="border-left:#999999 1px solid;border-right:#999999 1px solid "><span style="color: #EDF8FE">
      <%
	  
	  set res=server.createobject("adodb.recordset")
	rsql="select top 8 userid,photo,birthday,school,prov from user_info where "&sfbb&" addmodel<>2 and (photo<>'' or photo is not null)  order by mx desc,mg desc ,photo desc "
	res.open rsql,conn,1
	if res.eof then%>
<table border="0" cellpadding="0" cellspacing="12" align="center">
          <tr>
    
            <td width="603" align="center" valign="middle" style="color: #EDF8FE"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td  height="133"><div align="center"><!--<img src="/image/showphoto2.gif" width="88" height="118" border="0">-->
				  
				 暂时没人<A href="newsreg.asp">注册</A>或无会员上传照片。<A href="newsreg.asp">赶快注册上传照片吧</A>。可以获得该地区分站首页推荐机会哦 
				  
				  </div></td>
                </tr>
                <tr>
                  <td height="10"></td>
                </tr>
            </table></td>
          

                </table>	
	
	<%
	end if
	
	if not (res.eof or res.bof) then
	%>
      </span>
        
        <table border="0" cellpadding="0" cellspacing="12">
          <tr>
            <%
	  h=1
	  do while not res.eof
	  %>
            <td width="103" align="center" valign="middle" style="color: #EDF8FE"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td background="images/index_6.gif" height="133"><div align="center"><a href="userinfo.asp?user_id=<%=res("userid")%>" target="_blank"><img src="<%if trim(res("photo"))="" then
				  response.Write("uppic/photo/image/showphoto2.gif")
				  else
				  response.Write("uppic/photo/"&res("photo"))
				  end if%>" width="88" height="118" border="0"></a></div></td>
                </tr>
                <tr>
                  <td height="60"><span class="lan">
                      <%
				response.Write datediff("yyyy",res("birthday"),now())&"&nbsp;"&ShowXl(res("school"))&"&nbsp;"&GetProv(res("prov"))
				if chkonline(res("userid")) then response.Write "&nbsp;在线"
				response.Write "<br>诚信&nbsp;"
				ShowHonor(res("userid"))
				%></td>
                </tr>
            </table></td>
            <%
	 if h = 8 then response.write "</tr>"
	 res.movenext	 
	 h=h+1	 
	 if h>8 then h=1	 
	 loop
	 if h>1 then
	 for i=h to 8 
	  response.write "<td width=103>&nbsp;</td>"
	 next
	 response.Write "</tr>"
	 end if
	 

	 %>
          </table>
      <span style="color: #EDF8FE">
        <%end if
	res.close
	set res=nothing
	%>
      </span></td>
  </tr>
  <tr>
   <td   style="border-left:#999999 1px solid;border-right:#999999 1px solid ; " align="center" height="32">
   <table width="940" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="32" background="images/index_128.gif"  style="padding-left:150px;padding-top:10px;"><span  style="font-size:14px; "><font color="#FFFFFF"><b><%=sfaa%></b></font></span></td>
  </tr>
</table>
</td>
  </tr>
  <tr>
    <td align="center" style="border-left:#999999 1px solid;border-right:#999999 1px solid "><span style="color: #EDF8FE">
      <%
	  
	  set res=server.createobject("adodb.recordset")
	rsql="select top 8 userid,photo,birthday,school,prov from user_info where "&sfbb&"  addmodel<>2 and (photo<>'' or photo is not null) order by renqi desc,photo desc "
	res.open rsql,conn,1
	
	if res.eof then%>
<table border="0" cellpadding="0" cellspacing="12" align="center">
          <tr>
    
            <td width="603" align="center" valign="middle" style="color: #EDF8FE"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td  height="133"><div align="center"><!--<img src="/image/showphoto2.gif" width="88" height="118" border="0">-->
				  
				 暂时没人<A href="newsreg.asp">注册</A>或无会员上传照片。<A href="newsreg.asp">赶快注册上传照片吧</A>。可以获得该地区分站首页推荐机会哦 </div></td>
                </tr>
                <tr>
                  <td height="10"></td>
                </tr>
            </table></td>
          

	
                </table>	
	
	<%
	end if
	
	if not (res.eof or res.bof) then
	%>
      </span>
      <table border="0" align="center" cellpadding="0" cellspacing="12">
        <tr>
          <%
	  h=1
	  do while not res.eof
	  %>
          <td width="103" align="center" valign="middle" style="color: #EDF8FE"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td background="images/index_6.gif" height="133"><div align="center"><a href="userinfo.asp?user_id=<%=res("userid")%>" target="_blank"><img src="uppic/photo/<%if trim(res("photo"))="" then
				  response.Write("image/showphoto2.gif")
				  else
				  response.Write(res("photo"))
				  end if%>" width="88" height="118" border="0"></a></div></td>
              </tr>
              <tr>
                <td height="60"><span class="lan"><%
				response.Write datediff("yyyy",res("birthday"),now())&"&nbsp;"&ShowXl(res("school"))&"&nbsp;"&GetProv(res("prov"))
				if chkonline(res("userid")) then response.Write "&nbsp;在线"
				response.Write "<br>诚信&nbsp;"
				ShowHonor(res("userid"))
				%></td>
              </tr>
            </table></td>
          <%
	 if h = 8 then response.write "</tr>"
	 res.movenext	 
	 h=h+1	 
	 if h>8 then h=1	 
	 loop
	 if h>1 then
	 for i=h to 8 
	  response.write "<td width=103>&nbsp;</td>"
	 next
	 response.Write "</tr>"
	 end if
	 

	 %>        
      </table>
<span style="color: #EDF8FE">
        <%end if
	res.close
	set res=nothing
	%>
    </span></td>
  </tr>
  <tr>
    <td height="13" align="center" ><img src="images/index_19.gif" width="950" height="14"></td>
  </tr>
</table>
<!--#include file="root.asp"-->
<map name="a10Map"><area shape="rect" coords="25,5,73,31" href="selvideo.asp">
</map>
<map name="Mapss">
<area shape="rect" coords="238,18,278,33" href="search_friend.asp">
</map>
</BODY>
</HTML>
<%
conn.close
set conn=nothing
%>
