📄 zfnews.asp
字号:
<!--#include file="head.asp" -->
<%sub navigation()%>
>> 信息浏览
<%end sub%>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="996" height="10" bgcolor="#ffffff">
<tr>
<td width="200" valign="top" background="images/2/left_bg2.gif">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=199 height=78>
<tr>
<td height=33 ><img src='images/2/left04.gif'></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 bgcolor="#FEF1CF" border=0>
<TBODY>
<TR>
<TD bgcolor="#FEF1CF" height=36>
<DIV align=left><IMG height=20 src="images/icon3.gif"
width=20> <A
href="zfnews.asp?id=<%=id%>&action="
target=_parent>部门介绍</A></DIV></TD></TR>
<TR>
<TD height=36>
<DIV align=left><IMG height=20 src="images/icon2.gif"
width=20> <A
href="zfnews.asp?id=<%=id%>&action=lingdao"
target=_parent>领导班子</A></DIV></TD></TR>
<TR>
<TD height=36>
<DIV align=left><IMG height=20 src="images/icon4.gif"
width=20> <A
href="zfnews.asp?id=<%=id%>&action=jigou"
target=_parent>内设机构</A></DIV></TD></TR>
<TR>
<TD height=36>
<DIV align=left><IMG height=20 src="images/icon1.gif"
width=20> <A
href="zfnews.asp?id=<%=id%>&action=banshi"
target=_parent>办事项目</A></DIV></TD></TR>
<TR>
<TD height=36><IMG
height=20 src="images/icon5.gif" width=20> <A
href="zfnews.asp?id=<%=id%>&action=lianxi"
target=_parent>联系方式</A></TD></TR></TBODY></TABLE>
</div>
</td>
<td valign="top" width="796">
<!--主要内容开始-->
<%
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="left">
<table border="0" cellpadding="0" cellspacing="0" width="796" height="20" >
<tr>
<TD width="100%" height="20" ><IMG height=45 src="images/2/class_top3.gif" width=796></TD>
</tr>
</table>
</div>
<SCRIPT>
function PanShow(objname,curid,maxid)
{
for(var i=1;i<=maxid;i++)
{
var obj=document.getElementById(objname+i);
obj.style.display="none";
var objtitle=document.getElementById(objname+"T"+i);
objtitle.className=objname+"_OFF";
}
var obj=document.getElementById(objname+curid);
obj.style.display="";
var objtitle=document.getElementById(objname+"T"+curid);
objtitle.className=objname+"_ON";
}
</SCRIPT>
<div style="margin-top:5px;margin-bottom:5px;width:794;height:100px;background:#FFFBF0;">
<SPAN
class=IOTD_ON id=IOTDT1 onMouseOver="PanShow('IOTD',1,4)" style="float:left;margin-right:5px;"><img src="images/2/index_96.gif" width="89" height="20" border="0" alt=""></SPAN><SPAN
class=IOTD_OFF id=IOTDT2 onMouseOver="PanShow('IOTD',2,4)" style="float:left;margin-right:5px;"><img src="images/2/index_98.gif" width="59" height="20" border="0" alt=""></SPAN><SPAN
class=IOTD_OFF id=IOTDT3 onMouseOver="PanShow('IOTD',3,4)" style="float:left;margin-right:5px;"><img src="images/2/index_100.gif" width="58" height="20" border="0" alt=""></SPAN><SPAN
class=IOTD_OFF id=IOTDT4 onMouseOver="PanShow('IOTD',4,4)" style="float:left;margin-right:5px;"><img src="images/2/index_102.gif" width="58" height="20" border="0" alt=""></a></SPAN>
<div id=IOTD1 align="center" style="width:794px;height:100px;border:1px #000000 solid;background:#FFFBF0;" valign="top"><IFRAME src="linkbumengzx.asp?ID=2" frameBorder=0 width="99%" scrolling=no height=100></IFRAME></div>
<div id=IOTD2 style="DISPLAY: none" align="center" style="width:794px;height:100px;border:1px #000000 solid;background:#FFFBF0;"><IFRAME src="linkbumengzx.asp?ID=4" frameBorder=0 width="98%" scrolling=no height=100></IFRAME></div>
<div id=IOTD3 style="DISPLAY: none" align="center" style="width:794px;height:100px;border:1px #000000 solid;background:#FFFBF0;"><IFRAME src="linkbumengzx.asp?ID=5" frameBorder=0 width="99%" scrolling=no height=100></IFRAME></div>
<div id=IOTD4 style="DISPLAY: none" align="center" style="width:794px;height:100px;border:1px #000000 solid;background:#FFFBF0;"><IFRAME src="linkbumengzx.asp?ID=6" frameBorder=0 width="99%" scrolling=no height=100></IFRAME></div>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="796" 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" >
<%
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" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -