<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<!--#include file="config.asp" -->
<!--#include file="syscode.asp" -->
<%
cls=GetSafeStr(request("cls"))

if cls<>"" then
	sql=sql&" smallclassname = '"&cls&"' and"
	info=">> "&cls
else
	info=""
end if

sql2= "select * from news where bigclassid=4 and "&sql&" id is not null order by ord desc"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>西安西科职业技术学院-校园风貌</title>
<!--关键字修改 config.asp 就可以了-->
<meta name="keywords" content="<%=key%>">
<meta name="description" content="<%=descrip%>">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="top.asp" -->
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="235" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="34" background="images/left.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="10%" align="right"><img src="images/arrow.gif" width="9" height="9"></td>
              <td width="27%">&nbsp;<span class="baifont">分类介绍</span></td>
              <td width="47%">&nbsp;</td>
              <td width="16%">&nbsp;</td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="100" valign="top"><table width="232" border="0" align="right" cellpadding="0" cellspacing="0" background="images/abbg.jpg">
            <tr>
              <td width="230" height="100" valign="top">
			  <%
		set rs=conn.execute("select * from smallclass where bigclassid=4  order by s_order asc")
			  %>
			  <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
			  <%
			  do while not rs.eof 
			  %>
                <tr>
                  <td height="30"><img src="images/t1.gif">  <a href="huanjing.asp?cls=<%=rs("smallclassname")%>"><%=rs("smallclassname")%></a></td>
				  <%
				  rs.movenext
				  if rs.eof then exit do 
				  %>
                  <td><img src="images/t1.gif">  <a href="huanjing.asp?cls=<%=rs("smallclassname")%>"><%=rs("smallclassname")%></a></td>
				  	<%
				  rs.movenext
				  if rs.eof then exit do 
				  %>
                </tr>
			 <%
			 loop
			 %>
              </table>
			  
			  </td>
            </tr>
        </table></td>
      </tr>
    </table>
    <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td ></td>
  </tr>
</table>

	<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="34" background="images/left1.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="10%" align="right"><img src="images/arrow.gif" width="9" height="9"></td>
              <td width="27%">&nbsp; <span class="baifont">招生动态</span></td>
              <td width="47%">&nbsp;</td>
              <td width="16%"><a href="newslist.asp?cls=招生动态"><img src="images/more.gif" width="27" height="18" border="0"></a></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td height="148" valign="top" background="images/left3bg.jpg" bgcolor="#CEE9FE"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><%
				dim sql
	sql="select top 6 * from news where smallclassname='招生动态'order by ord desc,id desc"
	set rs = conn.execute(sql)
	if rs.bof and rs.eof then
		response.write("<table ><tr><td>暂无记录</td></tr></table>")
	else
	%>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <%
	while not rs.eof
		if len(rs("title"))>15 then
		stitle=left(rs("title"),15)&"..."
	else
		stitle=rs("title")
	end if
	i=i+1
	%>
                    <tr >
                      <td width="19" align="center"><img src="images/PLUS.GIF" width="15" height="15"></td>
                      <td height="22"><a href="shownews.asp?id=<%=rs("id")%>" target="_blank" title="<%=rs("title")%>"><%=stitle%></a></td>
                    </tr>
                    <%
	rs.movenext
	wend
	%>
                  </table>
                <%
	rs.close
	set rs=nothing
	end if
%>
              </td>
            </tr>
          </table></td>
        </tr>
      </table>
	<table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td ></td>
      </tr>
    </table>
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="34" background="images/left1.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="10%" align="right"><img src="images/arrow.gif" width="9" height="9"></td>
              <td width="27%">&nbsp;<span class="baifont">行业新闻</span></td>
              <td width="47%">&nbsp;</td>
              <td width="16%"><a href="newslist.asp?cls=招生动态"><img src="images/more.gif" width="27" height="18" border="0"></a></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="148" valign="top" background="images/left3bg1.jpg" bgcolor="#CEE9FE"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><%
	sql="select top 6 * from news where smallclassname='行业新闻'order by ord desc,id desc"
	set rs = conn.execute(sql)
	if rs.bof and rs.eof then
		response.write("<table ><tr><td>暂无记录</td></tr></table>")
	else
	%>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <%
	while not rs.eof
		if len(rs("title"))>15 then
		stitle=left(rs("title"),15)&"..."
	else
		stitle=rs("title")
	end if
	i=i+1
	%>
                  <tr >
                    <td width="19" align="center"><img src="images/PLUS.GIF" width="15" height="15"></td>
                    <td height="22"><a href="shownews.asp?id=<%=rs("id")%>" target="_blank" title="<%=rs("title")%>"><%=stitle%></a></td>
                    </tr>
                  <%
	rs.movenext
	wend
	%>
                </table>
              <%
	rs.close
	set rs=nothing
	end if
