<% dim dq,pdq dq=requestsafe("dq") pdq=requestsafe("pdq") if dq="" then pdq="beijing" dq = "北京" end if %> 考研院校
考研院校
北京 天津 上海 江苏
浙江 山东 江西 安徽
福建 广东 广西 海南
黑龙江 辽宁 吉林 内蒙古
山西 河南 河北 湖南
湖北 四川 重庆 云南
贵州 新疆 西藏 陕西
甘肃 宁夏 青海 香港
院系介绍
<% set rs=server.createobject("ADODB.Recordset") sql= "SELECT TOP 7 Title,fn,UpdateTime,starttime FROM ky_News WHERE (dq='"&dq&"' and fkey = '院系介绍') OR (dq='"&dq&"' and SmallClassName = '53') ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<7 then su=rscount else su=7 end if for i=1 to su msg=rs("title") msg=text1(msg) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)>114 then%><%=left(msg,118)%><%else%> <%=msg%> <%end if%>
 
专业介绍
<% set rs=server.createobject("ADODB.Recordset") sql= "SELECT TOP 5 Title,fn,UpdateTime,starttime FROM ky_News WHERE dq='"&dq&"' and fkey = '专业介绍' OR dq='"&dq&"' and SmallClassName = '49' ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<5 then su=rscount else su=5 end if for i=1 to su msg=rs("title") msg=text1(msg) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)>101 then%><%=left(msg,118)%>....<%else%> <%=msg%> <%end if%>
 
您的位置:首页 >> 考研院校
<% sub chuli(text) if text="招生简章" then response.write("招生") end if if text="历届试题" then response.write("历年试题") end if if text<>"招生简章" and text<>"历届试题" then response.write(text) end if end sub dim xy(3,4) xy(1,1)="招生简章" xy(1,2)="专业介绍" xy(1,3)="政策解析" xy(1,4)="考试大纲" xy(2,1)="院校动态" xy(2,2)="历届试题" xy(2,3)="模拟试题" xy(2,4)="动态追踪" xy(3,1)="院系介绍" xy(3,2)="录取调剂" xy(3,3)="考研复试" xy(3,4)="复习指导" %>
<% for i = 1 to 3 %> <% for j = 1 to 4 %> <%next%> <%next%>
<%= xy(i,j) %>
考研院校
<% set rs=server.createobject("ADODB.Recordset") sql="select address,areaname,schoolname,id from ky_schoolname where areaname='"&dq&"'" rs.open sql,conn,1,1 If Not rs.EOF Then %> <% for i= 1 to 999 %> <% for j= 1 to 3 %> <% rs.movenext if j=1 and rs.eof then response.write("") end if if j=2 and rs.eof then response.write("") end if if rs.eof then exit for next %> <% if rs.eof then exit for next Else %> <% End If rs.close set rs=nothing %>
  "> <%=text1(rs("schoolname"))%>    
