📄 usermodi.asp

📁 这是一个简单的网站示例,你可以通过管理系统修改版权信息和网站标志,从而成为您自己的网站
💻 ASP
字号:
<!--#include file="filetou.asp"-->
<%
 if session("username")="" then
    set conn=nothing
    response.redirect  "../ever.asp?lr=你没有登录或连接超时"
 end if
urla=request("urla")
 
name=request.form("name")
if name<>"" then
pas1=request.form("t2")
pas2=request.form("t3")
pas3=request.form("t4")
naps=name&pas1&pas2&pas3
if instr(naps,"'")<>0 or instr(naps,"=")<>0 or instr(naps,";")<>0  or instr(naps," ")<>0 then
    response.redirect  "../ever.asp?lr=对不起,你的用户名或密码中有非法字符"
end if
IF PAS2<>PAS3 THEN     response.redirect  "../ever.asp?lr=对不起,新密码不一致"
if PAS2="" THEN     response.redirect  "../ever.asp?lr=对不起,新密码不能为空"
sql="SELECT *  FROM USER1 WHERE user='"&NAME&"' and pas='"&PAS1&"'" 
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
if rs.eof then
  rs.close
  set conn=nothing
  response.redirect  "../ever.asp?lr=对不起,用户名或密码有误"
else
DIM TLR(20)
for i=5 to 20
 tlr(i-1)=request.form("T"&I)
 IF INSTR(TLR(I),"<")<>0 OR INSTR(TLR(I),">")<>0 OR INSTR(TLR(I),",")<>0 OR INSTR(TLR(I),"&")<>0 OR  INSTR(TLR(I),";")<>0 OR  INSTR(TLR(I),"'")<>0 OR  INSTR(TLR(I),"=")<>0   THEN  response.redirect "ever.asp?lr=你的输入中包含非法字符"
next
RS("EMAIL")=tlr(4)
RS("主页")=tlr(5)
RS("地址")=tlr(15)
RS("电话")=tlr(16)
RS("手机")=tlr(17)
if session("userdsf")="用户" then
  RS("所属网点")=tlr(18)
end if
RS("地区")=tlr(6)
if isnumeric(tlr(7)) then
RS("年龄")=tlr(7)
end if
RS("性别")=tlr(9)
RS("头像")=tlr(8)
RS("自我介绍")=tlr(10)
RS("签名")=tlr(11)
RS("QQ")=tlr(12)
RS("COOKIES")=tlr(13)
RS("PX")=tlr(14)
session("userpx")=tlr(14)
RS("IP")=REQUEST.SERVERVARIABLES("REMOTE_ADDR")
   response.cookies("username")=session("username")
   RESPONSE.COOKIES("username").EXPIRES=DATE()+TLR(13)
 RS("PAS")=PAS3
 rs.update
  rs.close
  set conn=nothing
if urla="" then
  response.redirect  "../ever.asp?lr=成功修改个人资料&urla=../index.asp"
else
  response.redirect  "../ever.asp?lr=成功修改个人资料&urla="&urla
end if
end if
end if


sql="SELECT *  FROM USER1 WHERE user='"&session("username")&"' " 
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 1


%>


<html>

<head>
<Link Rel="STYLESHEET" Href="index.CSS" Type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>修改密码</title>
</head>

<body bgcolor="#99CCFF">

<div align="center">
  <center>
  <table border="1" width="80%" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#C0C0C0">
    <tr>
      <td width="100%" align="center">
        <table border="0" width="100%" bgcolor="#000080">
          <tr>
            <td width="50%"><font color="#FFFFFF">&nbsp;修改资料</font></td>
  </center>
            <td width="50%">
              <p align="right"><a href="../../index.asp"><font color="#FFFFFF">返回</font></a>&nbsp;&nbsp;&nbsp;&nbsp; 
          </td>
          </tr>
        </table>
  <center>
  <form method="POST" name="LOGIN" action="?urla=<%=urla%>">
    <table border="1" width="98%" bgcolor="#D5D5D5" bordercolorlight="#60789F" cellspacing="0" cellpadding="3" bordercolordark="#D5D5D5">
      <tr>
        <td width="26%" align="right">用户名：</td>
        <td width="29%"><input type="text" name="name" size="20" value="<%=session("username")%>"></td>
        <td width="45%" rowspan="7" align="center"><%if rs("头像")<>"" then Response.Write "<img onload='javascript:if(this.width>130)this.width=130'  src='"&rs("头像")&"'>"%>　</td>
      </tr>
      <tr>
        <td width="26%" align="right">旧密码：</td>
        <td width="29%"><input type="password" name="T2" size="20" value='<%=rs("pas")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">新密码：</td>
        <td width="29%"><input type="password" name="T3" size="20" value='<%=rs("pas")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">确认密码：</td>
        <td width="29%"><input type="password" name="T4" size="20" value='<%=rs("pas")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">EMAIL： </td>
        <td width="29%"><input name="T5" size="20" value='<%=rs("EMAIL")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">主页：</td>
        <td width="29%"><input name="T6" size="20" value='<%=rs("主页")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">地区：</td>
        <td width="29%"><input name="T7" size="20" value='<%=rs("地区")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">详细地址：</td>
        <td width="74%" colspan="2">
        <input name="T16" size="20" value='<%=rs("地址")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">联系电话：</td>
        <td width="74%" colspan="2">
        <input name="T17" size="20" value='<%=rs("电话")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">手机：</td>
        <td width="74%" colspan="2">
        <input name="T18" size="20" value='<%=rs("手机")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">所属部门：</td>
        <td width="74%" colspan="2">
        <input name="T19" size="20" value='<%=rs("所属网点")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">年龄：</td>
        <td width="74%" colspan="2"><input name="T8" size="20" value='<%=rs("年龄")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">性别：</td>
        <td width="74%" colspan="2"><input type="radio" value="男" name="T10" <%IF RS("性别")="男" THEN   Response.Write "checked" %>>男<input type="radio" value="女"  name="t10" <%IF RS("性别")="女" THEN   Response.Write "checked" %>>女</td>
      </tr>
      <tr>
        <td width="26%" align="right">头像：</td>
        <td width="20%"><input name="T9" size="20" value='<%=rs("头像")%>'></td>
        <td width="54%">
<IFRAME name=fo frameBorder=0 height=24 marginHeight=1 marginWidth=1 scrolling=no                                                                     
 width=100%    BORDERCOLOR="#CCCCFF"  src="upimg1/fileupimg1.asp"></iframe>        
        </td>
      </tr>
      <tr>
        <td width="26%" align="right">ＱＱ：</td>
        <td width="74%" colspan="2"><input name="T13" size="20" value='<%=rs("QQ")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">自我介绍：</td>
        <td width="74%" colspan="2"><input name="T11" size="58" value='<%=rs("自我介绍")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">签名：</td>
        <td width="74%" colspan="2"><input name="T12" size="58" value='<%=rs("签名")%>'></td>
      </tr>
      <tr>
        <td width="26%" align="right">cookies保存时间：</td>
        <td width="74%" colspan="2"><input type="radio" value="1" name="t14" <%IF RS("COOKIES")=1 THEN   Response.Write "checked" %>>当天<input type="radio" value="30" name="t14"  <%IF RS("COOKIES")=30 THEN   Response.Write "checked" %>>当月<input type="radio" value="365" name="t14"  <%IF RS("COOKIES")=365 THEN   Response.Write "checked" %>>当年</td>
      </tr>
      <tr>
        <td width="26%" align="right">文章排序方法：</td>
        <td width="74%" colspan="2"><input type="radio" value="-ID" name="t15"  <%IF RS("PX")="-ID" THEN   Response.Write "checked" %> >按发布时间　<input type="radio" value="-最后评论时,-ID" name="t15"  <%IF RS("PX")="-最后评论时,-ID" THEN   Response.Write "checked" %>>按回复时间</td>
      </tr>
      <tr>
        <td width="26%" align="right">　</td>
        <td width="74%" colspan="2"><input type="submit" value="提交" name="B1"></td>
      </tr>
    </table>
  </form>
      </td>
    </tr>
  </table><IFRAME name=fo frameBorder=0 height=0 marginHeight=1 marginWidth=1 scrolling=no                                 
 width=0 height=0 BORDERCOLOR="#CCCCFF" src="newly.asp"></iframe> 
</div>

</body>

</html>

<%
rs.close
set conn=nothing
%>
💿 文件大小 8087 K
👤 上传用户 futianxiang0419
📂 所属分类企业管理
🏷️ 相关标签

#网站 #管理系统 #修改版
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -