印 像 新 闻 系 统
<%
dim rstype
dim rsbid
dim i
set rstype=server.CreateObject("adodb.recordset")
rstype.open "select * from [types] order by [row]",conn,1,1
i=1
Do While i<=10
%>
<a href="javascript:void(null)" onClick="MM_callJS(document.all.a<%=i%>.style.display=(document.all.a<%=i%>.style.display==\none\?\\:\none\))" style="font-weight:bold;color:#003399;">
<% response.Write (""&rstype("type")&"</a>")%>
</a><br>
<table width="200" border="0" cellspacing="0" cellpadding="0">
<tr id=a<%=i%> style="display:none">
<td width="20" height="20" align="center"> </td>
<td height="20">
·未审核会员<%=i%>(可换成主类下属的分类数据表的数据库！)
</td>
</tr>
</table>
<%
i=i+1
rstype.movenext
loop
%>
