listauthor_all.asp

来自「本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,」· ASP 代码 · 共 22 行

<%set rsShow=server.CreateObject("ADODB.Recordset")
sql = "select author_id,author_name from [Author] where author_lock=0 order by author_id desc"
rsShow.open sql,conn,1,1
%><div align="center">
	<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC" bordercolor="white">
	<tr height=30><td align=center width="100%" class="head" colspan="10">全部作家列表</td>
	<tr height=26>
<%
i=1 
do while not rsShow.eof %>
		<td align="left" width="10%"><a href="show_Author.asp?id=<%=rsShow("author_id")%>" target=_blank ><%=rsShow("author_name")%></a></td>
<%if i mod 10=0 then response.write "</tr><tr height=26>"
i=i+1
rsShow.movenext
loop
rsShow.close
set rsShow=nothing
%></tr>
</table>
</div>