这是我要打开的首页index.asp(代码一),我希望点击打开他时是调用videologin.asp(代码二)这个页面来登录,登录成功后再显示index.asp **********代码一*********
<% if request.cookies("userid")="" or request.cookies("password")="" then response.redirect "videologin.asp" end if %>
共有课程: <% function gettipnum1() dim tmprs1 tmprs1=conn.execute("Select Count(articleid) from learning") gettipnum1=tmprs1(0) set tmprs1=nothing if isnull(gettipnum1) then gettipnum1=0 end function %><%=gettipnum1()%>部今天更新: <% function todays() dim tmprs tmprs=conn.execute("Select count(articleid) from learning Where year(dateandtime)=year(date()) and month(dateandtime)=month(date()) and day(dateandtime)=day(date())") todays=tmprs(0) set tmprs=nothing if isnull(todays) then todays=0 end function%><%=todays()%>部
<% dim t t=0 sql="select articleid,title,typeid,dateandtime,best from learning order by articleid desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof t=t+1 %>
<% Set rst= Server.CreateObject("ADODB.Recordset") rst.open "select articleid,title,hits from learning order by hits desc",conn,1,1 %> <% i=0 do while not rst.eof i=i+1 %>
<% if i>=12 then exit do rst.movenext loop rst.close set rst=nothing %>
<% sql="select articleid,domurl,title,hits,content from learning where firstbest=1 order by articleid desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 b=0 row_count=1 %> <% do while not rs.eof b=b+1%>
<% sql="select * from learning WHERE domurl<>Null and typeid='知名企业家讲授' and firstbest=1 order by dateandtime desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "" else i=0 do while not rs.eof or rs.bof %>
<% i=i+1 if i>=1 then exit do rs.movenext loop end if rs.close set rs=nothing %>
<% sql="select * from learning WHERE domurl<>Null and typeid='知名企业家讲授' order by articleid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "课程正在录制中,请先学习其他课程......" else i=0 do while not rs.eof or rs.bof %>
<% sql="select * from learning WHERE domurl<>Null and typeid='知名企管专家讲授' and firstbest=1 order by dateandtime desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "课程正在录制中,请先学习其他课程......" else i=0 do while not rs.eof or rs.bof %>
<% i=i+1 if i>=1 then exit do rs.movenext loop end if rs.close set rs=nothing %>
<% sql="select * from learning WHERE domurl<>Null and typeid='知名企管专家讲授' order by articleid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "课程正在录制中,请先学习其他课程......" else i=0 do while not rs.eof or rs.bof %>
<% sql="select * from learning WHERE domurl<>Null and typeid='欧洲工商管理学院精彩推荐' and firstbest=1 order by dateandtime desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "课程正在录制中,请先学习其他课程......" else i=0 do while not rs.eof or rs.bof %>
<% i=i+1 if i>=1 then exit do rs.movenext loop end if rs.close set rs=nothing %>
<% sql="select * from learning WHERE domurl<>Null and typeid='欧洲工商管理学院精彩推荐' order by articleid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "课程正在录制中,请先学习其他课程......" else i=0 do while not rs.eof or rs.bof %>
<% sql="select * from learning WHERE domurl<>Null and typeid='其他推荐' and firstbest=1 order by dateandtime desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "课程正在录制中,请先学习其他课程......" else i=0 do while not rs.eof or rs.bof %>
<% i=i+1 if i>=1 then exit do rs.movenext loop end if rs.close set rs=nothing %>
<% sql="select * from learning WHERE domurl<>Null and typeid='其他推荐' order by articleid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "课程正在录制中,请先学习其他课程......" else i=0 do while not rs.eof or rs.bof %>