%
sql="select * from shuxing1_shuxing2 where class2id="&request.QueryString("class2id")
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
If rs.bof And rs.eof Then
rs.close:Set rs=Nothing
ConnClose()
Response.Status = "404 Not Found"
Response.redirect "/404"
Response.end
End If
%>
<%
sql="select * from proclass1_proclass2_product where proid="&request.QueryString("proid")
set rss=server.CreateObject("adodb.recordset")
rss.open sql,conn,1,1
class1id=rss("class1id")
class2id=rss("class2id")
zyclassid=rss("xuexiao")
If class1id=10 Or class2id=73 Then
showcontact=True
ElseIf class1id=11 Then
showcontact=False
End If
if Not IsNull(rss("zyjycontent")) then
Str=rss("zyjycontent")
else
str=""
end If
If Not IsNull(Str) Then
Str = Replace(str,"\","/")
'Response.write Str & "
"
On Error Resume Next
'Dim xxfs,skfd,fangxiang,youshi,bmtj,sfbz '學(xué)習(xí)方式,上課地點,下設(shè)方向,優(yōu)勢,報名條件,收費標(biāo)準(zhǔn)
Set jsonObject = getJsonToObject(Str)
if jsonObject("xxfs") = "" then
xxfs ="--"
else
xxfs = jsonObject("xxfs")
end if
if jsonObject("xxfs") ="" then
skfd ="--"
else
skfd = jsonObject("skfd")
end if
If Err.Number <> 0 Then
Err.clear
End If
end If
newtitlename=rss("proname")
rem if class2id=70 Or class2id=71 Or class2id=72 Or class2id=109 Or class2id=176 then
if class2id<>71 and class2id<>72 and class2id<>72 and class2id<>416 and class2id<>428 and class2id<>433 and class2id<>576 then
newtitlename=replace(newtitlename,"在職研修招生簡章","在職研究生招生簡章")
newtitlename=replace(newtitlename,"在職課程研修班招生簡章","在職研究生招生簡章")
newtitlename=replace(newtitlename,"課程研修班招生簡章","在職研究生招生簡章")
end if
'if class2id=71 or class2id=72 or class2id=72 or class2id=416 or class2id=428 or class2id=433 or class2id=576 or class2id=579 Then
yearshow = year(date)
yearshownext = yearshow + 1
monthshow = CInt(Month(date))
If monthshow>=10 Then
yearshow=yearshow+1
yearshownext=yearshownext+1
End If
yearshow = yearshow & "年"
yearshownext = yearshownext & "年"
newtitlename = yearshow & "" & newtitlename
If rss.bof And rss.eof Then
rs.close:Set rs=Nothing
rss.close:Set rss=Nothing
ConnClose()
Response.Status = "404 Not Found"
Response.redirect "/404"
Response.end
End If
majorName=Replace(rs("class2folder"),"/","")
%>
在職研究生">
<%End If%>
在線報名