⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 search1.asp

📁 来自中国老乡录的一套交友系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%@Language=VBScript%>
<!-- #include virtual = "/general/Gen.inc" -->
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
Conn.ConnectionTimeout=20
Conn.Open "laoxiang","lx","mailyard"

application(Session("User_ID")&"_Time")=now()
user=split(application("OnlineUser"),",") '获得在线用户列表
for i=0 to ubound(user) '获得非空的在线用户列表
  if  minute(now)-minute(cdate(application(user(i)&"_Time")))>=1 or ( minute(now)- minute(cdate(application(user(i)&"_Time")))<0 and (minute(now)+60-minute(cdate(application(user(i)&"_Time"))))>=1) then
      Application.Lock 
    if  i=0 then
	  'User_ID=User_ID
       application("OnlineUser")=replace(application("OnlineUser"),user(i),"")
       
       User_zx="否"
       cw_ID=user(i)
       SQLQuery="Update Customer Set User_xz_Time="
SQLQuery=SQLQuery&SqlStr(CStr(Now))&","

SQLQuery=SQLQuery&"User_zx="&SqlStr(User_zx)
SQLQuery=SQLQuery&" Where User_ID="&SqlStr(cw_ID)
Response.Write SQLQuery
conn.Execute SQLQuery
    else
       'User_ID=","&User_ID
      application("OnlineUser")=replace(application("OnlineUser"),user(i),"")
            User_zx="否"
       cw_ID=user(i)
       SQLQuery="Update Customer Set User_xz_Time="
SQLQuery=SQLQuery&SqlStr(CStr(Now))&","

SQLQuery=SQLQuery&"User_zx="&SqlStr(User_zx)
SQLQuery=SQLQuery&" Where User_ID="&SqlStr(cw_ID)
Response.Write SQLQuery
conn.Execute SQLQuery
    end if
    
    Application.UnLock 
  end if
next
 user=split(application("OnlineUser"),",") '获得在线用户列表
' Response.Write application("OnlineUser")&"<br>"
for i=0 to ubound(user) '获得非空的在线用户列表
 if user(i)<>"" then
nowcount=nowcount+1 '统计在线人数
   if trim(temp)="" then
       temp=user(i)
   else
       temp=temp+","+user(i)
   end if
 end if
next
if trim(temp)<>"" then
  Application.Lock 
  application("OnlineUser")=temp '重新整理在线用户列表
  Application.UnLock 
end if




user=split(application("OnlineUser"),",") 

if Request.ServerVariables("http_method")="POST" then
User_year_from=Request.Form("User_year_from")
User_month_from=Request.Form("User_month_from")
User_day_from=Request.Form("User_day_from")
User_year_to=Request.Form("User_year_to")
User_month_to=Request.Form("User_month_to")
User_day_to=Request.Form("User_day_to")
User_zx=Request.Form("User_zx")
User_sex=Request.Form("User_sex")
User_zy=Request.Form("User_zy")
User_zl=Request.Form("User_zl")
User_yg_c=Request.Form("selCity1")
User_xg_c=Request.Form("selCity2")
end if
if Request.ServerVariables("http_method")="GET" then
User_year_from=Request.QueryString("User_year_from")
User_month_from=Request.QueryString("User_month_from")
User_day_from=Request.QueryString("User_day_from")
User_year_to=Request.QueryString("User_year_to")
User_month_to=Request.QueryString("User_month_to")
User_day_to=Request.QueryString("User_day_to")
User_zx=Request.QueryString("User_zx")
User_sex=Request.QueryString("User_sex")
User_zy=Request.QueryString("User_zy")
User_zl=Request.QueryString("User_zl")
User_yg_c=Request.QueryString("selCity1")
User_xg_c=Request.QueryString("selCity2")
end if


User_age_from=Request("User_Year_from")&"-"&Request("User_Month_from")&"-"&Request("User_day_from")'出生日期从
User_age_to=Request("User_Year_to")&"-"&Request("User_Month_to")&"-"&Request("User_day_to")'到出生日期

if User_sex="不限" then
   sex="%"    '1为性别不限
end if

if User_zl="0" then
   zl="%"      '1为职能不限
end if

if User_zy=0 then
   zy="%"     '1为职业不限
end if

if User_zx="0" then
   zx="%"      '1为在线不限
end if




sql="select * from Customer where User_yg_c='"&User_yg_c&"' and User_xg_c='"&User_xg_c&"' and User_age<=DATEADD(dd, DATEDIFF(dd, '"&User_age_from&"', '"&User_age_to&"'), User_age)"
sql=sql&" and User_sex like '"&sex&"' and User_zl like '"&zl&"' and User_zy like '"&zy&"' and User_zx like '"&zx&"'"
rs.Open sql,conn,3,3

