📄 typenews.asp

📁 夏茂政府网站
💻 ASP
字号:
<!--#include file="head.asp" -->
<%sub navigation()%>
&gt;&gt; 信息浏览 
<%end sub%>


<div align="left">
	<table border="0" cellpadding="0" cellspacing="0" width="996" height="10" bgcolor="#ffffff">
	<tr>
	  
			<td width="216" valign="top" bgcolor="#FEF1CF" >
		   
            <div align="center">
			<%call zf11_tianqi()%>
			</div>
		   <div align="center">
			<% call zf11_Search5() %>
           </div>	   
           <div align="center">
			<% call zf11_login5()%>
           </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 valign="top" width="780"> 
        <!--主要内容开始-->
        <%
    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 Info set hits=hits+1 where ID="&ID&""
	rs.open sql,conn,1,3 
%>
        <%
sqla="select * from 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_type where ID="&ClassID&""
Set Rsc=conn.execute (sqlc)
if rsc.eof and rsc.bof then
response.Redirect("index.asp")
end if
Classname=Rsc("zf11_names")
zf11_big_id=Rsc("zf11_big_id")
sqls="select * from zf11_type where ID="&zf11_big_id&""
Set Rss=conn.execute (sqls)
if Rss.eof and Rss.bof then
response.Redirect("index.asp")
end if
SortName=Rss("zf11_names")
end if
if ClassID=0 then
sqls="select * from zf11_type where ID="&SortID&""
Set Rss=conn.execute (sqls)
SortName=Rss("zf11_names")
end if
'Info=RsS("Info")
'Title = SortName & " >> " & Classname
%>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <TR>
          <TD width=15 height=15><IMG height=15 src="images/1/k2_1a.gif" 
            width=15></TD>
          <TD background=images/1/k2_1b.gif height=15><IMG height=15 
            src="images/space.gif" width=1></TD>
          <TD width=15 height=15><IMG height=15 src="images/1/k2_1c.gif" 
            width=15></TD>
        </TR>
		
      
        <tr>
        <TD width=10 background=images/1/k2_2a.gif><IMG height=1 src="images/space.gif" width=15></TD>
          <td>
		<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
		<tr><td>
	<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
          <TR> 
            <TD vAlign=top align=left width="100%" id="Right_width" s>
<%
    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 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 
    Call ReadContent()
    'Call Discu()
    else
    Call ReadErro()
    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'>
			<p align="center">录入：<font color="#FF0000"><%=rs("author")%></font>&nbsp;&nbsp;<a href="http://<%=zf11_http%>" target=_blank><%=zf11_http%></a>
&nbsp;&nbsp;<%=rs("date")%>&nbsp;&nbsp;人气：<font color="#FF0000"><%=rs("hits")%></font> 
			</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 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>
	  
        <TD width=15 background=images/1/k2_2c.gif><IMG height=1 src="images/space.gif" width=15></TD>

		</tr>
        <TR>
          <TD width=15><IMG height=15 src="images/1/k2_3a.gif" width=15></TD>
          <TD background=images/1/k2_3b.gif height=15><IMG height=15 src="images/space.gif" width=1></TD>
          <TD width=15 height=15><IMG height=15 src="images/1/k2_3c.gif"  width=15></TD></TR></TBODY></TABLE></TD>
		</TR>
   
	</table>
</td></tr></TABLE>
<!--主要内容结束-->

</div>

<!--#include file="foot.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -