📄 user_index.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
info=request.querystring("info")
if info="" then
info="index"
end if
Select Case info
Case "index"
Call index()
Case "profile"
Call profile()
Case "box"
Call box()
Case "pm"
Call pm()
Case "gxuser"
Call gxuser()
end select
Sub index()
set rs=server.createobject("adodb.recordset")
sql="select * from [Userinfo] 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")
rsu.open "select UserPoint from [Userinfo] where ID="&UserID&"",conn,1,1
my=rsu("UserPoint")
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.open "select count(*) as result from [Userinfo] where UserPoint>="&my,conn,1
%>
<tr bgcolor="#588fc7">
<td colspan="4" class="head"><font color="#FFFFFF">资料与统计 [ 您现在的积分排名是：第 <%=rs1("result")%>
位 ]</font></td>
</tr>
<%rsu.close
set rsu=nothing
rs1.close
set rs1=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("userAcdCount")%> 剩余:<%=rs("AcdCount")%></td>
</tr>
<tr bgcolor="#dfefff">
<td>你藏书架的数目:</td>
<td>总量:<%=rs("userboxnum")%> 剩余:<%=rs("boxnum")%> </td>
<%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="User_save.asp?info=change" 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="User_save.asp?info=change2" 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="User_save.asp?info=change3" 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="User_save.asp?info=change1" 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="User_save.asp?info=change4" 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
end sub
Sub profile()
set rs=server.createobject("adodb.recordset")
sql="select * from [Userinfo] where ID="&UserID&""
rs.open sql,conn,1,1
%>
<table cellspacing="0" cellpadding="0" width="100%" bgcolor="#ffffff" border="0">
<form name="form" onsubmit="return process_data(this)" method="post" action="user_save.asp?info=profile">
<tr>
<td>
<table cellspacing="1" cellpadding="4" width="100%" border="0">
<tr>
<td bgcolor="#588fc7" colspan="3" class="head"><font color="#FFFFFF"><b>修改密码</b></font></td>
</tr>
<tr bgcolor="#ffffff">
<td valign="top">旧密码:</td>
<td valign="top" width="60%" colspan="2">
<input type="password" maxlength="50" size="45" value name="oldpassword" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE">
输入旧的密码，若不正确则不能成功修改</td>
</tr>
<tr bgcolor="#dfefff">
<td valign="top">新密码:</td>
<td valign="top" width="60%" colspan="2">
<input type="password" maxlength="50" size="45" value name="newpassword1" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE">
如不需要更改密码，此处请留空</td>
</tr>
<tr bgcolor="#dfefff">
<td valign="top">确认新密码:</td>
<td valign="top" width="60%" colspan="2">
<input type="password" maxlength="50" size="45" value name="newpassword2" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE">
如不需要更改密码，此处请留空</td>
</tr>
<tr>
<td bgcolor="#588fc7" colspan="3" class="head"><font color="#FFFFFF"><b>资料修改必填选项</b>,带*的均为必填选项,除用户名外,其它所有选项均为保密.</font></td>
</tr>
<tr bgcolor="#ffffff">
<td width="20%">用户名:
</td>
<td width="30%">
<input maxlength="16" name="username" disabled value="<%=rs("UserName")%>" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE" size="25">
</td>
<td width="50%"> *用户名长度<font face="Times New Roman">6-16</font>字符，可使用英文字母、数字，第一位不得为数字。
</td>
</tr>
<tr bgcolor="#dfefff">
<td>
<p>Email地址:
</p>
</td>
<td>
<input maxlength="50" value="<%=rs("email")%>" onchange="javascript:this.value=this.value.toLowerCase();" size="38" name="email" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE"></td>
<td> *50个字符以内,请如实填写,以保证身份验证通过和取回密码。</td>
</tr>
<tr bgcolor="#dfefff">
<td>重复确认Email地址:</td>
<td>
<input maxlength="50" value="<%=rs("email")%>" onchange="javascript:this.value=this.value.toLowerCase();" size="38" name="email2" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE"></td>
<td> *请再输入Email地址。</td>
</tr>
<tr valign="top" bgcolor="#dfefff">
<td nowrap>性别:</td>
<td>
<input type="radio" name="usersex" value="先生" <%if rs("sex")="先生" then response.write"checked" end if%>>
男
<input type="radio" name="usersex" value="女士" <%if rs("sex")="女士" then response.write"checked" end if%>>
女 </td>
<td> *请输入您的性别</td>
</tr>
<tr>
<td bgcolor="#588fc7" colspan="3" class="head"><font color="#FFFFFF"><b>选填选项</b></font></td>
</tr>
<tr valign="top" bgcolor="#dfefff">
<td>Qq号码:</td>
<td>
<input value="<%=rs("qq")%>" maxlength="15" name="qq" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE" size="30"></td>
<td>请填写您的 QQ号码。</td>
</tr>
<tr valign="top" bgcolor="#ffffff">
<td>Msn号码:</td>
<td>
<input value="<%=rs("msn")%>" maxlength="50" name="msn" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE" size="30"></td>
<td>请填写您的Msn号码。</td>
</tr>
<tr valign="top" bgcolor="#dfefff">
<td>个人主页:</td>
<td>
<input maxlength="100" name="homepage" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE" size="50" value="<%=rs("homepage")%>"></td>
<td>请填写您的个人主页。</td>
</tr>
<tr valign="top" bgcolor="#ffffff">
<td>通迅地址:</td>
<td>
<input value="<%=rs("address")%>" size="55" name="address" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE"></td>
<td>可邮寄物品的地址。</td>
</tr>
<tr valign="top" bgcolor="#dfefff">
<td>邮政编码:</td>
<td>
<input value="<%=rs("zip")%>" name="zip" type="text" id="zip" maxlength="20" size="20" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE"></td>
<td>请填写您有效的邮政编码。</td>
</tr>
<tr valign="top" bgcolor="#ffffff">
<td>联系电话:</td>
<td>
<input value="<%=rs("tel")%>" maxlength="15" size="35" name="tel" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE"></td>
<td>请输入真实固定联系电话。请填写区号（如021-50504728）。</td>
</tr>
<tr>
<td align="middle" bgcolor="#588fc7" colspan="3" class="head">
<script language="javascript">
<!--
function process_data(theform) {
if (theform.email.value.indexOf("@") == -1) {
alert("请输入正确的 Email 地址");
theform.email.focus();
return false;
}
if (theform.email.value!=theform.email2.value) {
alert("两次输入的Email不相同,请确认并重新输入!");
theform.email.focus();
return false;
}
}
//-->
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -