📄 user_index.asp
字号:
<!--#include file="Inc/Config.Asp"-->
<!--#include file="conn.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/UserPs.Asp"-->
<!--#include file="inc/index_inc.Asp"-->
<!--#include file="inc/pwwd.asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
response.write" - Powered By FYPost - 枫叶贴吧"
response.End()
Exit For
End If
Next
'/*不让搜索引擎收录*/
action = ReplaceBadWord(Request.QueryString("action"))
Select Case action
Case ""
Call admin_index()
Case "aboutuser"
Call aboutuser()
Case "password"
Call password()
Case "adminok"
Call adminok()
Case "main"
Call pwdok()
End Select
Sub admin_index()
If session("uesrname")="" Then
%>
<html >
<head>
<link rel="Shortcut Icon" href="favicon.ico">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META NAME="keywords" CONTENT="<%=keywords%>">
<META NAME="description" CONTENT="<%=description%>">
<META NAME="robots" CONTENT="all">
<title><%=fywenname%> - 个人中心<%call serach()%></title>
<link href="skin/<%=skin%>/fywen.css" rel="stylesheet" type="text/css"></head>
<!--#include file="Fywen_Top.Asp"-->
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="table_5">
<tr>
<td height="28" class="Fywen_Bj"> <a href="index.asp" class="size"><%=fywenname%></a> -> <font class='index_titlesize'>退出登陆</font></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" height="70%">
<tr>
<td valign="top">
<br/><br/><table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>
<tr>
<td height='55'><br/><br/>对不起，您尚未登陆或登陆超时<br/>
<br/>当前操作：<br/><br/>
<a href='index.asp' class='size'>返回首页</a> <a href='Login.asp' class='size'>登陆</a> <a href='Fywen_Passport.Asp' class='size'>注册</a></td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr></table>
</td>
</tr>
</table>
<!--#include file="Bottom.Asp"-->
</body>
</html>
<%
Else
Call admin_index2()
End If
End Sub
Sub admin_index2()
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心</TITLE>
<link href="skin/<%=skin%>/fywen.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<td width="34%" rowspan="5"><img src="image/noimg.gif" alt="目前不支持自定义图片" ></td>
<td width="66%">用户名：<font class="index_titlesize"><%=session("uesrname")%></font></td>
</tr>
<tr>
<td>共发布帖子：<font color="#FF0000">
<%call Vip_post()%></font> 篇</td>
</tr>
<tr>
<td>共回复帖子：<font color="#FF0000"><%call Vip_Repost()%>
</font>篇</td>
</tr>
<tr>
<td>注册日期：<font class="index_titlesize"><%call Vip_logintime()%></font></td>
</tr>
<tr>
<td>上次登陆时间：<font class="index_titlesize"><%call Vip_Firsttime()%></font></td>
</tr>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub aboutuser()
set rs= server.createobject("adodb.recordset")
sql= "select * from [user] where [username]='"&session("uesrname")&"'"
rs.open sql,conn,1
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心</TITLE>
<link href="skin/<%=skin%>/fywen.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<form action="user_index.asp?action=adminok" method="post">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr >
<td align="center" class="imgbg" colspan="2" height="30"><font class="index_titlesize">个人信息修改</font></td>
</tr>
<tr>
<td height="25" width="23%">会员名称：</td>
<td width="76%"><input name="username" type="text" disabled class="input" style="width:145px;" value="<%=rs("username")%>" ></td>
</tr>
<tr>
<td height="25" width="23%">会员性别：</td>
<td width="76%">
<%If rs("sex")="男"Then %><input name="sex" type="radio" checked="CHECKED" value="男" /> 男
<input type="radio" name="sex" value="女" /> 女
<% Else%><input name="sex" type="radio" value="男" /> 男
<input type="radio" name="sex" checked="CHECKED" value="女" /> 女
<%End If%>
</td>
</tr>
<tr>
<td height="25" width="23%">会员电子邮箱：</td>
<td width="76%"> <input name="mail" type="text" class="input" id="mail" style="width:145px;" value="<%=rs("mail")%>" ></td>
</tr>
<tr>
<td height="25" width="23%">QQ号码：</td>
<td width="76%"> <input name="qq" type="text" class="input" id="qq" style="width:145px;" value="<%=rs("qq")%>" ></td>
</tr>
<tr>
<td height="25" width="23%">是否吧主：</td>
<td width="76%"> <input name="post" type="text"disabled class="input" id="qq" style="width:145px;" value="<%
If rs("postadmin")="0" Then
response.Write("否")
Else
response.Write(rs("postadmin"))
End If
%>" > </td>
</tr>
<tr>
<td height="77" width="23%"> </td>
<td height="77" width="76%"><input name="submit" type="submit" value="确定修改" class="button_1"> <input name="submit" type="reset" value="撤消重填" class="button_1"></td>
</tr>
</table>
</form>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub adminok()
sex=ReplaceBadWord(request.Form("sex"))
mail=ReplaceBadWord(request.Form("mail"))
qq=ReplaceBadWord(request.Form("qq"))
set rs= server.createobject("adodb.recordset")
sql= "update [user] set [sex]='"&sex&"',[mail]='"&mail&"',[qq]='"&qq&"' where [username]='"&session("uesrname")&"'"
rs.Open sql,conn,3
%>
<script language="javascript">
alert("会员资料信息修改完成")
document.location="user_index.asp"
</script>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub password()
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心</TITLE>
<link href="skin/<%=skin%>/fywen.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<form action="user_index.asp?action=main" method="post">
<tr >
<td height="15" ><font class="index_titlesize">密码修改</font></td>
</tr>
<tr>
<td height="99" >输入旧密码:
<input type="password" name="opassword" class="input" style="width:145px;" >
<br>
输入新密码:
<input type="password" name="npassword" class="input" style="width:145px;" >
<br>
新密码确认:
<input type="password" name="nnpassword" class="input" style="width:145px;" >
<br><br>
<input type="submit" value="确认提交" class="button_1">
<input type="reset" value="重新输入" class="button_1">
</td>
</tr></form>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub pwdok()
opassword=md5(request.form("opassword"))
npassword=ReplaceBadWord(request.form("npassword"))
nnpassword=ReplaceBadWord(request.form("nnpassword"))
passwords = ReplaceBadWord(session("userpwd"))
if passwords <> opassword then
%>
<script language="javascript">
alert("用户名旧密码与原密码不一致！")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
if npassword <> nnpassword then
%>
<script language="javascript">
alert("两次密码输入不一致！")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
else
if npassword="" or nnpassword="" then
%>
<script language="javascript">
alert("新密码输入不能为空！")
document.location="javascript:history.back(-1)"
</script>
<%
else
passwords=md5(npassword)
Username=session("uesrname")
set rs= server.createobject("adodb.recordset")
sql= "update [user] set [userpwd]='"&passwords&"' where [username]='"&Username&"'"
rs.Open sql,conn,3
session("Uesrname")=""
session("userpwd")=""
%>
<script language="javascript">
alert("密码修改成功，需退出重新登陆！")
document.location="login.Asp"
</script>
<%
end if
end if
end if
End Sub
Call Fywencl()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -