type.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<!--#include file="head.asp" -->
<%
    sub navigation()
    response.write " &gt;&gt; "
    response.write "文章类别"
    end sub
    
    Dim a125id
    a125id=CheckStr(Request.QueryString("a125id")) 
    If isInt(a125id)=False OR Not IsNumeric(a125id) Then
    Response.Redirect "index.asp" 
    Response.End()
    End If
    
    InfoSql="select a125_names,ID from a125_type where ID="&a125id
    Set InfoRs=Conn.Execute(InfoSql)
    B_names=Infors("a125_names")
    Infors.close
    set Infors=nothing
%>
	<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 a125_tianqi()%>
			</div>
		  <div align="center">
      <% Call a125_acticletype(15,a125id,B_names) %>              
      </div>
		   <div align="center">
			<% call a125_Search5() %>
       </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 a125_articleInfo(3,8,20,a125id,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">您现在的位置：首页 >> <%=B_names%></TD>
					  <TD align=middle height=36 width=11><img src="images/2/index_10.gif" width="11" height="36" alt=""></TD>
					</tr>
				</table>

<%

    '栏目统计---------
    set RsH=server.createobject("adodb.recordset")
    hit="update a125_type set hit=hit+1 where ID="&a125id
    RsH.open hit,conn,1,3
    '大类选取----------
    sql="select * from a125_type where ID="&a125id&""
    Set Rs=conn.execute (sql)
    if rs.eof and rs.bof then 
    response.redirect"index.asp"
    else
    Sortname=Rs("a125_names")
    SettingB=Rs("a125_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 a125_OnlyPage(SortName,Info)
	Case "4"
	  call sortpage()
	Case "3"
	  call pages()
	Case else
	  Call Mainsort()
    End Select
    '主程序-----------------
%></TD>
  </TR>
</TABLE>
<%
    sub Mainsort()
    Dim a125id
    dim sqlsort
    dim RsSort
	
    a125id=CheckStr(Request.QueryString("a125id")) 
    If isInt(a125id)=False OR Not IsNumeric(a125id) Then
    Response.Redirect "index.asp" 
    Response.End()
    End If

	sqlsort="select * from a125_type where a125_big_id<>0 and a125_setting < 4 and a125_big_id="&a125id&" order by a125_order"
	Set RsSort=conn.execute (sqlsort)
	if RsSort.eof and RsSort.bof then
	response.write "<div align=center>还没有任何栏目...</div>"
	else
	settingc=RsSort("a125_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?a125id=<%=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("a125_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("a125_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 a125_ShowInfo(6,6,46,RsSort("id"),1,"17","650","89") %>
</td>
</tr>
</table>
<%end if%>
<%  
    RsSort.movenext  
    loop  
    end if  
    RsSort.close  
%>

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

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

			</td>

		</tr>
	</table>
<!--#include file="foot.asp" -->
<SCRIPT language=javascript>
document.title="<%=B_names%>--<%=a125_title%>";
</SCRIPT>