useredit.asp

可以做论坛

<%@ Language=VBScript %> 
<%Response.Buffer = True %>
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="user.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="asptbfunction.asp"-->
<%
Response.Write "<table width=775 border=0 align=center cellspacing=0 class=td4><tr><td>·<a href=./><font color=#F6F6F6>首页</font></a>>>>查看会员信息</td></tr></table>"
Response.Write "<table width=99% align=center border=0 align=center cellspacing=0><tr class=120b><td align=center>"
idy=request.form("idy")
idy=Replace(idy,"'","")
bbm=request.form("bbm")
bbm=Replace(bbm,"'","")
mystring=cip
call mystr(mystring,allstr,leng)
youcipc=0
youcip=""
for i=0 to leng 
if InStr(bbm,allstr(i))>0 then
youcipc=youipp+1
youcip=allstr(i)
end if
If i=leng Then Exit For 
Next 
if youcipc>0 then '词被屏蔽
Response.Write "修改失败，昵称不能用[<font color=#FF0000>"&youcip&"</font>]有疑问请与管理员联系"
else '词被屏蔽
if bbm<>"" then
user=request.form("user")
user=Replace(user,"'","")
pwl=request.form("pwl")
pwl=Replace(pwl,"'","")
pwl2=request.form("pwl2")
if pwl=pwl2 then '密码是否一样
xingbie=request.form("xingbie")
xinbie=Replace(xinbie,"'","")
age=request.form("age")
age=Replace(age,"'","")
qq=request.form("qq")
qq=Replace(qq,"'","")
email=request.form("email")
email=Replace(email,"'","")
home=request.form("home")
home=Replace(home,"'","")
geren=request.form("geren")
geren=Replace(geren,"'","")
ulock=request.form("ulock")

if ulock="" then 
lockk=0
else
lockk=1
end if
'response.write"//"&ulock&"/"&idy&""
conn.Execute("update user set ulock='"&lockk&"',user='"&user&"',pwl='"&pwl&"',bm='"&bbm&"',qq='"&qq&"',email='"&email&"',home='"&home&"',geren='"&geren&"',age='"&age&"',xingbie='"&xingbie&"' where idy="&idy&" ")
'response.redirect "useredit.asp?idy="&idy&""
else '密码不一样
Response.Write"修改失败，两次密码不一样"
end if '密码不一样
end if '如果提交
end if '屏蔽词

if ujibie>0 then '不是会员不能看
idy=request("idy")
nemerstr=idy
call ornonemer(nemerstr,nonemer)
if idy="" or nonemer>0 then 'idy号为空
Response.Write""
else 'idy号不为空
cnuser="select * from user  where idy="&idy&"" 
set rsuser=server.createobject("adodb.recordset")
rsuser.open cnuser,conn,1,1
if rsuser.eof then '找不到这个用户
Response.Write"找不到这个用户"
else'找不到这个用户
if CInt(rsuser("idy"))=CInt(uidy) or uzhiwu=100 then '不是自己不能编辑
uuser1=rsuser("user")
uutime1=rsuser("time")
udltime1=rsuser("dltime")
uubm1=rsuser("bm")
uemail1=rsuser("email")
uxingbie1=rsuser("xingbie")
ugeren1=rsuser("geren")
uage1=rsuser("age")
uqq1=rsuser("qq")
uhome1=rsuser("home")
uip1=rsuser("ip")
ujibie1=rsuser("jibie")
ujibiej1=rsuser("jibiej")
ujingnian1=rsuser("jingnian")
ujinqian1=rsuser("jinqian")
umeili1=rsuser("meili")
uzhiwu1=rsuser("zhiwu")
ulock1=rsuser("ulock")
'职务
if uzhiwu1=0 then
   uzhiwu1="无职务"
   else if uzhiwu1=1 then
   uzhiwu1="版主"
   else if uzhiwu1=100 then
   uzhiwu1="管理员"
   end if
   end if
   end if
'职务结束
uweiwang=rsuser("weiwang")
uhaoyou=rsuser("haoyou")
uqingren=rsuser("qingren")
ulaopo=rsuser("peiou")
utieshu=rsuser("tieshu")
uhuitie=rsuser("huitie")
ushantie=rsuser("shantie")
uulock=rsuser("ulock")

%>
<table width=775 border="0" align="center" cellspacing="2">
  <tr>
    <td >
