<% intervals=60 '緩存有效時間，分鐘計 cache_school_right_major=getRightCache("_SCHOOL_RIGHT_MAJOR_LIST",intervals) cache_school_right_school=getRightCache("_SCHOOL_RIGHT_SCHOOL_LIST",intervals) rem 獲取緩存數(shù)據(jù) Function getRightCache(cacheName,interval) If Application(SiteSN&cacheName)="" then getRightCache=getRightDB(cacheName) Application.lock Application(SiteSN&cacheName&"_Timestamp")=now() Application(SiteSN&cacheName)=getRightCache Application.unlock ElseIf DateDiff("n",Application(SiteSN&cacheName&"_Timestamp"),now())>CInt(interval) Then '正式運行時間隔interval分鐘調用一次 getRightCache=getRightDB(cacheName) Application.lock Application(SiteSN&cacheName&"_Timestamp")=now() Application(SiteSN&cacheName)=getRightCache Application.unlock Else getRightCache=Application(SiteSN&cacheName) End If End Function rem 獲取數(shù)據(jù)庫數(shù)據(jù) Function getRightDB(cacheName) If cacheName="_SCHOOL_RIGHT_MAJOR_LIST" Then getRightDB=getRightMajor() ElseIf cacheName="_SCHOOL_RIGHT_SCHOOL_LIST" Then getRightDB=getRightSchool() End If End Function rem 獲取右側專業(yè)代碼段 Function getRightMajor() getRightMajor="" set rs=conn.execute("select top 10 class1folder,class2folder,class2name from shuxing1_shuxing2 order by orderid desc") i=1 do while not rs.eof getRightMajor=getRightMajor&"
  • "&i&""&rs("class2name")&"
    • " i=i+1 rs.movenext Loop 'RsClose() End Function rem 獲取右側學校代碼段 Function getRightSchool() getRightSchool="" set rs=conn.execute("select top 10 class1folder,class2folder,class2name from proclass1_proclass2 order by paixu desc") i=1 do while not rs.eof getRightSchool=getRightSchool&"
  • "&i&""&rs("class2name")&"
    • " rs.movenext i=i+1 Loop 'RsClose() End Function %> <% rem 正式代碼開始 xuexiao1=request.QueryString("class2id") sql="select * from proclass1_proclass2 where class2id="&request.QueryString("class2id") set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 MapMarker=rs("MapMarker") class2name=rs("class2name") address=rs("address") class1id=rs("class1id") class2id=rs("class2id") Class1Folder=rs("Class1Folder") Class2Folder=rs("Class2Folder") 'If class1id=10 Or class2id=73 Then '上海財經大學顯示電話 If class1id=10 Then showcontact=True 'newscount="6" newscount="7" newsheight="160px" ElseIf class1id=11 Then showcontact=False newscount="11" newsheight="274px" End If %> <% sql="select class2folder,class2id,class2name from shuxing2 where class2id in ("&request.QueryString("zy")&") order by orderid desc" set rn=server.CreateObject("adodb.recordset") rn.open sql,conn,1,1 zy_class2name=rn("class2name") zy_class2id=rn("class2id") %> <%if request.QueryString("class2id")=414 then%> 久久久久国产一区二区,精品人妻系列无码人妻漫画,精品国产一区二区三区四区色 <%else%> <%=class2name%><%=rn("class2name")%>在職研究生(課程研修班)-在職研招網 <%end if%> <% '學校下專業(yè)關鍵詞 function ShowMetaProZy(TableName,KField,FieldValue,expression) set rsf=conn.execute("Select * from "&TableName&" where " & KField & " = "&FieldValue ) set rsf_zy=conn.execute("Select * from shuxing2 where class2id = "&expression ) Response.Write""&chr(13) Response.Write""&chr(13) Response.Write""&chr(13) If FieldValue=414 Then Response.Write""&chr(13) else Response.Write""&chr(13) end if Response.Write"" rsf.Close set rsf=nothing rsf_zy.close set rsf_zy=nothing end function %> <%ShowMetaProZy "proclass2","class2ID",request.QueryString("class2id"),request.QueryString("zy")%>

    久久久久亚洲av无码专区喷水,国内精品乱码卡一卡2卡麻豆,久久99精品国产自在现线小黄鸭,久久久久久综合网天天,国偷自产视频一区二区久

    <%if class2id<>71 and class2id<>72 and class2id<>72 and class2id<>85 and class2id<>416 and class2id<428 and class2id<>433 and class2id<>576 then%> 當前位置：在職研招網 >> 在職研究生院校 >> <%=Replace(rs("class2folder"),"/","_")%>/"><%=class2name%> >> _<%=xuexiao1%>_<%=zy_class2id%>/"><%=zy_class2name%> <%ElseIf class2id=71 Then %> 當前位置：在職研招網 >> 招生院校 >> <%=Replace(rs("class2folder"),"/","_")%>/"><%=class2name%> >> _<%=xuexiao1%>_<%=zy_class2id%>/"><%=zy_class2name%> <%ElseIf class2id=85 Then %> 當前位置：在職研招網 >> 招生院校 >> <%=Replace(rs("class2folder"),"/","_")%>/"><%=class2name%> >> _<%=xuexiao1%>_<%=zy_class2id%>/"><%=zy_class2name%> <%ElseIf class2id=577 Then %> 當前位置：在職研招網 >> 招生院校 >> <%=Replace(rs("class2folder"),"/","_")%>/"><%=class2name%> >> _<%=xuexiao1%>_<%=zy_class2id%>/"><%=zy_class2name%> <%else%> 當前位置：在職研招網 >> 招生院校 >> <%=Replace(rs("class2folder"),"/","_")%>/"><%=class2name%> >> _<%=xuexiao1%>_<%=zy_class2id%>/"><%=zy_class2name%> <%End If %>
    <% sql="select top 4 * from xxhdp where classid="&request.QueryString("class2id")&" and weizhi=1 order by tuku_order_id desc" set rhd=server.createobject("adodb.recordset") rhd.open sql,conn,1,1 if not (rhd.eof and rhd.bof) then do while not rhd.eof %> <% rhd.movenext loop end if rhd.close:set rhd=nothing %>

    <%=rs("gonggao")%>

    教育新聞/news_<%=rs("class2id")%>/" target="_blank">more>

    <%=rn("class2name")%> 咨詢電話：<%=rs("xftel")%>
    • 專業(yè)方向 所屬專業(yè) 學費 學制 詳情 在線報名
      • <% 'set rjj=conn.execute("select top 1 proid,zyfx,xuefei,xuezhi,proid,class2id from product where class2id="&rs("class2id")&" and xuexiao="&rn("class2id")&" and xxtj=1 and zyfx<>'' and isnull(rexiao,0)<>1 order by orderid desc") set rjj=conn.execute("select top 50 proid,zyfx,xuefei,xuezhi,proid,class2id from product where class2id="&rs("class2id")&" and xuexiao="&rn("class2id")&" and zyfx<>'' and isnull(rexiao,0)<>1 order by orderid desc") if rjj.eof and rjj.bof then response.Write("") else for i=1 to 50 %>
    • .html" target="_blank"><%=rjj("zyfx")%> /" target="_blank"><%=rn("class2name")%> <%If rjj("xuefei")<>"" Then Response.write rjj("xuefei")&"元" Else Response.write "--" End If %> <%=rjj("xuezhi")%>年 .html" target="_blank">簡章查詢 /" target="_blank">在線報名
      • <% rjj.movenext if rjj.eof then exit for next end If rjj.close:Set rjj=Nothing %>
    <% rn.close:Set rn=Nothing %>

    學員問答

    <% set rlg=conn.execute("select * from xxhdp where classid="&request.QueryString("class2id")&" and weizhi=2 order by tuku_order_id desc") if rlg.eof and rlg.bof then response.Write("") else for i=1 to 1 %> <% rlg.movenext if rlg.eof then exit for next end If %>

    考試信息/kaoshixinxi_<%=rs("class2id")%>/" target="_blank">more>

    <% if not rlg.eof then for i=1 to 1 %> <% rlg.movenext if rlg.eof then exit for Next end if %>

    招生簡章/jianzhang_<%=rs("class2id")%>/" target="_blank">more>

      <% set rr=server.createobject("adodb.recordset") sql="select top 10 proid,proname from proclass1_proclass2_product where class2id="&request.QueryString("class2id")&" and isnull(rexiao,0)<>1 order by proid desc" rr.open sql,conn,1,1 if rr.eof and rr.bof then response.Write("暫無記錄") Else for i=1 to 10 %>
    • .html" title="<%=rr("proname")%>" target="_blank"><%=rr("proname")%>
      • <% rr.movenext if rr.eof then exit for next end if %>
    <% if not rlg.eof then for i=1 to 1 %> <% rlg.movenext if rlg.eof then exit for Next end if %>

    招生專業(yè)

      <%=cache_school_right_major%>

    招生院校

      <%=cache_school_right_school%>
    <% rlg.close:Set rlg=Nothing rr.close:Set rr=Nothing rsss.close:Set rsss=Nothing RsClose() ConnClose() %>