<% intervals=60 '緩存有效時(shí)間，分鐘計(jì) 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 '正式運(yùn)行時(shí)間隔interval分鐘調(diào)用一次 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ù)庫(kù)數(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 獲取右側(cè)專業(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 獲取右側(cè)學(xué)校代碼段 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") 'If class1id=10 Or class2id=73 Then '上海財(cái)經(jīng)大學(xué)顯示電話 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 * from college where urlname='"&request.QueryString("classid")&"'" set rsa=server.CreateObject("adodb.recordset") rsa.open sql,conn,1,1 xueyuanid=rsa("classid") xueyuanname=rsa("classname") xueyuanjiejian=rsa("content") %> <%'ShowMetaPro "college","classID",rsa("classid")%> <%rsa.close:Set rsa=Nothing %> 精品无码国产自产在线观看水浒传 ,精品无人区卡一卡二卡三乱码,久久天天躁狠狠躁夜夜网站 <%=xueyuanname%>,<%=class2name%><%=xueyuanname%>在職研究生,<%=class2name%><%=xueyuanname%>研究生"> "

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

    <% set rs2=Server.CreateObject("Adodb.RecordSet") 'sql="select * from college where classid="&request.QueryString("classid") '獲取id asp http://5370.com.cn/template/proclass2_xy.asp?class2id=67&classid=778 sql="select * from college where urlname='"&request.QueryString("classid")&"' and class2id='"&request.QueryString("class2id")&"'" '獲取urlname http://5370.com.cn/template/proclass2_xy.asp?class2id=67&classid=pkuboshi rs2.open sql,conn,1,1 xyclassid=rs2("classid") %>
    <%=rs2("classname")%>
    <%=rs2("content")%>
    查看更多 +
    <% linkpro1=rs("linkpro") 'response.Write(linkpro1) if linkpro1 <> "" then linkpro1=left(linkpro1,(len(linkpro1)-1)) 'response.Write(linkpro1) sql="select class2folder,class2id,class2name from shuxing2 where class2id in ("&linkpro1&") order by orderid desc" 'response.Write(sql) set rn=server.CreateObject("adodb.recordset") rn.open sql,conn,1,1 do while not rn.eof %>
    • 專業(yè)方向 所屬專業(yè) 學(xué)費(fèi) 學(xué)制 詳情 在線報(bào)名
      • <% Dim sql:sql="select top 50 proid,zyfx,xuefei,xuezhi,proid,class2id from product where xx_box like '%," &rs("class2id")&",%' and xuexiao="&rn("class2id")&" and zyfx<>'' and newxueyuan like '%,"&xyclassid&",%' order by orderid desc" set rjj=conn.execute(sql) 'sql="select top 50 proid,zyfx,xuefei,xuezhi,proid,class2id from product where xx_box like '%," &rs("class2id")&",%' and xuexiao="&rn("class2id")&" and zyfx<>'' and isnull(rexiao,0)<>1 and newxueyuan like '%,"&xyclassid&",%' order by orderid desc" 'response.Write(sql) if rjj.eof and rjj.bof then response.Write("") else for i=1 to 50 %>
    • .html" target="_blank"><%=rjj("zyfx")%> .html" s target="_blank"><%=rn("class2name")%> <%If rjj("xuefei")<>"" Then Response.write rjj("xuefei")&"元" Else Response.write "--" End If %> <%=rjj("xuezhi")%>年 .html" target="_blank">簡(jiǎn)章查詢 .html" target="_blank">在線報(bào)名
      • <% rjj.movenext if rjj.eof then exit for next end If rjj.close:Set rjj=Nothing %>
    <% rn.movenext Loop rn.close:Set rn=Nothing else response.Write("暫無(wú)專業(yè)") end if %>

    學(xué)員問答

    <% 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 %>

    考試信息.html" target="_blank">more>

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

    招生簡(jiǎn)章.html" 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("暫無(wú)記錄") 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%>
    <% rs2.close:Set rs2=Nothing %>