topic.asp

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

<div align="center" style="margin-top:5px;">
     <TABLE cellSpacing=0 cellPadding=0 width=212 border=0>
       <TBODY>
        <TR>
         <TD align=middle height=30><img src="images/2/index_51.gif" width="206" height="30" alt=""></TD>
			  </TR>
        <TR>
          <TD align=middle height=60>
<div style="width:212px;height:130px;" align="center"> 
<%
sqltopic="select top 9 ID,a125_names,Istopic,topicpic from a125_type where a125_setting=1 and Istopic=true order by a125_order " 
set rstopic=server.createobject("adodb.recordset")
rstopic.open sqltopic,conn,1,1
do while not rstopic.eof
%>
<div style='float:left;width:70px;height:67px;'>
			<table cellspacing=0 cellpadding=0 width=70 border=0>
			<tr>
			<td align=center height=45 align=center><img src="images/Subject_<%=rstopic("ID")%>.gif" width="60" height="40"></td>
			</tr>
			<tr>
			<td align=center height=22><A href="class_type.asp?a125id=<%=rstopic("ID")%>"><%=rstopic("a125_names")%></A></td>
			</tr>
			</table>
</div>
<%	
rstopic.movenext
loop
if rstopic.eof and rstopic.bof then
response.write "<option value=""0"">当前没有主题</option>"
end if
%>
</div> 
				  </TD>
			  </TR>
			  </TBODY>
			</TABLE>
    </div>