<%response.buffer = false%> <%if request("act")="login" then if request("lb")="per" then uname=replace(trim(request("uname")),"'","") pwd=replace(trim(request("pwd")),"'","") if trim(uname)="" then response.write "" Response.End elseif trim(pwd)="" then response.write "" Response.End end if set rs=server.createobject("adodb.recordset") sql="select * from basic where type=0 and pwd='"&pwd&"' and uname='"&uname&"'" rs.open sql,conn,1,3 if not(rs.bof and rs.eof) then if pwd=rs("pwd") then rs("click")=rs("click")+1 rs.update userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") set rsi=server.createobject("adodb.recordset") sql="select * from log " rsi.open sql,conn,1,3 rsi.addnew rsi("uname")=rs("uname") rsi("ltime")=now() rsi("ip")=userip rsi("type")=0 rsi.update session("uname")=rs("uname") session("lb")="per" set rs=server.createobject("adodb.recordset") sql="select * from per where uname='"&session("uname")&"'" rs.open sql,conn,1,1 if rs.eof then response.write "" end if response.Redirect"../per/gcenter.asp" else call Error end if else call Error() end if sub Error() response.write "" Response.End end sub end if if request("lb")="sch" then uname=replace(trim(request("uname")),"'","") pwd=replace(trim(request("pwd")),"'","") set rs=server.createobject("adodb.recordset") sql="select * from school where pwd='"&pwd&"' and sname='"&uname&"'" rs.open sql,conn,1,1 if not(rs.bof and rs.eof) then userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") set rsi=server.createobject("adodb.recordset") sql="select * from log " rsi.open sql,conn,1,3 rsi.addnew rsi("uname")=rs("sname") rsi("ltime")=now() rsi("ip")=userip rsi("type")=3 rsi.update session("uname")=rs("sname") session("lb")="sch" response.Redirect"../sch/gcenter.asp" else call Error() end if sub Error() response.write "" Response.End end sub end if if request("lb")="com" then uname=replace(trim(request("uname")),"'","") pwd=replace(trim(request("pwd")),"'","") if trim(uname)="" then response.write "" Response.End elseif trim(pwd)="" then response.write "" Response.End end if set rs=server.createobject("adodb.recordset") sql="select * from basic where type=1 and pwd='"&pwd&"' and uname='"&uname&"'" rs.open sql,conn,1,3 if not(rs.bof and rs.eof) then if pwd=rs("pwd") then rs("click")=rs("click")+1 rs.update userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") set rsi=server.createobject("adodb.recordset") sql="select * from log " rsi.open sql,conn,1,3 rsi.addnew rsi("uname")=rs("uname") rsi("ltime")=now() rsi("ip")=userip rsi("type")=1 rsi.update session("uname")=rs("uname") session("lb")="com" set rsb=server.createobject("adodb.recordset") sql="select * from basic where type=1 and uname='"&session("uname")&"'" rsb.open sql,conn,1,1 set rs=server.createobject("adodb.recordset") sql="select * from com where uname='"&session("uname")&"'" rs.open sql,conn,1,1 if DateDiff("d",now(),dateadd("d",rs("slong"),rs("sdate")))<0 and (rsb("flag")=1 or rsb("flag")=2) then set rsd=server.createobject("adodb.recordset") sql="select * from basic where type=1 and uname='"&session("uname")&"'" rsd.open sql,conn,1,3 rsd("flag")=3 rsd.update end if response.Redirect"../com/gcenter.asp" else call Error end if else call Error() end if sub Error() response.write "" Response.End end sub end if end if if request("act")="logout" then session("lb")="" session("uname")="" response.Redirect Request.ServerVariables("PATH_INFO") end if %> 中国视频招聘网-视频招聘
<%set rsg=server.CreateObject("adodb.recordset") sqltxt="select * from adv where adtype=109 and flag=1 order by sdate" rsg.open sqltxt,conn,1,1 i=0 if not rsg.eof then %> <%=swf(rsg("id"),pic(rsg("pic")),rsg("widths"),rsg("heights"))%> <%end if %>

  

