<%
set rs2=Server.CreateObject("Adodb.RecordSet")
'sql="select * from college where classid="&request.QueryString("classid") '獲取id asp http://www.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://www.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
%>
<%
rn.movenext
Loop
rn.close:Set rn=Nothing
else
response.Write("暫無專業(yè)")
end if
%>
<%=rs2("classname")%>
_<%=replace(rs("Class2Folder"),"/","")%>_<%=xuexiao1%>_<%=rn("class2id")%>.html" target="_blank"><%=rn("class2name")%>
咨詢電話：400-037-0535 <%'=rs("xftel")%>
- 專業(yè)方向 所屬專業(yè) 學費 學制 詳情 在線報名 <% 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">簡章查詢 .html" target="_blank">在線報名 <% rjj.movenext if rjj.eof then exit for next end If rjj.close:Set rjj=Nothing %>
學員問答
-
<%
'sql="select top 15 * from pinglun where replay is not null and proid in(select proid from product where class2id="&request.QueryString("class2id")&") and source is null order by subdate desc"
set rsa=server.CreateObject("adodb.recordset")
sql="select top 15 * from("
sql=sql&"select a.* from pinglun a,product b where a.replay is not null and a.proid =b.proid and b.class2id="&request.QueryString("class2id")&" and a.source is null and a.verify=1"
sql=sql&" union all "
sql=sql&"select a.* from pinglun a,info b where a.replay is not null and a.proid=b.infoid and b.xuexiao="&request.QueryString("class2id")&" and a.source is not null and a.source!='kinfo' and a.verify=1"
'sql=sql&" union all "
'sql=sql&" select top 10 * from pinglun where replay is not null and shenhe=2 "
sql=sql&") c order by subdate desc"
'response.Write(sql)
rsa.open sql,conn,1,1
if rsa.eof and rsa.bof then
response.Write("暫無內容")
else
do while not rsa.eof
source_t=rsa("source")
'replay=Replace(Replace(Replace(rsa("replay"),"
- <% elseif isnull(source_t) or source_t="" then source_t="guide" %>
- <% end if rsa.movenext loop end if %>
",""),"
","")," ","") replay=Replace(Replace(Replace(Replace(rsa("replay"),"",""),"
","")," ",""),"http://www.5370.com.cn/","/") if source_t="kinfo" then %>考試信息.html" target="_blank">more>
-
<%
set rr=conn.execute("select TOP 9 infoid,hongse,title from info where class1id=15 and xuexiao="&request.QueryString("class2id")&" order by infoid desc")
if rr.eof and rr.bof then
response.Write("")
else
for i=1 to 9
%>
- .html" title="<%=rr("title")%>" target="_blank"> color="#FF0000"<%end if%>><%=rr("title")%> <% rr.movenext if rr.eof then exit for next end if %>
招生簡章.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("暫無記錄")
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 %>
招生專業(yè)
- <%=cache_school_right_major%>
招生院校
- <%=cache_school_right_school%>