<%
sql="select * from shuxing1_shuxing2 where class2id="&request.QueryString("class2id")
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
majorName=replace(rs("class2folder"),"/","")
'action=reuqest("action")
'If action="generate" Then
' page = request("page")
' createFilePath="http://"&WebName&"/Professional/news.asp?class2id="&class2id&"&page="&page&"&action=generate"
' If page>1 Then
' relativeUrl="/Professional/"&majorName&"/news_" & page & ".htm"
' Else
' relativeUrl="/Professional/"&majorName&"/news.htm"
' End If
' foldername000="/Professional/"&majorName
'
' FileContent = autoGenerateFile(createFilePath,relativeUrl,foldername000)
' Response.write FileContent
' Response.End
'End If
%>
<%ShowMetaSchoolNR "shuxing2","class2ID",Request.QueryString("class2ID"),"在职研究生专业新闻"%>
.css" rel="stylesheet" type="text/css">
专业新闻
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Info where zhuanye="&request.QueryString("class2id")&" and class1id in (11,12,13) order by InfoID 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
%>