⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 account.asp

📁 ASP的网上商城在线支付系统
💻 ASP
字号:
<!--#include file="include.asp"-->
<%
 dim user,title,web_url,path,count,ip_hits
 dim error,err_msg,back,fullpath
 dim sql,rs

 user=trim(request("user"))

 error=0

 if not session("log2") then response.redirect "login.asp"
 if request.form("submit")<>empty then call modi_user()

 sql="select * from cnt_msg where user='"&user&"'"
 set rs=conn.execute(sql)
 
 if not rs.eof then
  user=rs("user")
  pass=rs("pass")
  userid=rs("userid")
  memo=rs("memo")
   end if

%>

<html>
<head>
<title>修改设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td {  font-size: 9pt}
input {  font-size: 9pt}
.button {  font-size: 9pt; color: #FFFFFF; background-color: #000000}
-->
</style>
</head>

<body bgcolor="#6A4F9A" text="#FFFFFF">
<div align="center">
  <form method="post" action="modify.asp?user=<%=user%>" name="form02">
    <p>&nbsp;</p>
    <table width="372" border="1" cellspacing="0" bordercolorlight="#999999" bordercolordark="#FFFFFF" cellpadding="2">
      <tr bgcolor="#CCCCCC"> 
        <td colspan="2" align="center" height="28"><font color="#FFFFFF"><font color="#000000">修 
          改 设 置</font></font></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="102" align="right"><font color="#000000">用户名称:</font></td>
        <td width="256"><font color="#000080"><%=user%></font>&nbsp;
          <input type="hidden" name="user" value="<%=user%>">
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="102" align="right"><font color="#000000">密码:</font></td>
        <td width="256"> 
          <input type="text" name="pass" size="30" maxlength="30" value="<%=pass%>">
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="102" align="right"><font color="#000000">用户代号:</font></td>
        <td width="256"> 
          <input type="text" name="userid" size="30" maxlength="100" value="<%=userid%>">
        </td>
      </tr>
      <tr bgcolor="#FFFFFF" align="center"> 
        <td height="47"> 
          <div align="right"><font color="#000000">用户说明:</font></div>
        </td>
        <td height="47"> 
          <div align="left"> 
            <input type="text" name="memo" value="<%=memo%>" size="30" maxlength="100">
          </div>
        </td>
      </tr>
      <tr bgcolor="#FFFFFF" align="center"> 
        <td colspan="2" height="47"> 
          <input type="submit" name="Submit" value="修改" class="button">
          <input type="reset" name="reset" value="重输" class="button">
          <input type="button" name="Submit2" value="关闭" class="button" onClick="javascript:window.close()">
        </td>
      </tr>
    </table>
    <br>
  </form>
  <p>&nbsp;</p>
</div>
</body>
<%
 if error="no" then response.write "<script>alert('修改设置成功!!');</script>"
 conn.close()
 set conn=nothing
%>
</html>
<%
function modi_user()

 user=trim(request.form("user"))
 pass=trim(request.form("pass"))
 userid=trim(request.form("userid"))
 memo=trim(request.form("memo"))

 if pass=empty then error=1
 if user=empty then error=2
  if memo=empty then error=3
  if userid=empty then error=4

 if error<>0 then

  back="<a href='javascript:history.back()'>返回</a>"
 
  select case error
   case 1
    err_msg="密码不能为空!"&back
   case 2
    err_msg="用户名不能为空!"&back
   case 3
    err_msg="用户说明不能为空!"&back
   case 4
    err_msg="用户代号不能为空!"&back
  end select    
    
   response.write err_msg 
   conn.close()
   set conn=nothing
   response.end

  else

    sql="update cnt_msg set userid='"&userid&"',pass='"&pass&"',memo='"&memo&"' where user='"&user&"'"
    conn.execute(sql)
    error="no"
  end if

end function
%>

⌨️ 快捷键说明

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