<table width="100%" border="1" cellspacing="0" bordercolor="#CCCCCC" class="160b">
        <tr> 
          <td colspan="8">
		  <%
		  if ulock1=1 then
		  response.write"[已锁定]"
		  else
		  response.write"[正常]"
		  end if
		  response.write""&rsuser("bm")&""
		  %>的会员信息：</td>
        </tr>
        <tr> 
          <td>昵称</td>
          <td><%=uubm1%></td>
          <td>级别</td>
          <td><%=ujibie1%></td>
          <td>魅力</td>
          <td><%=umeili1%></td>
          <td>发贴数</td>
          <td><%=utieshu%></td>
        </tr>
        <tr> 
          <td>性别</td>
          <td><%=uxingbie1%></td>
          <td>级别积分</td>
          <td><%=ujibiej1%></td>
          <td>威望</td>
          <td><%=uweiwang%></td>
          <td>回贴数</td>
          <td><%=uhuitie%></td>
        </tr>
        <tr> 
          <td>年龄</td>
          <td> 
            <%
		  if uage1="" then
		  Response.Write"不想告诉你"
		  else 
		  Response.Write""& uage1 &""
		  end if
		  %>
          </td>
          <td>经验</td>
          <td><%=ujingnian1%></td>
          <td>职务</td>
          <td><%=uzhiwu1%></td>
          <td>被删数</td>
          <td><%=ushantie%></td>
        </tr>
        <tr> 
          <td>qq号码</td>
          <td> 
            <%
		  if uqq1="" then
		  Response.Write"不想告诉你"
		  else 
		  Response.Write""& uqq1 &""
		  end if
		  %>
          </td>
          <td>金钱</td>
          <td><%=ujinqian1%></td>
          <td>注册时间</td>
          <td><%=uutime1%></td>
          <td>注册IP</td>
          <td><%=uip1%></td>
        </tr>
        <tr> 
          <td>Email</td>
          <td> 
            <%
		  if uemail1="" then
		  Response.Write"不想告诉你"
		  else 
		  Response.Write""& uemail1 &""
		  end if
		 
		  %>
          </td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>最后登陆时间</td>
          <td><%=udltime1%></td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td>个人网站</td>
          <td colspan="7"> 
            <%
		  if uhome1="" then
		  Response.Write"没有"
		  else 
		  Response.Write""& uhome1 &""
		  end if
		 
		  %>
          </td>
        </tr>
        <tr> 
          <td>个人介绍</td>
          <td colspan="7"> 
            <%
		  if ugeren1="" then 
		  Response.Write"不告诉你"
		  else
		  Response.Write""& ugeren1 &""
		  end if
		  %>
          </td>
        </tr>
        <tr> 
          <td>好朋友</td>
          <td colspan="7"> 
            <%
		  if uhaoyou="0" then
		  Response.Write"还没好朋友"
		  else 
		  Response.Write""& uhaoyou &""
		  end if
		  %>
          </td>
        </tr>
        <tr> 
          <td>情人</td>
          <td colspan="7"> 
            <%
		  if uqingren="0" then
		  Response.Write"还没情人"
		  else 
		  Response.Write""& uqingren &""
		  end if
		  %>
          </td>
        </tr>
        <tr> 
          <td>配偶</td>
          <td colspan="7"> 
            <%
		  if ulaopo="0" then
		  Response.Write"还没配偶"
		  else 
		  Response.Write""& ulaopo &""
		  end if
		  %>
          </td>
        </tr>
      </table>
      <form name="form" method="post" action="useredit.asp">
        <table width="100%" border="1" cellspacing="0" bordercolor="#CCCCCC">
          <tr> 
            <td>修改信息：</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td>登陆ID</td>
            <td><input name="user" type="text" value="<%=rsuser("user")%>"></td>
            <td>密码</td>
            <td><input name="pwl" type="password" value="<%=rsuser("pwl")%>"></td>
            <td>确认密码</td>
            <td><input name="pwl2" type="password" value="<%=rsuser("pwl")%>"></td>
          </tr>
          <tr> 
            <td>昵称</td>
            <td><input name="bbm" type="text" value="<%=rsuser("bm")%>"> <font color="#FF0000">*</font></td>
            <td>性别</td>
            <td><select name="xingbie">
                <option value="男" selected>男</option>
                <option value="女">女</option>
              </select> <font color="#FF0000">*</font></td>
            <td>年龄</td>
            <td><input name="age" type="text" value="<%=rsuser("age")%>"> </td>
          </tr>
          <tr> 
            <td>qq号码</td>
            <td><input name="qq" type="text" value="<%=rsuser("qq")%>"> </td>
            <td>Email</td>
            <td><input name="email" type="text" value="<%=rsuser("email")%>"> 
            </td>
            <td>&nbsp;</td>
            <td><input type="hidden" name="idy" value="<%=rsuser("idy")%>"></td>
          </tr>
          <tr> 
            <td>个人网站</td>
            <td colspan="3"><input name="home" type="text" value="<%=rsuser("home")%>" size="50"></td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td>个人介绍</td>
            <td colspan="3"><textarea name="geren" cols="50" rows="3"><%=rsuser("geren")%></textarea></td>
            <td>&nbsp;</td>
            <td>
			<% if uzhiwu=100 then %>
			<input type="checkbox" name="ulock" value="1">
              屏蔽/撤屏蔽
              <%end if%>
            </td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td colspan="3"><input type="submit" name="tijiao" value="提交"> <input type="reset" name="Submit3" value="重置"></td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>

<%

else '不是自己不能编辑
Response.Write"权限不足"
end if '不是自己不能编辑
end if '找不到这个用户
end if 'idy号为空
else '不是会员
Response.Write"你还未登陆不能查看会员信息"
end if'不是会员
Response.Write "</td></tr><tr class=110b><td width=1>&nbsp;</td></tr></table>"
Response.Write""&asptbcopy&""
Response.Flush 
%>