<%
sql="select top 4 tuku_content,tuku_title,tuku_file from xxhdp where classid="&request.QueryString("class2id")&" and weizhi=1 order by tuku_order_id desc"
set rhd=server.createobject("adodb.recordset")
rhd.open sql,conn,1,1
if not (rhd.eof and rhd.bof) then
do while not rhd.eof
%>
<%
rhd.movenext
loop
end if
rhd.close:set rhd=nothing
%>
<%=cleanYJS(rs("gonggao"))%>
最新资讯 more>
-
<%
set rr=conn.execute("select top 7 infoid,title,hongse,xuexiao from infclass1_info where class1id=31 order by infoid desc")
if rr.eof and rr.bof then
response.Write("暂无记录")
else
for i=1 to 7
If rr("hongse")=1 Then
hongse="color='#FF0000'"
End If
%>
- .html" title="<%=rr("title")%>" target="_blank"> ><%=cleanYJS(rr("title"))%> <% rr.movenext if rr.eof then exit for next end if %>
热门问答 more>
-
<%
set rsss=server.createobject("adodb.recordset")
sql="select top 7 infoid,title,hongse from infclass1_info where class1id=31 and xuexiao="&request.QueryString("class2id")&" order by infoid desc"
rsss.open sql,conn,1,1
if rsss.eof and rsss.bof then
response.Write("暂无记录")
else
'for i=1 to newscount
for i=1 to 7
%>
- /info_detail_info<%=rsss("infoid")%>.html" target="_blank" title="<%=rsss("title")%>"> color="#FF0000"<%end if%>><%=cleanYJS(rsss("title"))%> <% rsss.movenext if rsss.eof then exit for next end If rsss.close:Set rsss=Nothing %>
<%=class2name%>
-
<%
set rs=server.createobject("adodb.recordset")
sql="select infoid,title,content,hongse from infclass1_info where class1id=31 and xuexiao="&request.QueryString("class2id")&" order by infoid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof Then
showpage=false
response.Write("暂无记录")
Else
showpage=true
page = request("page")
if page="" then page=1
intPageSize=10
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 Or page="-1" then
page=1
else
page=int(page)
end if
if intcount > 0 then
rs.AbsolutePage=page
end if
for i=1 to intPageSize
%>
- .html" target="_blank"> color="#FF0000"<%end if%>><%=cleanYJS(rs("title"))%> <%=Left(nohtml(cleanYJS(rs("content"))),100)%>... <% rs.movenext if rs.eof then exit for next end if %>
-
<%
If showpage Then
StaticChangePageFront "https://"&ProWebName&"/University"&class2folder_file&"/fenshuxian_"&request.QueryString("class2id"),"/"
End If
%>