%>
<HTML><HEAD><TITLE>中国老乡录</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE type=text/css>TD {
	FONT-SIZE: 12px
}
.p1 {
	FONT-SIZE: 12px
}
P {
	FONT-SIZE: 12px; LINE-HEIGHT: 130%
}
DIV {
	FONT-FAMILY: "宋体"; FONT-SIZE: 12px; LINE-HEIGHT: 130%
}
.p2 {
	FONT-SIZE: 12px; LINE-HEIGHT: 130%
}
.p3 {
	FONT-SIZE: 14px
}
.p4 {
	FONT-SIZE: 14px; LINE-HEIGHT: 130%
}
.p5 {
	COLOR: #000000; FONT-FAMILY: "宋体"; FONT-SIZE: 12px
}
.p6 {
	LINE-HEIGHT: 160%
}
.p7 {
	LINE-HEIGHT: 180%
}
.hot {
	COLOR: #ff3300; TEXT-DECORATION: none
}
.title {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A:link {
	COLOR: #000066; TEXT-DECORATION: none
}
A:visited {
	COLOR: #000066; TEXT-DECORATION: none
}
A.lb:link {
	COLOR: #78793C; TEXT-DECORATION: none
}
A.title:link {
	COLOR: white; TEXT-DECORATION: none
}
A.title:hover {
	COLOR: white; TEXT-DECORATION: none
}
A.ln:hover {
	COLOR: #a70404; TEXT-DECORATION: none
}
A.title:visited {
	COLOR: white; TEXT-DECORATION: none
}
A.lb:visited {
	COLOR: #D9CEA6; TEXT-DECORATION: none
}
A:hover {
	COLOR: red; ; TEXT-DECORATION: none
}
A.lb:hover {
	COLOR: #990000; ; TEXT-DECORATION: none
}
.pw {
	COLOR: white; TEXT-DECORATION: none
}
A.lw:link {
	COLOR: white; TEXT-DECORATION: none
}
A.lw:visited {
	COLOR: white; TEXT-DECORATION: none
}
A.ch:link {
	COLOR: #697111; TEXT-DECORATION: none
}
A.ch:visited {
	COLOR: #697111; TEXT-DECORATION: none
}
.intext {
	BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 12px
}
TABLE {
	FONT-FAMILY: "宋体"; FONT-SIZE: 12px; TEXT-DECORATION: none
}
.ln {
	FONT-FAMILY: "宋体"; FONT-SIZE: 12px; TEXT-DECORATION: none
}
.searchinput {
	BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: 1px inset; BORDER-LEFT: 1px inset; BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; FONT-SIZE: 9pt; VERTICAL-ALIGN: text-bottom
}
.buttoninput {
	BACKGROUND-COLOR: #cccccc; BORDER-BOTTOM: 1px ridge; BORDER-LEFT: #ffffff 1px ridge; BORDER-RIGHT: 1px ridge; BORDER-TOP: #ffffff 1px ridge; FONT-SIZE: 9pt
}
.searchtable {
	BACKGROUND: #f0f0f0; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid
}
</STYLE>
<script language="JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<SCRIPT LANGUAGE="JavaScript">
<!--
<!-- Begin

var visMnu = "";


function flipMenu(actMnu)
{
   if (visMnu == "")
      showMenu(actMnu);
   else
   {
      if (visMnu == actMnu)
         hideMenu(actMnu);
      else
      {
         hideMenu(visMnu);
         showMenu(actMnu);
      }
   }
}
function showMenu(actMnu)
{
   actMnu.style.background = "#889933"; /* modify menu-background-color */
   actMnu.style.visibility = "visible";
   visMnu = actMnu;
}
function hideMenu(actMnu)
{
   actMnu.style.background = ""; /* modify color "selected" */
   actMnu.style.visibility = "hidden";
   visMnu = "";
}
//  End -->

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<meta HTTP-EQUIV="refresh" CONTENT="5;URL=search1.asp?User_year_from=<%=User_year_from%>&User_month_from=<%=User_month_from%>&User_day_from=<%=User_day_from%>&User_year_to=<%=User_year_to%>&User_month_to=<%=User_month_to%>&User_day_to=<%=User_day_to%>&User_zx=<%=User_zx%>&User_sex=<%=User_sex%>&User_zy=<%=User_zy%>&User_zl=<%=User_zl%>&selCity1=<%=User_yg_c%>&selCity2=<%=User_xg_c%>" >

</HEAD>
<BODY aLink=#000000 bgColor=#ffffff leftMargin=0 link=#000000 text=#000000 topMargin=0 vLink=#000000 marginwidth="0" marginheight="0" onLoad="MM_preloadImages('../map/laot1-2-1.gif','../map/laot1-3-1.gif','../map/laot1-4-1.gif')">
123

⌨️ 快捷键说明

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