<%
sql="select top 4 tuku_content,tuku_title,tuku_file from zyhdp 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
%>
<%=rs("gonggao")%>
最新资讯 more>
-
<%
set rr1=conn.execute("select top 10 * from infclass1_info where class1id=31 order by infoid desc")
if rr1.eof and rr1.bof then
'response.Write("暂无记录")
else
for i=1 to 7
%>
- _info_detail_info<%=rr1("infoid")%>.html" title="<%=rr1("title")%>" target="_blank"> color="#FF0000"<%end if%>><%=rr1("title")%> <% rr1.movenext if rr1.eof then exit for next end if rr1.close:Set rr1=Nothing %>
热门问答 more>
-
<%
set rsss=server.createobject("adodb.recordset")
sql="select top 7 * from infclass1_info where class1id=31 and zhuanye="&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 7
%>
- _info_detail_info<%=rsss("infoid")%>.html" target="_blank" title="<%=rsss("title")%>"> color="#FF0000"<%end if%>><%=rsss("title")%> <% rsss.movenext if rsss.eof then exit for next end if rsss.close:set rsss=nothing %>
<%=rs("class2name")%>
-
<%
set rs=server.createobject("adodb.recordset")
sql="select * from infclass1_info where class1id=31 and zhuanye="&request.QueryString("class2id")&" 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 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
%>
- _info_detail_info<%=rs("infoid")%>.html" target="_blank"> color="#FF0000"<%end if%>><%=rs("title")%> <%=Left(nohtml(rs("content")),100)%>... <% rs.movenext if rs.eof then exit for next end if end if %>
-
<%
StaticChangePageFront "https://"&ProWebName&"/Professional_"&majorName&"fenshuxian_"&request.QueryString("class2id"),"/"
%>