%>
            </td>
          </tr>
        </table></td>
      </tr>
    </table></td>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="39" background="images/ctoptbg.jpg"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="4%" align="center"><img src="images/Sm_MainDayIcon.gif" width="15" height="15"></td>
            <td width="96%"><A href="huanjing.asp">校园风貌 </A> <%=info%></td>
          </tr>
        </table></td>
      </tr>
    </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr>
          <td valign="top" class="crt"><table width="708" border="0" align="right" cellpadding="4" cellspacing="2" class="dt">
            <tr>
              <td width="696" height="484" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td>
				  <%
	set rs=server.createobject("adodb.recordset")
    rs.open sql2,conn,1,3
	if rs.eof then
		response.Write" <br><br><br><center>暂无作品</center>"
	else
		rs.PageSize =12
		Page = CLng(Request("Page"))
		If Page < 1 Then Page = 1
		If Page > rs.PageCount Then Page = rs.PageCount
		rs.absolutepage=page

	%>
                      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr>
                          <td colspan="3" height="5"></td>
                        </tr>
                        <%
		for i=1 to 3
	  %>
                        <tr>
                          <% 
	  for j=1 to 4
		if rs("d_picture")="nopic" then
		picurl="images/no_photo_s.gif"
		else
		picurl=rs("d_picture")
		end if
			if len(rs("title"))>10 then
			stitle=left(rs("title"),10)&"…"
			else
			stitle=rs("title")
			end if
	  %>
                          <td height="25" align="center"><table width="100" border="0" cellspacing="1" cellpadding="0">
                              <tr>
                                <td><a href="showhj.asp?id=<%=rs("id")%>" target="_blank" > <img src="<%=picurl%>" alt="" width="155" height="127" border="0"></a></td>
                              </tr>
                              <tr>
                                <td height="22"  align="center" valign="middle" bgcolor="#E9F2F9"><a href="showhj.asp?id=<%=rs("id")%>" target="_blank" ><%=stitle%></a></td>
                              </tr>
                          </table></td>
                          <%
					   rs.movenext
	 if x>=4 then exit for
	 if rs.eof then exit for
	 next
					  %>
                        </tr>
                        <tr>
                          <td colspan="3" height="5"></td>
                        </tr>
                        <%
if rs.eof then exit for
 next
%>
                      </table>
                    <table width="98%" height="22" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2F2F2">
                        <tr>
                          <td><% 
  If page=1 Then
  response.Write "<font color=#999966>第一页</font>&nbsp;&nbsp;"
  response.Write "<font color=#999966>上一页</font>&nbsp;&nbsp;"
  else
  response.Write"<a href='?page=1&cls="&cls&"'>第一页</a>&nbsp;&nbsp;<a href='?page="&(page-1)&"&cls="&cls&"'>上一页</a>&nbsp;&nbsp;"
  end if
  If cint(page)=rs.pagecount then
  response.Write "<font color=#999966>下一页&nbsp;&nbsp;</font>"
  response.Write "<font color=#999966>最后页&nbsp;&nbsp;</font>"
  else
  response.Write"<a href='?page="&(page+1)&"&cls="&cls&"'>下一页</a>&nbsp;&nbsp<a href='?page="&rs.pagecount&"&cls="&cls&"'>最后页</a>&nbsp;&nbsp; "
  end if
%>
                            &nbsp;&nbsp;页次&nbsp;<font COLOR="Red"><%=Page%></font>/<%=rs.PageCount%> 共<font COLOR="Red"><%=rs.recordcount%></font>条记录
                            &nbsp;&nbsp;
                            <select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;">
                              <%for i = 1 to rs.PageCount
             if i = page then%>
                              <option value="?page=<%=i%>&cls=<%=cls%>"selected><%=i%></option>
                              <%else%>
                              <option value="?page=<%=i%>&cls=<%=cls%>"><%=i%></option>
                              <%
			 end if
             next
			 rs.close
			 set rs=nothing
             %>
                            </select></td>
                        </tr>
                      </table>
                    <%
		end if
		%>
                  </td>
                </tr>
              </table></td>
            </tr>
          </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="end.asp" -->
</body>
</html>
