!!!？？页面怎么跳转？初学求教

这是我要打开的首页index.asp（代码一），我希望点击打开他时是调用videologin.asp（代码二）这个页面来登录，登录成功后再显示index.asp **********代码一********* <% if request.cookies("userid")="" or request.cookies("password")="" then response.redirect "videologin.asp" end if %>

<%set rs1=server.createobject("adodb.recordset") sql="select * from talk where id=id" rs1.open sql,conn,1,3 talk=rs1("talk") rs1.close set rs1=nothing %><%=talk%>	frameborder=0 height=159 marginheight=0 marginwidth=0 name=movie scrolling=no src="newpic.asp" width=483> <script language="JavaScript"> </script> ： 按课程名称 按讲师名称

共有课程: <% 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()%>部 修改密码 　 修改资料 付费助理 　 学习记录 s 学习助理 　 我要留言

<% 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 %> <%=t%>. " target="_blank" class="left"><%content=rs("title") if len(content)>13 then content=left(content,13)&"…" response.write content %> <%=Month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%> <% if t>=13 then exit do rs.movenext loop %>

<% 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 %> <%=i%>. " target="_blank" class="left"><%content=rst("title") if len(content)>12 then content=left(content,12)&"…" response.write content %> <%=rst("hits")%> <% 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%>   " target="_blank">img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="145" height="120"> <% if row_count mod 1 =0 then%> " target="_blank" class="left"><%content=rs("title") if len(content)>11 then content=left(content,11)&"…" response.write content %>    <%end if%> <%row_count=row_count+1 if b>=3 then exit do rs.movenext loop rs.close set rs=nothing %>

知名企业家讲授 　　　　more <% 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 %> " target="_blank">img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="66" height="66">    " target="_blank" class="left"><%content=rs("title") if len(content)>12 then content=left(content,12)&"-" response.write content %> 主讲：<%content=rs("name") if len(content)>8 then content=left(content,8)&"…" response.write content %> 观看次数： <%=rs("hits")%>次 <% 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 %>
·" target="_blank" class="left"><%content=rs("title") if len(content)>13 then content=left(content,13)&"-" response.write content %>	<%=rs("hits")%>次

<% i=i+1 if i>=3 then exit do rs.movenext loop end if rs.close set rs=nothing %>

知名企管专家讲授 　　　　more <% 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 %> " target="_blank">img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="66" height="66">    " target="_blank" class="left"><%content=rs("title") if len(content)>12 then content=left(content,12)&"-" response.write content %> 主讲：<%content=rs("name") if len(content)>8 then content=left(content,8)&"…" response.write content %> 观看次数： <%=rs("hits")%>次 <% 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 %>
·" target="_blank" class="left"><%content=rs("title") if len(content)>13 then content=left(content,13)&"-" response.write content %>	<%=rs("hits")%>次

<% i=i+1 if i>=3 then exit do rs.movenext loop end if rs.close set rs=nothing %>

欧洲商学院精彩推荐 　　　　more <% 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 %> " target="_blank">img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="66" height="66">    " target="_blank" class="left"><%content=rs("title") if len(content)>12 then content=left(content,12)&"-" response.write content %> 主讲：<%content=rs("name") if len(content)>8 then content=left(content,8)&"…" response.write content %> 观看次数： <%=rs("hits")%>次 <% 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 %>
·" target="_blank" class="left"><%content=rs("title") if len(content)>13 then content=left(content,13)&"-" response.write content %>	<%=rs("hits")%>次

<% i=i+1 if i>=3 then exit do rs.movenext loop end if rs.close set rs=nothing %>

其他推荐 　　　　more <% 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 %> " target="_blank">img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="66" height="66">    " target="_blank" class="left"><%content=rs("title") if len(content)>12 then content=left(content,12)&"-" response.write content %> 主讲：<%content=rs("name") if len(content)>8 then content=left(content,8)&"…" response.write content %> 观看次数： <%=rs("hits")%>次 <% 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 %>
·" target="_blank" class="left"><%content=rs("title") if len(content)>13 then content=left(content,13)&"-" response.write content %>	<%=rs("hits")%>次

<% i=i+1 if i>=3 then exit do rs.movenext loop end if rs.close set rs=nothing %> **********************代码二******************

<% if request.cookies("okerer")="" or request.cookies("userid")="" then %>        学员登录 护照编号: 登录密码: <%else set rs=server.createobject("adodb.recordset") sql="select money,starlook,nlook,online,name,usercount,password,id,baoyue,oklook from users where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'" rs.open sql,conn,1,1 %>

登陆用户：<%=request.cookies("userid")%> <%if rs("oklook")=0 then oklook="学员等级： 游客   只能观看免费电影" elseif rs("oklook")=1 then oklook="学员等级： 黄金护照学员  拥有学习通行币： "&rs("usercount")&" 枚" elseif rs("oklook")=2 then oklook="学员等级： 纯金护照学员  有效期到： "&Year(rs("money"))&"-"&Month(rs("money"))&"-"&day(rs("money"))&"" elseif rs("oklook")=3 then oklook="学员等级： 白金护照学员  有效期到： "&Year(rs("money"))&"-"&Month(rs("money"))&"-"&day(rs("money"))&"" elseif rs("oklook")=4 then oklook="学员等级： 钻石护照学员  有效期到： "&Year(rs("money"))&"-"&Month(rs("money"))&"-"&day(rs("money"))&"" elseif rs("oklook")=5 then oklook="学员等级： 终生学员" end if%> <%=oklook%>  如果离开,请 退出登陆

<%end if%>