📄 zfnews.asp
字号:
<!--#include file="head.asp" -->
<%sub navigation()%>
>> 信息浏览
<%end sub%>
<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">
<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;">
<%
dim sqldp,Rsdp,dpnum,dpn,dpword
dpn=1
dpword=""
sqldp="select * from HX_DepartmentSort order by S_Order"
set Rsdp=server.createobject("adodb.recordset")
Rsdp.open sqldp,conn,1,1
if Rsdp.eof and Rsdp.bof then
response.write "<div align=center>还没有任何部门分类</div>"
else
dpnum=Rsdp.recordcount
do while not Rsdp.eof
if dpn=1 then
response.write "<SPAN class=IOTD_OFF id=IOTDT"&dpn&" onMouseOver=""PanShow('IOTD',"&dpn&","&dpnum&")"">"&Rsdp("Names")&"</SPAN>"
dpword=dpword&"<div id=IOTD"&dpn&" align=""center"" style=""width:794px;height:100px;border:1px #CC0000 solid;background:#FFFBF0;"" valign=""top""><IFRAME src=""linkbumengzx.asp?ID="&Rsdp("ID")&""" frameBorder=0 width=""99%"" scrolling=no height=""100""></IFRAME></div>"
else
response.write "<SPAN class=IOTD_OFF id=IOTDT"&dpn&" onMouseOver=""PanShow('IOTD',"&dpn&","&dpnum&")"">"&Rsdp("Names")&"</SPAN>"
dpword=dpword&"<div id=IOTD"&dpn&" style=""DISPLAY: none"" align=""center"" style=""width:794px;height:100px;border:1px #CC0000 solid;background:#FFFBF0;"" valign=""top""><IFRAME src=""linkbumengzx.asp?ID="&Rsdp("ID")&""" frameBorder=0 width=""99%"" scrolling=no height=""100""></IFRAME></div>"
end if
dpn=dpn+1
Rsdp.movenext
loop
Rsdp.Close
set Rsdp=nothing
response.write dpword
end if
%>
</div>
<!--主要内容开始-->
<%
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 HX_Department set hits=hits+1 where WS_Did="&ID&""
rs.open sql,conn,1,3
%>
<%
sqla="select * from HX_Department where WS_Did="&ID&""
Set Rsa=conn.execute (sqla)
if rsa.eof and rsa.bof then
response.Redirect("index.asp")
end if
ClassID=Rsa("Sort2")
Title=Rsa("WS_DepartmentName")
InfoID=Rsa("WS_Did")
Discussion=Rsa("Discussion")
content=Rsa("content")
ontent=Rsa("lingdao")
jigou=Rsa("jigou")
banshi=Rsa("banshi")
lianxi=Rsa("lianxi")
Rsa.close
set Rsa=nothing
sqlc="select * from HX_DepartmentSort 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")
Rsc.close
set Rsc=nothing
SortName="部门导航"
if request.querystring("action")="" then
text="部门介绍"
end if
if request.querystring("action")="lingdao" then
text="领导班子"
end if
if request.querystring("action")="jigou" then
text="内设机构"
end if
if request.querystring("action")="banshi" then
text="办事项目"
end if
if request.querystring("action")="lianxi" then
text="联系方式"
end if
'Info=RsS("Info")
Title1 = SortName & " >> " & Classname & " >> " & Title & " >> " & text
%>
<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" >您现在的位置：首页 >> <%=Title1%></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" >
<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.querystring("action")="" then
Call ReadContent()
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="javascript:history.back(-1)">返回</a>】 【<a href="javascript:window.scroll(0,-360)">顶部</a>】
【<a href="javascript:self.close()">关闭</a>】</TD>
</TR>
</TBODY>
</TABLE>
<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: <%=a125_line_H%>">
<%=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: <%=a125_line_H%>">
<%=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: <%=a125_line_H%>">
<%=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: <%=a125_line_H%>">
<%=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: <%=a125_line_H%>">
<%=lianxi%>
</td>
</tr>
</table>
<% end sub %>
<!--主要内容结束-->
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<!--#include file="foot.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -