<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="function.asp"-->
<!--#include file="char.inc"-->
<%
id=ChkRequest(CheckStr(Request("id")),1)  '防SQL注入

If id="" Then
	Response.Write "<script>alert('未指定参数');history.back()</script>"
	Response.End
Else
	If Not IsNumeric(id) then
		Response.Write "<script>alert('非法参数');history.back()</script>"
		Response.End
	Else
	    Dim E_Deptype,E_DepName
		Set RsDep=server.CreateObject("ADODB.RecordSet")
		RsDep.Source="select * from "& db_wygkcn_Dep_Table &" Where id="&id
		RsDep.Open rsDep.Source,Conn,1,1
		E_Deptype=RsDep("E_Deptype")
		E_DepName=RsDep("E_DepName")
		RsDep.Close
		Set RsDep=Nothing
	End if
End if		
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="<%=SiteDescription%>">
<meta name="keywords" content="<%=SiteKeywords%>">
<title><%=E_DepType%>_<%=E_DepName%>_<%=eChSys_Com%></title>
<LINK href="CSS/Wygkcn_Home.css" rel="stylesheet">
<LINK href="CSS/Wygkcn_News.css" rel="stylesheet">
<noscript><iframe scr="*"></iframe></noscript>
<script language="JavaScript1.2">
<!--
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}

function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</head>
<body>
<!--内容部分开始-->
<div id="EC_Content">
<!--#include file="Dep_Top.asp"-->
<%
        Dim DepIntroduce,DepFunction,DepOrg,DepLead,DepContact,depid

        Id=ChkRequest(CheckStr(Request("id")),1)  '防SQL注入
		
		Set RsDep=server.CreateObject("ADODB.RecordSet")
		Sql="select * from "& db_wygkcn_Dep_Table &" Where id="&id
		RsDep.Open Sql,Conn,1,1
		Depid=rsDep("id")
		E_Deptype=RsDep("E_Deptype")
		E_Depname=RsDep("E_Depname")
		DepIntroduce=RsDep("DepIntroduce")
		DepFunction=RsDep("DepFunction")
		DepOrg=RsDep("DepOrg")
		DepLead=RsDep("DepLead")
		DepContact=RsDep("DepContact")
		RsDep.Close
		Set RsDep=Nothing
		
%>
<!--中间内容部分开始-->
<div id="zl_center">
<!--左边部分开始-->
<div class="zl_left float_left">
<div class="E_c_dl_dh">
<H3><SPAN class=more><a href="wygkcn_Alldep.asp" target="_blank"><img src="Images/w_more.gif" alt="更多部门" width="28" height="9" border="0" /></a></SPAN><%=E_deptype%></H3>
<DIV class=E_c_dl_name>
<ul>
<li><a href="Dep_Index.asp?id=<%=id%>&action=DepIntroduce">单位概况</a></li>
<li><a href="Dep_Index.asp?id=<%=id%>&action=DepFunction">职能职责</a></li>
<li><a href="Dep_Index.asp?id=<%=id%>&action=DepOrg">组织机构</a></li>
<li><a href="Dep_Index.asp?id=<%=id%>&action=DepLead">领导分工</a></li>
<li><a href="Dep_News.asp?id=<%=id%>&action=DepNews">单位稿件</a></li>
<li><a href="Dep_Index.asp?id=<%=id%>&action=DepContact">联系方式</a></li>
</ul>
</div>
</div>
<div class="new_art lianmu_bg">
<H3>推荐部门文章</H3>
<DIV class=new_art_list>
<ul class=list>
<%
set rs3=server.CreateObject("ADODB.RecordSet")
	if uselevel=1 then
		if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
		rs3.Source ="select top 8 * from "& db_wygkcn_Article_Table &" where  Checked=1 and Depid="& Depid &" order by EC_ArticleID DESC"
		end if
		if Request.cookies(eChuang)("key")="" then
			rs3.Source ="select top 8 * from "& db_wygkcn_Article_Table &" where  Checked=1 and goodnews=1 and newslevel=0 and Depid="& Depid &"  order by EC_ArticleID DESC"
		end if
		if Request.cookies(eChuang)("key")="selfreg" then
			if Request.cookies(eChuang)("reglevel")=3 then
				rs3.Source ="select top 8 * from "& db_wygkcn_Article_Table &" where  Checked=1 and goodnews=1   and Depid="& Depid &"  order by EC_ArticleID DESC"
			end if
			if Request.cookies(eChuang)("reglevel")=2 then
				rs3.Source ="select top 8 * from "& db_wygkcn_Article_Table &" where  Checked=1  and goodnews=1 and Depid="& Depid &"  order by EC_ArticleID DESC"
			end if
			if Request.cookies(eChuang)("reglevel")=1 then
				rs3.Source ="select top 8 * from "& db_wygkcn_Article_Table &" where  Checked=1  and goodnews=1 and Depid="& Depid &" order by EC_ArticleID DESC"
			end if
		end if
	else
		rs3.Source ="select top 8 * from "& db_wygkcn_Article_Table &" where  Checked=1 and goodnews=1 and Depid="& Depid &" order by EC_ArticleID DESC"
	end if
