author_left.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<%
dim author_ID,author_name
author_ID=session("author_ID")
author_name=session("author_name")
If author_name="" or author_ID="" or IsNull(WordID) Then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 可能您还没有登陆或者登陆超时 ');location.href='author_log.asp?info=log';</script>")
	Response.End
End If
set rs=server.createobject("adodb.recordset")
sql="select * from [author] where author_ID="&author_ID&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户不存在。');history.back();</script>")
	Response.end
End If
If rs("author_addpost")=0 Then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 您的驻站申请尚未被管理员通过 \n\n 请先联系本站站长或管理员通过您的申请 ');location.href='author_log.asp?info=log';</script>")
	Response.End
End If
If rs("author_lock")=1 Then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 您的驻站权限被锁定不能发表新作 \n\n 请先联系本站站长或管理员帮您解锁 ');location.href='author_log.asp?info=log';</script>")
	Response.End
End If
rs.close
set rs=nothing
%><table cellspacing="1" cellpadding="4" width="98%" border="0" align="center">
	<tr align="middle">
		<td><a href="author_index.asp?info=index">控制中心</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_index.asp?info=profile">修改资料</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_book.asp?info=book_list">我的作品</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_book.asp?info=book_add">发表新作</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_index.asp?info=admin">管理专栏</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_log.asp?info=out">退出登录</a></td>
	</tr>
</table>