zfnews.asp

四通政府网站管理系统(绿色界面漂亮可供参考

<!--#include file="head.asp" -->
<%sub navigation()%>
&gt;&gt; 信息浏览 
<%end sub%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="780" height="10" bgcolor="#ffffff">
	<tr>		
      <td width="200" valign="top" background="images/leftbg.jpg">
	  <div align=center>
        <table border=0 cellpadding=0 cellspacing=0 width=199 height=133>
            <tr>
              <td height=33 ><img src='images/left02.jpg'></td>
            </tr>
        </table>
       </div>
<%
    Set rs = Server.CreateObject("ADODB.Recordset")
    id=request("id")

%>
       <div align=center>
         <TABLE class=sscss cellSpacing=0 cellPadding=0 width=148 border=0>
              <TBODY>
              <TR>
                <TD background=images/leftbg2.jpg height=36>
                  <DIV align=left><IMG height=20 src="images/icon3.jpg" 
                  width=20> <A 
                  href="zfnews.asp?id=<%=id%>&action=" 
                  target=_parent>部门介绍</A></DIV></TD></TR>
              <TR>
                <TD background=images/leftbg2.jpg height=36>
                  <DIV align=left><IMG height=20 src="images/icon2.jpg" 
                  width=20> <A 
                  href="zfnews.asp?id=<%=id%>&action=lingdao" 
                  target=_parent>领导班子</A></DIV></TD></TR>
              <TR>
                <TD background=images/leftbg2.jpg height=36>
                  <DIV align=left><IMG height=20 src="images/icon4.jpg" 
                  width=20> <A 
                  href="zfnews.asp?id=<%=id%>&action=jigou" 
                  target=_parent>内设机构</A></DIV></TD></TR>
              <TR>
                <TD background=images/leftbg2.jpg height=36>
                  <DIV align=left><IMG height=20 src="images/icon1.jpg" 
                  width=20> <A 
                  href="zfnews.asp?id=<%=id%>&action=banshi" 
                  target=_parent>办事项目</A></DIV></TD></TR>
              <TR>
                <TD background=images/leftbg2.jpg height=36><IMG 
                  height=20 src="images/icon5.jpg" width=20> <A 
                  href="zfnews.asp?id=<%=id%>&action=lianxi" 
                  target=_parent>联系方式</A></TD></TR></TBODY></TABLE>
             </div>
	  </td>						
      <td valign="top" width="580"> 
        <!--主要内容开始-->
        <%
    dim sql
    dim rs
    dim rstype
    dim typesql
    dim title
    ID=CheckStr(Request.QueryString("ID")) 
    If isInt(ID)=False OR Not IsNumeric(ID) Then
    Response.Redirect "index.asp" 
    Response.End()
    End If
	set rs=server.createobject("adodb.recordset")
	sql="update zf11_n_info set hits=hits+1 where ID="&ID&""
	rs.open sql,conn,1,3 
%>
        <%
sqla="select * from zf11_n_info where ID="&ID&""
Set Rsa=conn.execute (sqla)
if rsa.eof and rsa.bof then
response.Redirect("index.asp")
end if
ClassID=Rsa("Sort2")
SortID=Rsa("Sort1")
if ClassID<>0 then
sqlc="select * from zf11_navigation where ID="&ClassID&""
Set Rsc=conn.execute (sqlc)
if rsc.eof and rsc.bof then
response.Redirect("index.asp")
end if
Classname=Rsc("names")
B_ID=Rsc("B_ID")
sqls="select * from zf11_navigation where ID="&B_ID&""
Set Rss=conn.execute (sqls)
if Rss.eof and Rss.bof then
response.Redirect("index.asp")
end if
SortName=Rss("names")
end if
if ClassID=0 then
sqls="select * from zf11_navigation where ID="&SortID&""
Set Rss=conn.execute (sqls)
SortName=Rss("names")
end if
'Info=RsS("Info")
'Title = SortName & " >> " & Classname
%>
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="580" height="20" >
					<tr>
                      <TD width="100%" height="20" ><IMG height=45 src="images/tu01.jpg" width=580></TD>
					</tr>
				</table>
</div>
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="580" height="20" >
					<tr>
                      <TD width="50" height="20" ><DIV align=center><IMG height=17 src="images/bottom4.gif" width=18></DIV></TD>
				      <TD width="580" height="20" >您现在的位置：首页 >> <%=SortName%> >> <%=Classname%></TD>
					</tr>
				</table>
</div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
          <TR> 
            <TD vAlign=top align=left width="98%" id="Right_width" style="width:580px">
<%
    set rs=server.createobject("adodb.recordset")
    ID=request("id")
    IF ID = "" OR Not IsNumeric(ID) Then
    Response.Redirect("Index.asp")
    Response.End
    End IF
    sqltext="select top 1 * from zf11_n_info where Id="&ID&""
    rs.open sqltext,conn,1,1
    do while not rs.eof 
    InfoID=rs("Id")
    Discussion=rs("Discussion")
    Title=rs("Title")
%>

                    <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
                      <TBODY>
                        <TR> 
                          <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                              <TBODY>
                                <TR> 
                                  <TD> <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
                                <TBODY>
                                        
                                  <TR> 
                                    <TD height=30 width="100%" valign="bottom">
                                      <div align="center"><b><font size="4"><%=Title%></font></b></div></TD>
                                        </TR>
                                      </TBODY>
                                    </TABLE></TD>
                                </TR>
                                <TR> 
                                  <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                                      <TBODY>

                                        <TR> 
                                          <TD vAlign=top> 
<%
    if Request.Cookies(zf11_Sys)("Grade")="" then 
    Grade=0
    else 
    Grade=Request.Cookies(zf11_Sys)("Grade")+1
    end if
    if Grade>=RS("ReadGrade")  then 
	if request.querystring("action")="" then
    Call ReadContent()

    'Call Discu()

	end if
	end if
	if request.querystring("action")="lingdao" then
	call readlingdao()
    end if
	if request.querystring("action")="jigou" then
	call readjigou()
    end if
	if request.querystring("action")="banshi" then
	call readbanshi()
    end if	
	if request.querystring("action")="lianxi" then
	call readlianxi()
    end if	
	
%>
                                          </TD>
                                        </TR>
                                      </TBODY>
                                    </TABLE></TD>
                                </TR>
                              </TBODY>
                            </TABLE></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                    
              <TABLE width="100%" border=0 align=center cellPadding=0 cellSpacing=0>
                <TBODY>
                        
                  <TR> 
                    <TD height=34 align="right"> 
                     </TD>
                          
                    <TD width="41%" align="right">【<a href='News.asp'>返回</a>】 【<a href="javascript:window.scroll(0,-360)">顶部</a>】 
【<a href="javascript:self.close()">关闭</a>】</TD>
                        </TR>
                      </TBODY>
                    </TABLE>
<%       
    rs.movenext             
    loop
%>
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td height="8"> </td>
                      </tr>
                    </table>
			</TD>
          </TR>
        </TBODY>
      </TABLE></td>
  </tr>
</table>

<% sub ReadContent()%>
<hr size="1" width="90%">

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
		<tr>
			<td style='FILTER: DropShadow(Color=#cccccc, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>
			</td>
		</tr>
	</table>
</div>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="4">
<tr> 
<td width="100%" height="54" style="line-height: <%=zf11_line_H%>">
<%=RS("content")%>
</td>
</tr>
</table>
<% end sub %>
<% sub readlingdao()%>
<hr size="1" width="90%">

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
		<tr>
			<td style='FILTER: DropShadow(Color=#cccccc, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>
			</td>
		</tr>
	</table>
</div>

<table width="100%" border="0" align="center" cellpadding="5" cellspacing="4">
<tr> 
<td width="100%" height="54" style="line-height: <%=zf11_line_H%>">
<%=RS("lingdao")%>
</td>
</tr>
</table>
<% end sub %>
<% sub readjigou()%>
<hr size="1" width="90%">

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
		<tr>
			<td style='FILTER: DropShadow(Color=#cccccc, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>

			</td>
		</tr>
	</table>
</div>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="4">
<tr> 
<td width="100%" height="54" style="line-height: <%=zf11_line_H%>">
<%=RS("jigou")%>
</td>
</tr>
</table>
<% end sub %>
<% sub readbanshi()%>
<hr size="1" width="90%">

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
		<tr>
			<td style='FILTER: DropShadow(Color=#cccccc, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>

			</td>
		</tr>
	</table>
</div>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="4">
<tr> 
<td width="100%" height="54" style="line-height: <%=zf11_line_H%>">
<%=RS("banshi")%>
</td>
</tr>
</table>
<% end sub %>
<% sub readlianxi()%>
<hr size="1" width="90%">

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
		<tr>
			<td style='FILTER: DropShadow(Color=#cccccc, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>
	
			</td>
		</tr>
	</table>
</div>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="4">
<tr> 
<td width="100%" height="54" style="line-height: <%=zf11_line_H%>">
<%=RS("lianxi")%>
</td>
</tr>
</table>
<% end sub %>

<% sub ReadErro()%>
<br><br><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="32">
<div align="center"><font color="#FF0000">您的浏览权限不够！</font><br><br><br>
        这条信息要
<font color=red><%if rs("ReadGrade")=1 then%> 
本站注册用户
<%end if%>
<%if rs("ReadGrade")=2 then%> 
 高级会员
<%end if%>
</font>
才能游览！
</div></td>
</tr>
</table>
<% end sub %>
<!--主要内容结束-->
						</td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
	</table>
</div>

<!--#include file="foot.asp" -->