linkbumeng.asp

夏茂政府网站

<%@ LANGUAGE = VBScript.Encode %>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="include/setting.asp" -->
<!--#include file="include/Conn.asp" -->

<link href="other/zf11_style.css" rel="stylesheet" type="text/css">
<div style="width:587px;height:130px;"> 
<%
ID=Request.QueryString("ID")
sql="select * from zf11_n_info where Sort2="&ID&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
if ID=6 then %>
<div style="float:left;width:114px;height:22px;"><a target="_top" class=news href="zfnews.asp?id=<%=rs("ID")%>"><%=rs("title")%></a></div>
<%else%>
<div style="float:left;width:143px;height:22px;"><a target="_top" class=news href="zfnews.asp?id=<%=rs("ID")%>"><%=rs("title")%></a></div>
<%end if
rs.movenext
loop
if rs.eof and rs.bof then%><option value="0">当前没有分类</option>
<%end if%>
</div>