type.asp

夏茂政府网站

<!--#include file="head.asp" -->
<%
    sub navigation()
    response.write " &gt;&gt; "
    response.write ""&Sortname&""
    end sub
%>
<div  align="left">
	<table border="0" cellpadding="0" cellspacing="0" width="996"  height="50"  bgcolor="#ffffff">
		<tr>
            <td width="216" valign="top" background="images/2/left_bg.gif">
            <div align="center">
			<%call zf11_tianqi()%>
			</div>
		   <div align="center">
			<% call zf11_Search5() %>
           </div>	   
           <div align="center">
			<% call zf11_login5()%>
           </div>
		   
            <div align="center"></div>
		   
            <div align="center">
            <TABLE cellSpacing=0 cellPadding=0 width=212 border=0>
              <TBODY>
              <TR>
                <TD align=middle height=30><img src="images/2/index_80.gif" width="206" height="30" alt=""></TD>
			  </TR>
              <TR>
                <TD align=middle height=200><% Call zf11_articleInfo(1,8,20,0,0) %></TD>
			  </TR>
			  </TBODY>
			</TABLE>
           </div>
		   
          </td>	
			<td width="780" valign="top">

	      <table border="0"  cellpadding="0"  cellspacing="0" width="780" height="160">
            <tr> 
              <td width="780">
<!--主要内容开始-->
<div align="left" >
				<table border="0" cellpadding="0" cellspacing="0" width="580" height="20" >
					<tr>
                      <TD width="100%" height="20" ><IMG height=45 src="images/2/class_top.gif" width=780></TD>
					</tr>
				</table>
</div>

				<table border="0" cellpadding="0" cellspacing="0" width="780" height="36" style="border-bottom:2px #ff9900 solid;">
					<tr>
					  <TD align=middle height=36 width=9><img src="images/2/index_06.gif" width="9" height="36" alt=""></TD>	
                      <TD width="30" height="36" background="images/2/index_08.gif"><DIV align=center><IMG height=17 src="images/bottom4.gif" width=18></DIV></TD>
				      <TD width="730" height="36" background="images/2/index_08.gif">您现在的位置：首页 >> <%=SortName%> >> <%=Classname%></TD>
					  <TD align=middle height=36 width=11><img src="images/2/index_10.gif" width="11" height="36" alt=""></TD>
					</tr>
				</table>

<%
    Dim zf11id
    zf11id=CheckStr(Request.QueryString("zf11id")) 
    If isInt(zf11id)=False OR Not IsNumeric(zf11id) Then
    Response.Redirect "index.asp" 
    Response.End()
    End If
    '栏目统计---------
    set RsH=server.createobject("adodb.recordset")
    hit="update zf11_type set hit=hit+1 where ID="&zf11id
    RsH.open hit,conn,1,3
    '大类选取----------
    sql="select * from zf11_type where ID="&zf11id&""
    Set Rs=conn.execute (sql)
    if rs.eof and rs.bof then 
    response.redirect"index.asp"
    else
    Sortname=Rs("zf11_names")
    SettingB=Rs("zf11_setting")
    Info=Rs("Info")
    Rs.close
    set Rs=nothing
    end if
    '分页
    page_count = 20
    MaxPerPage=Page_count 
    dim sql 
    dim rs
    dim gstBookID
    dim totalPut 
    dim CurrentPage
    dim TotalPages
    dim i,j
%>
<TABLE width=780 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TR>
    <TD vAlign=top align=left width=580><% 
    '主程序-----------------
    Select Case SettingB
	Case "5"
      call zf11_OnlyPage(SortName,Info)
	Case "4"
	  call sortpage()
	Case "3"
	  call pages()
	Case else
	  Call Mainsort()
    End Select
    '主程序-----------------
%></TD>
  </TR>
</TABLE>
<%
    sub Mainsort()
    Dim zf11id
    dim sqlsort
    dim RsSort
	
    zf11id=CheckStr(Request.QueryString("zf11id")) 
    If isInt(zf11id)=False OR Not IsNumeric(zf11id) Then
    Response.Redirect "index.asp" 
    Response.End()
    End If

	sqlsort="select * from zf11_type where zf11_big_id<>0 and zf11_setting < 4 and zf11_big_id="&zf11id&" order by zf11_order"
	Set RsSort=conn.execute (sqlsort)
	if RsSort.eof and RsSort.bof then
	response.write "<div align=center>还没有任何栏目...</div>"
	else
	settingc=RsSort("zf11_setting")
    if SettingB=1 then 
    '显示图文------
%>


<%
    end if 
    '显示图文完 开始列分类 ----------
    do while not RsSort.eof
%>

<div align="left">
				<table border="0" cellpadding="0" cellspacing="0"  width=780 height="20">
					<tr>
                      <TD width="100%" height="20">
			
							<table border="0" cellpadding="0" cellspacing="0"  width=100% height="32" id="table1" background="images/2/class_bg.gif">
								<tr>
									<td width="500" style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;&nbsp;&nbsp;<span style="letter-spacing: 3px"><%=RsSort(1)%></span></td>
									<td width="47" valign="middle"><a href="class_type.asp?zf11id=<%=RsSort(0)%>">
									<img border="0" src="images/more.gif"  width="45" height="10"></a></td>
									<td width="3">　</td>
								</tr>
							</table>
					
					  </TD>
					</tr>
				</table>
</div>
<!--单页-->
<% if RsSort("zf11_setting")=3 then%>
<TABLE style="border: 1px solid #CECFCE" bgcolor="#FFFFFF" cellSpacing=5 cellPadding=5 width="780" align=center border=0>

<TR> 
<TD  Valign="top"><%=RsSort("Info")%></TD>
</TR>

</TABLE>
<% end if %>
<!--end 单页-->
<% if RsSort("zf11_setting")<>3 then%>
<table  bgcolor="#FFFFFF" width="780" border="0" align="center" cellpadding="2" cellspacing="0">
<tr> 
<td width="1%" >

</td>
<td width="99%" valign="top"> 
<% Call zf11_ShowInfo(6,6,35,RsSort("id"),1) %>
</td>
</tr>
</table>
<%end if%>
<%  
    RsSort.movenext  
    loop  
    end if  
    RsSort.close  
%>

<%
    end sub
    '列分类完---------
%>



<!-- 主要内容结束-->
</td>
            </tr>
          </table>

			</td>

		</tr>
	</table>
</div>
<!--#include file="foot.asp" -->