user_index.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where ID="&UserID&""
rs.open sql,conn,1,1
%><table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
	<tr bgcolor="#588fc7">
		<td colspan="4" class="head"><font color="#FFFFFF">欢迎 <%=Username%> 来到会员控制台</font></td>
	</tr>
	<tr bgcolor="#ffffff">
		<td colspan="4">在这里你可以查看你所收藏的文章,修改登陆密码及修改你的个人资料.</td>
	</tr>
	<% set rsu=server.CreateObject("ADODB.RecordSet")  '  where ID="&UserID&""
           rsu.open "select id from [User] order by UserPoint desc",conn,1,1
           i=0
           do while not rsu.eof
            i=i+1
            if rsu("ID")=UserID then exit do
             rsu.movenext
             loop
             my=i
        %>
	<tr bgcolor="#588fc7">
		<td colspan="4" class="head"><font color="#FFFFFF">资料与统计 [ 您现在的积分排名是：第 <%=my%> 
		位 ]</font></td>
	</tr>
	<%rsu.close
		  set rsu=nothing
		%>
	<tr bgcolor="#ffffff">
		<td width="25%">你的注册Email:</td>
		<td width="25%"><%=rs("Email")%></td>
		<td width="25%">你的注册ID号:</td>
		<td width="25%"><%=rs("ID")%></td>
	</tr>
	<tr bgcolor="#dfefff">
		<td>你注册的日期:</td>
		<td><%=rs("ADDDate")%></td>
		<td>最后登陆日期:</td>
		<td><%=rs("LoginTime")%></td>
	</tr>
	<tr bgcolor="#ffffff">
		<td>你登陆的次数:</td>
		<td><%=rs("LoginTimes")%></td>
		<td>你现在的等级:</td>
		<td><%=rs("UserLevel")%> 级</td>
	</tr>
	<tr bgcolor="#dfefff">
		<td>你现在的积分:</td>
		<td><%=rs("UserPoint")%></td>
		<td>你现在的权限:</td>
		<td><%if rs("IsVipUser")=0 then  response.write("注册会员") end if%> <%if rs("IsVipUser")=1 then  response.write("VIP 会员") end if%>
		<%if rs("GOauthor")=1 then  response.write("  驻站作家") end if%> <%if rs("GOGXuser")=1 then  response.write(" 作品更新员") end if%></td>
	</tr>
	<tr>
		<td>你的日推荐数:</td>
		<td><%=rs("userVoteCount")%> 剩余:<%=rs("VoteCount")%></td>
		<td>你藏书架的数目:</td>
		<td>总量:<%=rs("userboxnum")%> 剩余:<%=rs("boxnum")%> </td>
	</tr>
	<tr bgcolor="#dfefff">
		<%if rs("IsVipUser")=1 then
							response.write("<td >你的金币数:</td><td >剩余:"&rs("Usermene")&"</td>")%>
		<%end if%> <%if rs("GOauthor")=1 then
							response.write("<td >你发表的作品数:</td><td >"&rs("UserGrade")&"</td>")%>
		<%end if%>
	</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
	<form action="change.asp" method="post">
		<tr bgcolor="#dfefff">
			<td width="8%" height="27" align="center">积分：</td>
			<td width="17%">
			<input name="jf" type="text" class="but2" id="jf" size="15"></td>
			<td width="25%" align="center">
			<input name="Submit" type="submit" id="Submit" value="换取藏书"></td>
			<td width="50%">转换为藏书数，积分每<%=Pointtoboxnum%>分可交换藏书1部</td>
		</tr>
	</form>
	<form action="change2.asp" method="post">
		<tr>
			<td align="center">积分：</td>
			<td><input name="jf" type="text" class="but2" id="jf" size="15"></td>
			<td align="center">
			<input name="Submit6" type="submit" id="Submit2" value="换取短信"></td>
			<td>转换为短信数，积分每<%=Pointtomessenge%>分可交换短信1条</td>
		</tr>
	</form>
	<form action="change3.asp" method="post">
		<tr bgcolor="#dfefff">
			<td align="center">积分：</td>
			<td><input name="jf" type="text" class="but2" id="jf" size="15"></td>
			<td align="center">
			<input name="Submit6" type="submit" id="Submit2" value="换取金币"></td>
			<td>转换为金币，积分每<%=Pointtomene%>分可交换1金币</td>
		</tr>
	</form>
	<form action="change1.asp" method="post">
		<tr>
			<td align="center">积分：</td>
			<td><input name="jf" type="text" class="but2" id="jf" size="15"></td>
			<td align="center">
			<input name="Submit6" type="submit" id="Submit2" value="换推荐票"></td>
			<td>转换为推荐票，积分每<%=PointtoVoteCount%>分可交换1推荐票</td>
		</tr>
	</form>
	<form action="change4.asp" method="post">
		<tr bgcolor="#dfefff">
			<td align="center">积分：</td>
			<td><input name="jf" type="text" class="but2" id="jf" size="15"></td>
			<td align="center">
			<input name="Submit6" type="submit" id="Submit2" value="换广告票"></td>
			<td>转换为广告票，积分每<%=PointtoAcdCount%>分可交换1广告票</td>
		</tr>
	</form>
</table><%rs.close
set rs=nothing
conn.close
set conn=nothing
%>