user_data.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 226 行

<!--#include file="mdb.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/md5.asp"-->
<!--'#include file="inc/inc.asp"-->
<%
if session("userlogin")="" then
		response.write"<SCRIPT language=JavaScript>alert(' 请 登 陆 后 操 作  ，请 返 回 ！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
end if
userid=session("uid")
call head
call menu
if request.QueryString("hx66")="Modifyinfo" then
	Password=trim(request.Form("Password"))
	Password2=trim(request.Form("Password2"))
	Answer=trim(request.Form("Answer"))
       	if request("password")=request("pswpassword") then
		password=request("password")
	else
		password=md5(request("password"))
	end if
	if request("psw")="" then
		psw=request("pswpassword")
	else
		psw=md5(request("psw"))
	end if
	if request("answer")=request("oldanswer") then
		answer=request("answer")
	else
		answer=md5(request("answer"))
	end if
	
	if password<>psw then
		response.write"<SCRIPT language=JavaScript>alert(' 两 次 输 入 的 密 码 不 一 致， 请 返 回 ！ ');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
		end if
		sql="select * from [User] where userid=" & userid &""
  		set rs=server.createobject("adodb.recordset")
  			rs.open sql,conn,1,3
			rs("Password")=Password
			rs("Question")=trim(request.Form("Question"))
			rs("Answer")=Answer
			rs("Email")=trim(request.Form("Email"))
			rs("sex")=request.Form("sex")
			rs("Homepage")=trim(request.Form("Homepage"))
			rs("QQ")=trim(request.Form("QQ"))
			rs("MSN")=trim(request.Form("MSN"))
			rs.update
			rs.close
			set rs=nothing
		        response.Write"<script language=javascript>alert(' 恭 喜 您 ！ 资 料 修 改 成 功 ！');this.location.href='Userkzmb.asp';</script>"
end if
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table-hx66s">
  <tr>
    <td width="188" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="35"><table width="100%"  border="0" cellspacing="0" cellpadding="0"  class="table-shangxia">
				<tr>
					<td  height="23"  class="a1">&nbsp; &nbsp;会 员 登 陆</td>
				</tr>
			</table>
			</td>
          </tr>
          <tr>
            <td height="136" valign="top"><!--#include file="UserLogin.asp"--></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="35"><table width="100%"  border="0" cellspacing="0" cellpadding="0"  class="table-shangxia">
                <tr>
                  <td  height="23"  class="a1">&nbsp;&nbsp; 控 制 面 板</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td height="125" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-zuoyou">
                <tr>
                  <td width="6"></td>
                  <td><table width="160" height="20"  border="0" cellpadding="0" cellspacing="0">
            <%if session("userlogin")<>"" then%>
             <tr>
              <td>&nbsp;</td>
              <td height="20" align="center">◎<a href="user_data.asp">资料修改</a>&nbsp;<a href="userlist.asp" target=_blank>◎会员列表</a></td>
            </tr>
           <%if userfb="yes" then%>
             <tr>
              <td>&nbsp;</td>
              <td height="20" align="center"><a href="Userkzmb.asp?action=art">◎添加文章</a>&nbsp;<a href="Userkzmb.asp?action=dj">◎添加歌曲</a></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td height="20" align="center"><a href="Userkzmb.asp?action=pic">◎添加图片</a>&nbsp;<a href="Userkzmb.asp?action=down">◎添加资源</a></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td height="20" align="seft">&nbsp;&nbsp;<a href="Userkzmb.asp?action=web">◎添加酷站</a></td>
            </tr>
          <%end if%>
           <%else%>
            <tr>
              <td>&nbsp;</td>
              <td height="20" align="center">请登陆后操作！</td>
            </tr>
          <%end if%>
               </table></td>
                  <td width="6"></td>
                </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="1"></td>
      </tr>
    </table>
  </td>
    <td width="580" valign="top">
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td></td>
            <td height="35"><table width="100%"  border="0" cellspacing="0" cellpadding="0"  class="table-shangxia">
                <tr>
                  <td  height="23"  class="a1">&nbsp;&nbsp; 会 员 中 心</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td></td>
            <td height="125" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-left">
                <tr>
                  <td width="6"></td>
                  <td>
<%
sql="select * from [user] where userid="&userid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="560" height="344" border="0" cellpadding="0" cellspacing="0" class="table-zuoshang">
           <form name="form2" method="post" action="?hx66=Modifyinfo"><tr align="center" bgcolor="#FFFFFF">
            <td colspan="2" class="table-xiayou"><strong>修改用户资料</strong></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td width="95" class="table-xiayou"> &nbsp;用 户 名:</td>
            <td width="322" class="table-xiayou">&nbsp;<%=rs("username")%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td class="table-xiayou">&nbsp;密&nbsp;&nbsp;&nbsp;&nbsp;码:</td>
            <td class="table-xiayou"> &nbsp;
          <input type="password" name="password" size=22 value="<%=rs("password")%>" class="go-input">
          <input type=hidden name="pswpassword" value="<%=rs("password")%>">
           </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td class="table-xiayou">&nbsp;新密码确认:</td>
            <td class="table-xiayou"> &nbsp;
             <input type="password" name="psw" value="" size=22 maxlength=13 class="go-input">
             <span class="style1"> &nbsp;不修改密码请留空</span>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td class="table-xiayou">&nbsp;密码提示问题:</td>
            <td class="table-xiayou"> &nbsp;
                <input name="Question" type="text" size=22 class="go-input" id="Question2" value="<%=rs("Question")%>"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td class="table-xiayou">&nbsp;密码提示答案:</td>
            <td class="table-xiayou"> &nbsp;
          <input type=password name="answer" size=22 value="<%=rs("answer")%>" class="go-input">
          <input type=hidden name="oldanswer" value="<%=rs("answer")%>">
                
                <span class="style1">答案采用了MD5加密，如要修改可直接填写。</span></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td class="table-xiayou">&nbsp;E-mail:</td>
            <td class="table-xiayou"> &nbsp;
                <input name="Email" type="text" class="go-input" size=22 id="Email2" value="<%=rs("Email")%>"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td class="table-xiayou">&nbsp;性&nbsp; 别:</td>
            <td class="table-xiayou">&nbsp;
                <input type="radio" name="sex" value="男" <%if rs("sex")="男" then response.Write"checked" end if%>>
      男
      <input name="sex" type="radio" value="女" <%if rs("sex")="女" then response.Write"checked" end if%>>
      女</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td class="table-xiayou">&nbsp;个人主页:</td>
            <td class="table-xiayou"> &nbsp;
                <input name="Homepage" type="text" class="go-input" size=22 id="Homepage2" value="<%=rs("Homepage")%>"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td class="table-xiayou">&nbsp;QQ:</td>
            <td class="table-xiayou"> &nbsp;
                <input name="QQ" type="text" class="go-input" size=22 id="QQ2" value="<%=rs("QQ")%>"></td>
          </tr>

          <tr align="center" bgcolor="#FFFFFF">
            <td colspan="2" class="table-xiayou"><input type="submit" name="Submit" value=" 修改 " class="button">
                <input type="reset" name="Submit2" value=" 重填 " class="button"></td>
          </tr></form>
        </table></td>
                  <td width="6"></td>
                </tr>
            </table></td>
            <td></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
%>  
<%call footer%>