<%
sql="select * from proclass1_proclass2 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
MapMarker=rs("MapMarker")
class2name=rs("class2name")
address=rs("address")
class2folder=rs("class2folder")
class2folder_file=Replace(rs("class2folder"),"/","_")
%>
<%ShowMetaSchoolNR "proclass2","class2ID",Request.QueryString("class2ID"),"在职研究生招生简章"%>
招生简章
<%
set rs=server.createobject("adodb.recordset")
'学校单选
'sql="select * from proclass1_proclass2_product where class2id="&request.QueryString("class2id")&" and isnull(rexiao,0)<>1 order by proid desc"
'学校多选
sql="select * from proclass1_proclass2_product where xx_box like '%," &request.QueryString("class2id")&",%' and isnull(rexiao,0)<>1 order by proid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂无记录")
else
if not rs.eof then
page = request("page")
if page="" then page=0
intPageSize=70
rs.pagesize = intpagesize
intcount = rs.recordcount
intpagecount = rs.pagecount
if int(page)>rs.pagecount then
page=rs.pagecount
end if
if page="" or page=0 then
page=1
else
page=int(page)
end if
if intcount > 0 then
rs.AbsolutePage=page
end if
for i=1 to intPageSize
%>