linkbumeng.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="include/setting.asp" -->
<!--#INCLUDE FILE="HXINCLUDE/datapath.ASP"-->
<!--#include file="include/Conn.asp" -->
<link href="include/a125_style.css" rel="stylesheet" type="text/css">
<SCRIPT Language="JavaScript">
<!--
function openWin(url)
{window.open(url,"","");};
//-->
</SCRIPT>
<div style="width:587px;height:130px;"> 
<%
ID=Request.QueryString("ID")
sql="select WS_Did,Sort2,WS_DepartmentName,way,url from HX_Department where Sort2="&ID&" and way>0 order by WS_OrderBy"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
if ID=6 then
widthbumeng="float:left;width:114px;height:22px;"
else
widthbumeng="float:left;width:143px;height:22px;"
end if
if rs("way")=1 then
urlbumeng="zfnews.asp?id="&rs("WS_Did")
targetbumeng="target='_top'"
end if
if rs("way")=2 then 
urlbumeng="javaScript:openWin('"&rs("url")&"')"
targetbumeng=""
end if
response.write "<div style='"&widthbumeng&"'><a class=news href="""&urlbumeng&""" "&targetbumeng&">"&rs("WS_DepartmentName")&"</a></div>"
rs.movenext
loop
if rs.eof and rs.bof then
response.write "<option value=""0"">当前没有分类</option>"
end if
%>
</div>