user_bookroom.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
	<tr bgcolor="#588fc7">
		<td colspan="4" class="head"><font color="#FFFFFF">我的文集</font></td>
		<td colspan="4" align="right" class="head"><a href="user_bookroomadd.asp"><font color="#FFFFFF">发表文章</font></a></td>
	</tr>
	<tr bgcolor="#ffffff">
		<td colspan="8">
		<table width="100%" align="center" cellspacing="0">
			<%
set rsab=server.createobject("adodb.recordset")
sqlab="select * from [Article] where Ar_userid="&UserID&" order by Ar_id desc"
rsab.open sqlab,conn,1,1
if rsab.eof and rsab.bof then
%>
			<tr align="center" valign="middle">
				<td height="24" colspan="6" class="style1"><b>您暂时没有发表文章.</b></td>
			</tr>
			<%else%>
			<tr valign="middle">
				<td align="center" height="24"><b>作品名称</b></td>
				<td width="20%" align="center"><b>状态</b></td>
			</tr>
			<%do while not rsab.eof%>
			<tr valign="middle">
				<td height="24">&nbsp;<a title="点击修改" href="user_bookroomedit.asp?id=<%=rsab("Ar_id")%>"><font color="#006600"><%=rsab("Ar_name")%></font></a></td>
				<td align="center"><%if rsab("Ar_nolook")=1 then response.write"私密作品&nbsp;&nbsp;" end if%><%if rsab("Ar_lock")=1 then response.write"未通过审核&nbsp;&nbsp;" end if%><a href="user_bookroomedit.asp?id=<%=rsab("Ar_id")%>">修改</a></td>
			</tr>
			<%
rsab.movenext
loop
rsab.close
set rsab=nothing
%><%end if%></table>
		</td>
	</tr>
</table>