<!--#include file="inc/conn.asp"-->
<link href="style.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>

<table width="15%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="110" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-top:#C7C8CC 1px solid"><table width="62%" border="0" align="center" cellpadding="0" cellspacing="1" class="STYLE1">
              <tbody>
                <tr>
                  <td valign="top" height="70" align="right"><img 

src="ima/online.gif" width="95" height="68"></td>
                </tr>
                <tr>
                  <td height="25" align="center"><img 

src="ima/i_light.gif" width="17" height="17" hspace="2" align="absmiddle"><a 

href="areahj.asp" class="a1">地区婚介</a></td>
                </tr>
              </tbody>
            </table></td>
          </tr>
          <tr>
            <td height="27" background="image/tiao_8.gif"><div align="center" class="pgd">会员登陆</div></td>
          </tr>
          <tr>
            <td height="429" align="center" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid"><table width="140" border="0" cellpadding="0" cellspacing="0" class="STYLE1">
              <tr>
                <td 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=""186"" 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="100%" border="0" cellspacing="0" cellpadding="0" >
				  <form name="frmlog" method="post" action="chklogin.asp" onSubmit="return chklog();">
                    <tr>
                      <td height="26">昵 称:
                        <input name="userid" type="text" id="userid" style=" width:90px; height:18px" /></td>
                    </tr>
                    <tr>
                      <td height="26">密 码:
                      <input name="userpass" type="password" id="userpass" style=" width:90px; height:18px" /></td>
                    </tr>
                    <tr>
                      <td height="26">验证码:
                        <input name="chkcode" type="text" id="chkcode" style=" width:40px; height:18px" maxlength="4" />
                      <img id="checkcode" src="inc/checkcode.asp" style="border: 1px solid #ffffff" /> </td>
                    </tr>
                    <tr>
                      <td height="26">&nbsp;<a href="#" onclick="checkcode.src='inc/checkcode.asp'" class="a4">看不到验证码点击这里</a></td>
                    </tr>
                    <tr>
                      <td height="30"><a href="newsreg.asp"><img src="ima/zc.gif" width="54" height="18" 

border="0" align="absmiddle" /></a>&nbsp;
                      <input type=image name="login2" height=18  width=54 cache 

src="ima/load.gif" border=0 align="absmiddle" /></td>
                    </tr>
<tr><td height="10"></td></tr>					
 </form>
                  </table>
	<%end if%>			  			  
                </td>
              </tr>
            </table>
              <table width="100%" border="0" cellpadding="0" cellspacing="0" >
                <tbody>
                  <tr>
                    <td height="27" align="center" background="image/tiao_8.gif" ><div align="center" class="pgd">便捷搜索网友</div></td>
                  </tr>
                </tbody>
              </table>
              <br>
              <table width="140" border="0" cellpadding="0" cellspacing="0" class="STYLE1">
                <tr>
                  <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" >
                        <tbody>
                          <tr>
                            <td>
                                <form name="form2" method="post" action="sim_search.asp">
                性别:
                  <input type=radio CHECKED value="1" name=sex>
                男
                <input type=radio value="2" name=sex>
                女 <br>
                年龄:
                <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>
                <br>
                地区:
                <select name="sheng" class="STYLE1">
                  <option value="0" 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>
                <br />
                目的:
                <select name="mudi" class="STYLE1" id="mudi">
                  <option value="0" selected>不限</option>
                  <%set rs=server.CreateObject("adodb.recordset")
						sql="select * from friendaim order by id"
						rs.open sql,conn,1
						do while not rs.eof 
						 response.Write "<option value="""& rs("faim") &""">"& trim(rs("faim")) &"</option>"			 
						 rs.movenext
						loop
						rs.close
						set rs=nothing						
						%>
                </select>
                <br>
                照片:
                <INPUT id=photo type=checkbox value=1 name=photo>
                <p align=center> <a href="advance_search.asp" class="a1">高级搜索 </a>&nbsp;&nbsp;&nbsp;
                    <input type=image name=b1 height=18  width=54 cache 

src="ima/search.gif" border=0 align="absmiddle">
                </p>
                              </form></td>
                          </tr>
                        </tbody>
                      </table>
                      </td>
                </tr>
              </table></td>
          </tr>
          <tr>
            <td><img src="images/lg_5.gif" width="190" height="11"></td>
          </tr>
</table>
