linkbumengzx.asp

来自「带OA办公的动态源码网站」· ASP 代码 · 共 34 行

<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">
<div style="width:794px;height:100px;"> 
<%
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:95px;height:22px;"
else
widthbumeng="float:left;width:130px;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>