胶东在线烟台山“网上相亲月”

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% action=request.Form("action") if action="submit" then user=request.form("user") pass=request.form("pass") if user="" or pass="" then response.Redirect("index.asp") session.Abandon() response.End() end if if not (isnumeric(user) and isnumeric(left(pass,5))) then response.write "" session.Abandon() response.End() end if set rs=server.CreateObject("ADODB.recordset") sql="select * from [2006xiangqin] where bianhao="&user rs.open sql,conn_webtemp,1,1 if not rs.eof then if rs("mima")=pass then if rs("active")="N" then response.write "" session.Abandon() response.End() end if session("entry")="yes" session("id")=rs("bianhao") response.redirect "index.asp" response.end() else response.Write "" session.Abandon() response.end() end if else response.write "" session.Abandon() response.End() end if end if %> 胶东在线烟台山“网上相亲月” <% if session("entry")="yes" and session("id")<>"" then if session("log")="" then conn_webtemp.execute("update [2006xiangqin] set lognum=lognum+1,logtime=getdate() where bianhao="&session("id")) session("log")="yes" end if end if %>

首页| 新闻| 社区| 房产| 汽车| 理财| 择业| 考试| 烟台| 政法| 旅游| 文娱| 游戏| 分类信息| 网上民声

相亲登录

<%if session("entry")<>"yes" then%>

用户ID：
密　码：

热线电话:6632846

QQ群号:32406170、38605131

　　　 17329814、33378639

入会须知登记表下载

<%else%>

欢迎您，用户<%=session("id")%>

您已经登录<%=conn_webtemp.execute("select lognum from [2006xiangqin] where bianhao="&session("id"))(0)%>次

" target="_blank">我的资料退出

热线电话:6632846

QQ群号:32406170、38605131

　　　 17329814、33378639

入会须知登记表下载

<%end if%>

交友搜索

<%if session("entry")<>"yes" then%>

请登录您的用户ID，

进入搜索页面……

<%else%>

<%end if%>

<% set rs=server.CreateObject("ADODB.recordset") rs.open "select top 10 * from [2006xiangqin] where not(hukou='' or hukou is null) and active='Y' order by viewnum",conn_webtemp,1,1 do while not rs.eof %> <% rs.movenext loop rs.close() %>

" target="_blank" class="red12"><%=rs("bianhao")%>号

" width="18" height="16" />

<%=rs("xingbie")%>士

<%=rs("hukou")%>

<% set rs=server.CreateObject("ADODB.recordset") rs.open "select top 10 * from [2006xiangqin] where hukou<>'' and active='Y' order by logtime desc",conn_webtemp,1,1 do while not rs.eof %> <% rs.movenext loop rs.close() %>

" target="_blank" class="red12"><%=rs("bianhao")%>号

" width="18" height="16" />

<%=rs("xingbie")%>士

<%=rs("hukou")%>

　　自我描述

<% set rs=server.CreateObject("ADODB.recordset") rs.open "select top 10 * from [2006xiangqin] where not (zwms='' or zwms is null) and active='Y' order by viewnum desc",conn_webtemp,1,1 do while not rs.eof %> <% rs.movenext loop rs.close() %>

·" target="_blank" class="fenhong14"><%=rs("bianhao")%>号：<%=left(rs("zwms"),18)%><%if len(rs("zwms"))>18 then response.write "..."%>

　　爱情宣言

<% set rs=server.CreateObject("ADODB.recordset") rs.open "select top 10 * from [2006xiangqin] where not (aqxy='' or aqxy is null) and active='Y' order by viewnum desc",conn_webtemp,1,1 do while not rs.eof %> <% rs.movenext loop rs.close() %>

·" target="_blank" class="fenhong14"><%=rs("bianhao")%>号：<%=left(rs("aqxy"),18)%><%if len(rs("aqxy"))>18 then response.write "..."%>

<%set conn_webtemp=nothing%> <%if session("entry")<>"yes" then%> <% dim conn,connstr on error resume next connstr="DBQ="+server.mappath("data/#Date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr dim mRs,Userip,User,Oto,Zzday,Counter,CountemRs,Today,Daynum,Yesterday,Top,Stats,Browser User=Request.QueryString("User") Userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If Userip = "" Then Userip = Request.ServerVariables("REMOTE_ADDR") Set mRs=Server.CreateObject("adodb.recordSet") Sql="Select * from Counter" mRs.open Sql,conn,1,3 Oto=mRs("Oto") If Oto<>date() then Zzday=date()-1 application.lock conn.Execute"Update Counter Set Today=0,Browser=0,Oto=date(),Daynum=Daynum+1,Yesterday="&mRs("Today")&"" conn.Execute"Insert into Zzday(Zzday,Stats,Browser) values ('"&Zzday&"',"&mRs("Today")&","&mRs("Browser")&")" application.unlock Set mRs=Server.CreateObject("adodb.recordSet") Sql="delete from UserandIP" mRs.open Sql,conn,1,3 mRs.close Set mRs=nothing Else application.lock conn.Execute"Update Counter Set Browser=Browser+1" Set mRs=Server.CreateObject("adodb.recordSet") Sql="Select * from UserandIP where IP='"&Userip&"' order by Id desc" mRs.open Sql,conn,1,3 If mRs.bof and mRs.eof then mRs.addnew mRs("IP")=Userip mRs("User")=User mRs.update conn.Execute"Update Counter Set Counter=Counter+1,Today=Today+1" End If mRs.close Set mRs=nothing application.unlock End If Set mRs=Server.CreateObject("adodb.recordSet") Sql="Select * from Counter" mRs.open Sql,conn,1,3 If mRs("Top") <%end if%>