<%if session("lb")="" then%> <%elseif session("lb")="per" then if request("act")="perr" then set rs=server.createobject("adodb.recordset") sql="select * from per where uname='"&session("uname")&"'" rs.open sql,conn,1,3 rs("idate")=now() rs.update set rs=server.createobject("adodb.recordset") sql="select * from basic where type=0 and uname='"&session("uname")&"'" rs.open sql,conn,1,3 rs("idate")=now() rs.update response.Write"" end if set rs=server.createobject("adodb.recordset") sql="select * from per where uname='"&session("uname")&"'" rs.open sql,conn,1,1%> <%elseif session("lb")="com" then if request("act")="comr" then set rs=server.createobject("adodb.recordset") sql="select * from basic where type=1 and uname='"&session("uname")&"'" rs.open sql,conn,1,3 rs("idate")=now() rs.update set rs=server.createobject("adodb.recordset") sql="select * from com where uname='"&session("uname")&"'" rs.open sql,conn,1,3 rs("idate")=now() rs.update set rsz=server.createobject("adodb.recordset") sql="select * from zp where uname='"&session("uname")&"'" rsz.open sql,conn,1,3 do while not rsz.eof rsz("idate")=now() rsz.update rsz.movenext loop response.Write"" end if set rs=server.createobject("adodb.recordset") sql="select * from com where uname='"&session("uname")&"'" rs.open sql,conn,1,1%> <%elseif session("lb")="sch" then set rs=server.createobject("adodb.recordset") sql="select * from school where sname='"&session("uname")&"'" rs.open sql,conn,1,1%> <%end if%>
个人 企业 院校  忘记密码
<%=rs("iname")%> ,您好！    欢迎进入中国视频招聘网！  您的简历更新时间: <%=year(rs("idate"))%>-<%=month(rs("idate"))%>-<%=day(rs("idate"))%> 控制中心  刷新简历  退出
<%=rs("uname")%> ,您好！    欢迎进入中国视频招聘网！  您的公司更新时间: <%=year(rs("idate"))%>-<%=month(rs("idate"))%>-<%=day(rs("idate"))%> 控制中心  刷新排名  退出
<%=rs("school")%> ,您好！    欢迎进入中国视频招聘网！   控制中心    退出


21世纪企业的竞争主要是人力资源的竞争，如何运用最低成本在短时间内招聘到最全适的人才将是企业发展
最为关键一环。互联网络的广泛普及应用与高新科技的迅猛发展为招聘模式的改变做好了准备。
并将全面改善在传统招聘中在的问题：
1.招聘现场人满为患，供需双方不能达成很好的沟通
2.招聘单位与应聘人员不在同一个城市，不能“面对面”交流
3.招聘单位的地理位置相对偏僻，不能安排面试
现在，时间已不是问题，距离已不是障碍，您只要拥有宽带环境，再配上100元的摄像头、耳麦，轻点鼠标
即可随时随地轻松面试。
中国视频招聘网网站架构：3451 三大招聘系统：网页呼叫一线通，视频面试点点通，视频面试多点通 四种招聘方式：预约面试，定时招聘，定期招聘，时时招聘 五个服务全体：个人，企业，高校，猎头，高级人才 一个在线办公室
注：建议您下在我们的视频招聘精灵（软件下载），视频系统中有更都的招聘企业和应聘人员等待您机会的把握。

<%set rsg=server.CreateObject("adodb.recordset") sqltxt="select * from adv where adtype=110 and flag=1 order by sdate" rsg.open sqltxt,conn,1,1 i=0 if not rsg.eof then %> <%=swf(rsg("id"),pic(rsg("pic")),rsg("widths"),rsg("heights"))%> <%end if %>
<%set rsg=server.CreateObject("adodb.recordset") sqltxt="select * from adv where adtype=111 and flag=1 order by sdate" rsg.open sqltxt,conn,1,1 i=0 do while not rsg.eof %> <%if not rsg.eof then rsg.movenext i=i+1 if rsg.eof or i>=14 then exit do end if loop%>
<%=swf(rsg("id"),pic(rsg("pic")),rsg("widths"),rsg("heights"))%>
软件下载