author_left.asp

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

<%
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(' 操作错误 \n\n 可能您还没有登陆或者登陆超时 ');location.href='authorlog_login.asp';</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('   操作错误!\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
If rs("author_addpost")=0 Then
	Response.Write ("<script>alert(' 操作错误 \n\n 您的驻站申请尚未被管理员通过 \n\n 请先联系本站站长或管理员通过您的申请 ');location.href='authorlog_login.asp';</script>")
	Response.End
End If
If rs("author_lock")=1 Then
	Response.Write ("<script>alert(' 操作错误 \n\n 您的驻站权限被锁定不能发表新作 \n\n 请先联系本站站长或管理员帮您解锁 ');location.href='authorlog_login.asp';</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">控制中心</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_modpassword.asp">修改密码</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_modprofile.asp">修改资料</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_booklist.asp">我的作品</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_bookadd.asp">发表新作</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_booklist.asp">增加章节</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_admin.asp">管理专栏</a></td>
	</tr>
	<tr align="middle">
		<td><a href="author_logout.asp">退出登录</a></td>
	</tr>
</table>