<% with xiao author=htmlencode(request("author")) sql="select * from [用户] where 姓名='"&author&"'" .rs.Open sql,.conn if .rs.eof or .rs.bof then error"

系统不存在该作者资料" end if authorname=.rs("姓名") id=.rs("id") arts=.rs("books") topics=.rs("book_topics") ainfo=.rs("简介") .rs.close end with %>

<%if nickname="" then%> <%else%> <%end if%>   用户：  密码：    注册     我的收藏夹   职务申请   我发表的书目   发布新书   作品连载   退出登录

<%if managemark=1 then%> <%end if%> >修改作者信息 最新作品 <%sql="select top 10 id,书名 from book_书目 where 原创='"&authorname&"' or 发表='"&authorname&"' order by 更新时间" rs1.open sql,conn,1,1 i=0 do while not rs1.eof and i<10 i=i+1%> <%rs1.movenext loop rs1.close %>   ><%=rs1("书名")%> >--全部作品--

<%=authorname%>        [共发表小说<%=arts%>部,更新章节<%=topics%>) 作者简介： <%=ainfo%> <%sql="select id,topic from book_visit where author='"&authorname&"' order by adddate desc" rs1.open sql,conn,1,1 i=0 Do While Not RS1.EOF i=i+1%> <%rs1.movenext loop rs1.close%> 作者专访 <%if managemark=1 then %>(>发表访谈)<%end if%> target=_blank><%=rs1("topic")%>

<%foot%>