暂时没有本地区的学校信息,请您随时关注,谢谢!
<% set rs=server.CreateObject("adodb.recordset") sqlstr="select id,address from ky_schoolname where areaname='"&dq&"' and tj<>0 and uurl is not null order by tj desc" rs.open sqlstr,conn,1,1 i=0 if not rs.eof then for i= 1 to 5 %> <% if rs.eof then exit for rs.movenext if rs.eof then exit for next end if rs.close() set rs = nothing if i<5 then set rs=server.CreateObject("adodb.recordset") sqlstr="select id,address from ky_schoolname where areaname<>'"&dq&"' and uurl is not null and tj<>0 order by tj desc" rs.open sqlstr,conn,1,1 for j= 1 to (5-i) if rs.eof then exit for %> <% if rs.eof then exit for rs.movenext if rs.eof then exit for next rs.close() set rs = nothing end if %>
target="_blank">.jpg border="0"> target="_blank">.jpg border="0">
招生简章                                      更多>>
<% set rs=server.createobject("ADODB.Recordset") sql= "SELECT top 8 Title,fn,UpdateTime,starttime FROM ky_News WHERE dq='"&dq&"' and fkey = '招生简章' ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<8 then su=rscount else su=8 end if for i=1 to su msg=text1(rs("title")) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)>34 then%><%=text1(left(msg,34))%>..<%else%> <%=msg%> <%end if%>
考研复试                                      更多>>
<% set rs=server.createobject("ADODB.Recordset") 'sql= "SELECT TOP 5 Title,fn,UpdateTime,starttime FROM ky_News WHERE fkey LIKE '%复习指导%' OR BigClassName like '%复习指导' ORDER BY starttime DESC" sql= "SELECT TOP 5 Title,fn,UpdateTime,starttime FROM ky_News WHERE dq='"&dq&"' and fkey = '考研复试' OR dq='"&dq&"' and SmallClassName = '47' ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<5 then su=rscount else su=5 end if for i=1 to su msg=text1(rs("title")) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)>34 then%><%=left(msg,34)%>..<%else%> <%=msg%> <%end if%>
复习指导                                      更多>>
<% set rs=server.createobject("ADODB.Recordset") sql= "SELECT TOP 5 Title,fn,UpdateTime,starttime FROM ky_News WHERE fkey = '复习指导' ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<5 then su=rscount else su=5 end if for i=1 to su msg=text1(rs("title")) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)>34 then%><%=left(msg,34)%>..<%else%> <%=msg%> <%end if%>
模拟试题                                      更多>>
<% set rs=server.createobject("ADODB.Recordset") sql= "SELECT TOP 5 Title,fn,UpdateTime,starttime FROM ky_News WHERE fkey = '模拟试题' ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<5 then su=rscount else su=5 end if for i=1 to su msg=text1(rs("title")) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)>34 then%><%=left(msg,34)%>..<%else%> <%=msg%> <%end if%>
考试大纲                                      更多>>
<% set rs=server.createobject("ADODB.Recordset") sql= "SELECT TOP 5 Title,fn,UpdateTime,starttime FROM ky_News WHERE fkey = '考试大纲' ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<5 then su=rscount else su=5 end if for i=1 to su msg=text1(rs("title")) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)>34 then%><%=left(msg,34)%>..<%else%> <%=msg%> <%end if%>
历年试题                                      更多>>
<% set rs=server.createobject("ADODB.Recordset") sql= "SELECT TOP 5 Title,fn,UpdateTime,starttime FROM ky_News WHERE fkey = '历年试题' ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<5 then su=rscount else su=5 end if for i=1 to su msg=text1(rs("title")) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)>34 then%><%=left(msg,34)%>..<%else%> <%=msg%> <%end if%>
录取调剂
<% set rs=server.createobject("ADODB.Recordset") sql= "SELECT TOP 9 Title,fn,UpdateTime,starttime FROM ky_News WHERE dq='"&dq&"' and fkey = '录取调剂' AND LEN(Title) > 14 OR dq='"&dq&"' and LEN(Title) > 14 ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<9 then su=rscount else su=9 end if for i=1 to su msg=rs("title") msg=text1(msg) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)>116 then%><%=left(msg,116)%><%else%> <%=msg%> <%end if%>
 
政策解析
<% set rs=server.createobject("ADODB.Recordset") sql= "SELECT TOP 10 Title,fn,UpdateTime,starttime FROM ky_News WHERE fkey = '政策解析' AND LEN(Title) > 14 AND LEN(Title) < 24 OR SmallClassName = '44' and LEN(Title) > 14 AND LEN(Title) < 24 ORDER BY starttime DESC" rs.open sql,conn,1,1 rscount = rs.recordcount If Not rs.EOF Then %> <% if rscount<10 then su=rscount else su=10 end if for i=1 to su msg=rs("title") msg=text1(msg) 'msg=rs("title") & rs("title") %> <% rs.movenext next Else Response.Write "暂且没有信息" End If rs.close set rs=nothing %>
/<%=month(rs("updatetime"))%>/<%=rs("fn")%>"> <% if len(msg)<114 then%> <%=msg%> <%else%> <%=msg%> <%end if%>