rs3.Open rs3.Source,conn,1,1
	if not rs3.EOF then
		while not rs3.EOF
			fileExt=lcase(getFileExtName(rs3("picname")))
			Content=htmlencode4(rs3("Content"))
			%>
<li>
·<a href="wygkcn_ShowArticle.asp?EC_ArticleID=<%=rs3("EC_ArticleID")%>" target="_blank" title="<%=htmlencode4(rs3("title"))%>"><%=CutStr(htmlencode4(rs3("title")),40)%></a>
</li>
<%
rs3.MoveNext
wend
else
Response.Write "<li>·暂无推荐文章</li>"
end if
rs3.close
set rs3=nothing
%>
</ul>
</div>
</div>


</div>
<!--左边部分结束-->

<!--右边部分开始-->
<div class="zl_right float_right">

<!--位置导航部分开始-->
<div class="position">
<img src="Images/lm_dot.gif" width="11" height="11">&nbsp;&nbsp;您的位置&nbsp;&nbsp;<a href="./" >首页</a> >> <%=E_deptype%> >>
<% if request.querystring("action")="DepIntroduce" or request.querystring("action")=""then%>单位概况<%end if%>
<%if request.querystring("action")="DepFunction" then%>职能职责<%end if%>
<%if request.querystring("action")="DepOrg" then%>组织机构<%end if%>
<%if request.querystring("action")="DepLead" then%>领导分工<%end if%>
<%if request.querystring("action")="DepNews" then%>单位稿件<%end if%>
<%if request.querystring("action")="DepContact" then%>联系方式<%end if%>
</div>
<!--位置导航部分结束-->

<!--列表部分开始-->
<div class=class_listcnt>

<div class="class_list1 lm_class_bg">
<H4>
<% if request.querystring("action")="DepIntroduce" or request.querystring("action")=""then%>单位概况<%end if%>
<%if request.querystring("action")="DepFunction" then%>职能职责<%end if%>
<%if request.querystring("action")="DepOrg" then%>组织机构<%end if%>
<%if request.querystring("action")="DepLead" then%>领导分工<%end if%>
<%if request.querystring("action")="DepNews" then%>单位稿件<%end if%>
<%if request.querystring("action")="DepContact" then%>联系方式<%end if%>
</H4>
<% 
    if request.querystring("action")="DepIntroduce" or request.querystring("action")=""then
	call Introduce()
    end if
	if request.querystring("action")="DepFunction" then
	call Dep_Function()
    end if
	if request.querystring("action")="DepOrg" then
	call Org()
    end if	
	if request.querystring("action")="DepLead" then
	call Lead()
    end if	
	if request.querystring("action")="DepNews" then
	call News()
    end if	
	if request.querystring("action")="DepContact" then
	call Contact()
    end if	
%>
<% Sub Introduce() %>	
<div class=dep_cnt><%=DepIntroduce%></div>
<%End Sub%>	

<%Sub Dep_Function()%>	
<div class=dep_cnt><%=DepFunction%></div>
<%End Sub%>	

<%Sub Org()%>	
<div class=dep_cnt><%=DepOrg%></div>
<%End Sub%>	

<%Sub Lead()%>	
<div class=dep_cnt><%=DepLead%></div>
<%End Sub%>	

<%Sub Contact()%>	
<div class=dep_cnt><%=DepContact%></div>
<%End Sub%>	
</div>
</div>
<!--列表部分结束-->
</div>
<!--右边部分结束-->
<div class=clear_float></div><!--清除浮动属性-->
</div>
<!--中间内容部分结束-->
<!--#include file="bottom.asp"-->
</div>
<!--内容部分结束-->
</body>
</HTML>    