user_left.asp

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

<%
dim UserID,UserName
UserID=session("UserID")
UserName=session("UserName")
If UserName="" or UserID="" or IsNull(WordID) Then
	Response.Write ("<script>alert(' 操作错误 \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='userlog_login.asp';</script>")
	Response.End
End If
set rsu=server.createobject("adodb.recordset")
sql="select LockUser,GOGXuser from [User] where ID="&UserID&""
rsu.open sql,conn,1,1
if rsu.eof and rsu.bof then
	Response.Write ("<script>alert('   操作错误!\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
if rsu("LockUser")=1 then
	Response.Write ("<script>alert('   操作错误!\n\n 用户被锁定。');history.back();</script>")
	Response.end
End If
GOGXuser=rsu("GOGXuser")
%>
<table cellspacing="1" cellpadding="4" width="98%" border="0" align="center">
	<tr align="middle">
		<td><a href="User_index.asp"><font color="#1A53FF">控制中心</font></a></td>
	</tr>
	<tr align="middle">
		<td><a href="user_bookbox.asp"><font color="#1A53FF">我的收藏</font></a></td>
	</tr>
	<tr align="middle">
		<td><a href="user_duanxin.asp"><font color="#1A53FF">我的短信</font></a></td>
	</tr>
	<%if GOGXuser=1 then %>
	<tr align="middle">
		<td><a href="user_booklist.asp"><font color="#1A53FF">更新章节</font></a></td>
	</tr>
	<% end if%>
	<tr align="middle">
		<td><a href="user_bookroom.asp"><font color="#1A53FF">我的文集</font></a></td>
	</tr>
	<tr align="middle">
		<td><a href="user_modpassword.asp"><font color="#1A53FF">修改密码</font></a></td>
	</tr>
	<tr align="middle">
		<td><a href="user_modprofile.asp"><font color="#1A53FF">修改资料</font></a></td>
	</tr>
	<tr align="middle">
		<td><a href="user_logout.asp"><font color="#1A53FF">退出登录</font></a></td>
	</tr>
</table>
<table width="98%" height="90" border="0" cellpadding="4" cellspacing="1" align="center">
	<form name="form3" action="user_search.asp" method="post">
		<tr>
			<td class="head">&nbsp;&nbsp; <font color="#FFFFFF">输入书友昵称：</font> </td>
		</tr>
		<tr align="center">
			<td>
			<input name="nickname" type="text" class="but2" id="nickname" size="16"></td>
		</tr>
		<tr align="center">
			<td><input type="submit" name="Submit5" value="搜索"></td>
		</tr>
	</form>
</table>
<%rsu.close
set rsu=nothing%>