📄 member.asp
字号:
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/md5code.asp" -->
<!--#include file="header.asp" -->
<%IF Request.QueryString("action")="edit" AND memName<>Empty Then%>
<table width="97%" border="0" cellspacing="0" cellpadding="8" bgcolor="#FFFFFF" align="center" class="lrtd">
<tr>
<td width="138" align="center" class="rtd"><b>用户编辑</b></td>
<td valign="top" align="center"><table width="95%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#EFEFEF">
<td colspan="2"><b>编辑个人资料</b></td>
</tr><%
IF Request.QueryString("edit")="post" Then
Response.Write("<tr bgcolor='#FFFFFF'><td colspan='2'>")
IF CheckStr(Request.Form("mem_OldPassword"))=Empty Then
Response.Write("<br><br><center><b>对不起，旧密码必须填写<br><br><a href='javascript:history.go(-1);'>点击返回上一页</a></b></center><br><br>")
Else
Dim mem_Edit
Set mem_Edit=Conn.ExeCute("SELECT * FROM blog_Member WHERE mem_Name='"&memName&"' AND mem_PassWord='"&md5(CheckStr(Request.Form("mem_OldPassword")))&"'")
IF mem_Edit.EOF AND mem_Edit.BOF Then
Response.Write("<br><br><center><b>对不起，旧密码不符<br><br><a href='javascript:history.go(-1);'>点击返回上一页</a></b></center><br><br>")
Else
IF CheckStr(Request.Form("mem_NewPassword"))<>CheckStr(Request.Form("mem_RePassword")) Then
Response.Write("<br><br><center><b>对不起，新密码与确认密码不符<br><br><a href='javascript:history.go(-1);'>点击返回上一页</a></b></center><br><br>")
Else
Dim SQL_Add,mem_HideEmail
IF CheckStr(Request.Form("mem_NewPassword"))<>Empty Then SQL_Add=",mem_Password='"&md5(CheckStr(Request.Form("mem_NewPassword")))&"'"
mem_HideEmail=CheckStr(Request.Form("mem_HideEmail"))
IF mem_HideEmail="1" Then
mem_HideEmail=True
Else
mem_HideEmail=False
End IF
Conn.ExeCute("UPDATE blog_Member SET mem_Sex="&CheckStr(Request.Form("mem_Sex"))&",mem_Email='"&CheckStr(Request.Form("mem_Email"))&"',mem_HideEmail="&mem_HideEmail&",mem_QQ='"&CheckStr(Request.Form("mem_QQ"))&"',mem_HomePage='"&CheckStr(Request.Form("mem_HomePage"))&"',mem_Intro='"&CheckStr(Request.Form("mem_Intro"))&"'"&SQL_Add&" WHERE mem_Name='"&memName&"'")
Response.Write("<br><br><center><b>更新资料成功<br><br><a href='member.asp?action=view&memName="&memName&"'>点击查看新资料</a></b></center><br><br>")
End IF
End IF
Set mem_Edit=Nothing
End IF
Response.Write("</td></tr>")
Else
Dim mem_EditView
Set mem_EditView=Conn.ExeCute("SELECT * FROM blog_Member WHERE mem_Name='"&memName&"'")%>
<tr bgcolor="#FFFFFF"><form action="member.asp?action=edit&edit=post" method="post" name="Submit" id="Submit">
<td width="98" align="right" nowrap>名称：</td>
<td width="100%"> <%=memName%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap>旧密码：</td>
<td> <input name="mem_OldPassword" type="password" id="mem_OldPassword" size="16">
<span class="htd"><b><font color="#FF0000"> *</font></b> 修改资料必须输入原密码</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap>新密码：</td>
<td> <input name="mem_NewPassword" type="password" id="mem_NewPassword" size="16">
<span class="htd"><b><font color="#FF0000">*</font></b> 密码必须是6-16位</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap>确认密码：</td>
<td> <input name="mem_RePassword" type="password" id="mem_RePassword" size="16"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap>性别：</td>
<td><input name="mem_Sex" type="radio" value="1" <%IF mem_EditView("mem_Sex")=1 Then Response.Write("checked")%>>
男
<input type="radio" name="mem_Sex" value="2" <%IF mem_EditView("mem_Sex")=2 Then Response.Write("checked")%>>
女
<input type="radio" name="mem_Sex" value="0" <%IF mem_EditView("mem_Sex")=0 Then Response.Write("checked")%>>
保密</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap>邮箱：</td>
<td> <input name="mem_Email" type="text" id="mem_Email" value="<%=mem_EditView("mem_Email")%>" size="30">
<input name="mem_HideEmail" type="checkbox" id="mem_HideEmail" value="1" <%IF mem_EditView("mem_HideEmail")=True Then Response.Write("Checked")%>>
隐藏邮箱</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap>腾讯QQ：</td>
<td> <input name="mem_QQ" type="text" id="mem_QQ" value="<%=mem_EditView("mem_QQ")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap>个人主页：</td>
<td> <input name="mem_HomePage" type="text" id="mem_HomePage" value="<%=mem_EditView("mem_HomePage")%>" size="35"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap>个人简介：</td>
<td> <textarea name="mem_Intro" cols="50" rows="5" wrap="VIRTUAL" id="mem_Intro"><%=mem_EditView("mem_Intro")%></textarea></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td colspan="2">
<input type="submit" name="Submit" value=" 确定编辑 ">
</td>
</tr></form><%Set mem_EditView=Nothing
End IF%>
</table></td>
</tr>
</table>
<%ElseIF Request.QueryString("action")="view" AND CheckStr(Request.QueryString("memName"))<>Empty Then%>
<table width="97%" border="0" cellspacing="0" cellpadding="8" bgcolor="#FFFFFF" align="center" class="lrtd">
<tr>
<td width="138" align="center" class="rtd"><b>用户查看</b></td>
<td valign="top" align="center"><%Dim mem_View
Set mem_View=Conn.ExeCute("SELECT * FROM blog_Member WHERE mem_Name='"&CheckStr(Request.QueryString("memName"))&"'")
IF mem_View.EOF AND mem_View.BOF Then
Response.Write("<br><br><center><b>对不起，你所查询的用户不存在<br><br><a href='javascript:history.go(-1);'>点击返回上一页</a></b></center><br><br>")
Else%><table width="95%" border="0" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#EFEFEF">
<td colspan="2"><b>用户 <font color="#FF0000"><%=mem_View("mem_Name")%></font> 的详细资料：</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">名称：</td>
<td> <%=mem_View("mem_Name")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="98" align="right" nowrap>性别：</td>
<td width="100%"> <%IF mem_View("mem_Sex")=1 Then
Response.Write("<img src='images/male.gif' border='0' align='absmiddle'> 帅哥")
ElseIF mem_View("mem_Sex")=2 Then
Response.Write("<img src='images/female.gif' border='0' align='absmiddle'> 美女")
Else
Response.Write("未知")
End IF%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">邮箱：</td>
<td> <%IF mem_View("mem_HideEmail")=False Then
Response.Write("<a href='mailto:"&mem_View("mem_Email")&"' alt='点击发送 Email'>"&mem_View("mem_Email")&"</a>")
Else
Response.Write("此用户信箱已隐藏")
End IF%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">腾讯QQ：</td>
<td> <%="<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&mem_View("mem_QQ")&"' target='_blank' alt='点击查看QQ信息'>"&mem_View("mem_QQ")&"</a>"%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" nowrap>个人主页：</td>
<td> <%="<a href='"&mem_View("mem_HomePage")&"' target='_blank' alt='点击浏览主页'>"&mem_View("mem_HomePage")&"</a>"%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">发表问题：</td>
<td> <%=mem_View("mem_PostLogs")%> 篇</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">发表回复：</td>
<td> <%=mem_View("mem_PostComms")%> 篇 [<a href="commlist.asp?memName=<%=mem_View("mem_Name")%>">点击浏览 <%=mem_View("mem_Name")%> 发表的所有回复</a>]</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">个人介绍：</td>
<td> <%=HTMLEncode(mem_View("mem_Intro"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">注册时间：</td>
<td> <%=DateToStr(mem_View("mem_RegTime"),"Y-m-d H:I A")%></td>
</tr>
</table>
<%End IF
Set mem_View=Nothing%></td>
</tr>
</table>
<%Else%>
<table width="97%" border="0" cellspacing="0" cellpadding="8" bgcolor="#FFFFFF" align="center" class="lrtd">
<tr>
<td width="118" align="center" class="rtd"><b>用户列表</b></td>
<td valign="top" align="center"><table width="97%" border="0" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#EFEFEF">
<td nowrap>名称</td>
<td nowrap>邮箱</td>
<td nowrap>QQ</td>
<td nowrap>主页</td>
<td nowrap>问题</td>
<td nowrap>回复</td>
<td width="100%" nowrap>注册时间</td>
</tr><%Dim CurPage
IF CheckStr(Request.QueryString("Page"))<>Empty Then
Curpage=Cint(CheckStr(Request.QueryString("Page")))
IF Curpage<0 Then Curpage=1
Else
Curpage=1
End IF
Dim blog_Member
Set blog_Member=Server.CreateObject("Adodb.Recordset")
SQL="SELECT * FROM blog_Member ORDER BY mem_RegTime DESC"
blog_Member.Open SQL,CONN,1,1
IF blog_Member.EOF AND blog_Member.BOF Then
Response.Write("<tr bgcolor='#FFFFFF'><td colspan='7' align='center' height='48'>暂时没有用户</td></tr>")
Else
blog_Member.Pagesize=15
blog_Member.AbsolutePage=CurPage
Dim Member_Nums,PageCount,MultiPages
Member_Nums=blog_Member.RecordCount
MultiPages="<span class='smalltxt'>"&MultiPage(Member_Nums,15,CurPage,"?")&"</span>"
Do Until blog_Member.EOF OR PageCount=15
Response.Write("<tr bgcolor='#FFFFFF'><td nowrap><a href='member.asp?action=view&memName="&blog_Member("mem_Name")&"' alt='点击查看详细资料'>"&blog_Member("mem_Name")&"</a></td><td nowrap>")
IF blog_Member("mem_HideEmail")<>1 Then Response.Write("<a href='mailto:"&blog_Member("mem_Email")&"' alt='点击发送 Email'>"&blog_Member("mem_Email")&"</a>")
Response.Write("</td><td nowrap>"&blog_Member("mem_QQ")&"</td><td nowrap><a href='"&blog_Member("mem_Homepage")&"' target='_blank' alt='点击访问'>"&blog_Member("mem_Homepage")&"</a></td><td>"&blog_Member("mem_PostLogs")&"</td><td nowarp>"&blog_Member("mem_PostComms")&"</td><td width='100%' nowrap>"&DateToStr(blog_Member("mem_RegTime"),"Y-m-d")&"</td></tr>")
blog_Member.MoveNext
PageCount=PageCount+1
Loop
Response.Write("<tr bgcolor='#FFFFFF'><td colspan='7'>"&MultiPages&"</td></tr>")
End IF
blog_Member.Close
Set blog_Member=Nothing%>
</table>
<form action="delete_guest.asp" method="post">
<input type="text" name="mem_name">
<input type="submit" name="delite" value="删除"><input type="reset" name="reset" value="重置">
</form>
</td>
</tr>
</table>
<%End IF%>
<!--#include file="footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -