user_bookroom.asp

小说站源代码文件

<%dim UserID,UserName
UserID=CheckSql(request.cookies("CnEndWeb_User")("log_UserID"))
UserName=CheckSql(request.cookies("CnEndWeb_User")("log_UserName"))
If UserName="" or UserID="" or IsNull(UserID) Then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='user_log.asp?info=in';</script>")
	Response.End
End If
set rsu=server.createobject("adodb.recordset")
sql="select ID,Name,LockUser,GOGXuser from Userinfo where ID="&UserID&""
rsu.open sql,conn,1,1
if rsu.eof and rsu.bof then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户不存在。');history.back();</script>")
	Response.end
End If
if rsu("LockUser")=1 then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户被锁定。');history.back();</script>")
	Response.end
End If
GOGXuser=rsu("GOGXuser")
UserID=rsu("ID")
UserName=rsu("Name")
rsu.close
set rsu=nothing

%><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="read_userbook.asp?id=<%=rsab("Ar_id")%>" target=_blank><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>