📄 wjxy.asp

📁 在线交友模块：在线交友是指通过网络来结交朋友。利用网络资源的无限性实现跨地域的信息交流
💻 ASP
字号:
<%Option Explicit%>
<!--#include file="conn.asp"--><%
dim rs_lar,rs
dim sql
dim i

'判断此用户是否已经注册
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("user_id")
rs_lar.open sql,conn,3,2

if rs_lar.eof and rs_lar.bof then
    if session("user_id")=1 then response.redirect "notreg.htm"
	 response.redirect "notregist.htm"
	 response.end
end if

%>
<!--#include file="connpic.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from pic where user_id=" & session("user_id")
rs.open sql,conn,3,2
%>
<HTML><HEAD><TITLE>精确网友搜索</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>TD {
	FONT-SIZE: 12px; COLOR: #800000; LINE-HEIGHT: 18pt
}
A {
	FONT-SIZE: 9pt; COLOR: red; TEXT-DECORATION: none
}
A:hover {
	COLOR: #000000; TEXT-DECORATION: none
}
.pt {
	BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #ffffff 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #ffffff 1px solid; COLOR: #000000; BORDER-BOTTOM: #000000 1px solid
}
.put {
	BORDER-RIGHT: #f7e0e0 1px solid; BORDER-TOP: #f7e0e0 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7e0e0 1px solid; COLOR: #000000; BORDER-BOTTOM: #f7e0e0 1px solid; BACKGROUND-COLOR: #fef7f7
}
input {
	BORDER-RIGHT: #f7e0e0 1px solid; BORDER-TOP: #f7e0e0 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7e0e0 1px solid; COLOR: #000000; BORDER-BOTTOM: #f7e0e0 1px solid; BACKGROUND-COLOR: #fef7f7
}
select {
	BORDER-RIGHT: #f7e0e0 1px solid; BORDER-TOP: #f7e0e0 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7e0e0 1px solid; COLOR: #000000; BORDER-BOTTOM: #f7e0e0 1px solid; BACKGROUND-COLOR: #fef7f7
}
BODY {
	SCROLLBAR-FACE-COLOR: #ee9999; SCROLLBAR-HIGHLIGHT-COLOR: #fef7f7; SCROLLBAR-SHADOW-COLOR: #fef7f7; SCROLLBAR-3DLIGHT-COLOR: #fef7f7; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #fef7f7; SCROLLBAR-DARKSHADOW-COLOR: #fef7f7
}
</STYLE>

<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 border=0>
  <TBODY>
  <TR>
    <TD width="589" height="91" bgcolor="#CC99FF">&nbsp;</TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 border=0 height="274">
<TBODY>
  <TR vAlign=top>
    <TD width=221 height=274><IMG src="img/007.gif"></TD>
    <TD width=14 background=img/guestbk.gif height=274></TD>
    <TD width=525 height=274>
      <DIV align=center>
<form action="searchout.asp" method="POST">  
<INPUT type=hidden value=adsearchposted name=work> <INPUT type=hidden value=sx name=user>
      <DIV align=center>
      <CENTER>
      <TABLE width="90%" border=0>
        <TBODY>
        <TR>
          <TD colSpan=3 height=12><B>精确网友搜索</B> </TD></TR>
        <TR align=middle>
          <TD align=right width=85 height=23>
            <DIV align=left>
            <P align=center>按性别搜索 </P></DIV></TD>
          <TD align=middle width=28 height=23><input type="checkbox" name="c_sex" value="ON"></TD>
          <TD width=346 height=23 align=left>
<input type="radio" value="男" name="sex" checked>男<input type="radio" value="女" name="sex">女</TD></TR>
        <TR align=middle>
          <TD align=right width=85 height=24>
            <DIV align=left>
            <P align=center>按姓名搜索 </P></DIV></TD>
          <TD align=middle width=28 height=24>
<input type="checkbox" name="c_name" value="ON"></TD>
          <TD width=346 height=24 align=left>
<input type="text" name="name" size="12"></TD></TR>
        <TR align=middle>
          <TD align=right width=85 height=23>
            <DIV align=left>
            <P align=center>按网名搜索 </P></DIV></TD>
          <TD align=middle width=28 height=23>
<input type="checkbox" name="c_netname" value="ON"></TD>
          <TD width=346 height=23 align=left>
<input type="text" name="netname" size="12"></TD></TR>
        <TR align=middle>
          <TD align=right width=85 height=15>
            <DIV align=left>
            <P align=center>按职业搜索 </P></DIV></TD>
          <TD align=middle width=28 height=15>
<input type="checkbox" name="c_job" value="ON"></TD>
          <TD width=346 height=15 align=left>
<SELECT name="job" size="1">                   
                  <OPTION value=管理>管理</OPTION>
                  <OPTION value=工程>工程</OPTION>
                  <OPTION value=金融财务>金融财务</OPTION>
                  <OPTION value=技术>技术</OPTION>
                  <OPTION value=经济业务>经济业务</OPTION>
                  <OPTION value=法律>法律</OPTION>
                  <OPTION value=保险>保险</OPTION>
                  <OPTION value=教师>教师</OPTION>
                  <OPTION value=科研>科研</OPTION>
                  <OPTION value=设计>设计</OPTION>
                  <OPTION value=行政>行政</OPTION>
                  <OPTION value=学生>学生</OPTION>
                  <OPTION value=文体卫生>文体卫生</OPTION>
                  <OPTION value=服务>服务</OPTION>
                  <OPTION value=军队公安>军队公安</OPTION>
                  <OPTION value=IT>IT</OPTION>
                  <OPTION selected value=公务员>公务员</OPTION>
                  <OPTION value=其它>其它</OPTION>
                  </SELECT></TD></TR>
        <TR align=middle>
          <TD align=right width=85 height=6>
            <DIV align=left>
            <P align=center>按年龄搜索 </P></DIV></TD>
          <TD align=middle width=28 height=6>
<input type="checkbox" name="c_age" value="ON"></TD>
          <TD align=left width=346 height=6>从<input type="text" name="age1" size="4">到<input type="text" name="age2" size="4">岁</TD></TR>
        <TR align=middle>
          <TD align=middle colSpan=3 height=25>&nbsp;&nbsp;&nbsp; 
            <DIV align=center><input type="submit" value="寻找网友" name="B1"> 
            </DIV></TD></TR></TBODY></TABLE></CENTER></DIV></FORM></DIV></TD></TR></TBODY></TABLE>
<TABLE width=777 align=left border=0>
<TBODY>
<TR align=middle>
<TD class=line width=777><P align=center><BR>若有任何意见或者建议,请<A  href="mailto:xx@xxx.com">联系我们</A>
<BR>
<FONT face="Verdana, Arial">CopyRight &copy;  2001 <A href="xxx" title="xxx"><B>xxxx.
Com</B></A> All Rights Reserved</FONT><BR>
版权所有 xxx </P></TD></TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -