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

📄 changeinfo.asp

📁 简单网站的编写
💻 ASP
字号:
<!-- 修改个人信息 -->
<!--#INCLUDE FILE="config.asp"-->
<!-- #include file="conn.asp" -->
<html>
<head>
<title>修改资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
</head>
<body>
</style>
<%
  password=request("password")
  if password="" then %>
  <br><br><center>
  <form method="POST" action="changeinfo.asp">输入您的密码
   <input type="password" name="password"><br><br>
   <input type="submit" value="确认">
   <input type="button" value="关闭" onClick="window.close()"></center></form>
</body>
</html>
<% response.end %>
<% end if  %>

<% if password<>"" then %>
<% if request("email")<>"" then %>

<%
my_conn.execute "update "&dbtable_user&" set "&dbfield_user_password&"='" & request("password") & "',"&dbfield_user_email&"='" & request("email") &"',"&dbfield_user_oicq&"='" & request("oicq")& "',"&dbfield_user_homepage&"='" & request("homepage") &"',"&dbfield_user_comefrom&"='" & request("comefrom") & "',"&dbfield_user_sex&"='" &  request("sex") & "' where "&dbfield_user_username&"='" & session("user") & "'"
%>
<br><br><center>[<% =session("user") %>]的资料修改成功!<br><br>
<input type="button" value="关闭窗口"  onClick="window.close()"></center>
</body>
</html>
<% response.end %>
<% end if %>

<% set rs=my_conn.execute("select * from "&dbtable_user&" where "&dbfield_user_username&" ='" & session("user") & "'")
if rs(dbfield_user_password)<>password then %>
<form method="POST" action="changeinfo.asp">
 <br><br><center>密码错,请重输<br>
   <input type="password" name="password"><br>
   <input type="submit" value="确认">
   <input type="button" value="返回" onclick='javascript:history.go(-1)'></center>
</form>
</body>
</html>
<% else %>
<html>
<head>
<title>修改资料</title>
</head>

<body><br>
<table width="181" border="1" cellspacing="0" cellpadding="3" align="center">
<form method="POST" action="changeinfo.asp">
  <tr> 
   <td align="center" style="color:<%=m_text1%>">修 改 资 料</td>
  </tr>
  <tr> 
   <td>呢 称: <% =session("user") %></td>
  </tr>
  <tr> 
   <td>密 码:<input type="text" name="password" value=<% =rs(dbfield_user_password) %> size="13"></td>
  </tr>
  <tr>
  <%
   if rs(dbfield_user_sex)="boy" then %>
   <td>性 别:<input type="radio" name="sex"  value="boy" checked>boy <input type="radio" name="sex" value="girl" >girl</td>
   <% else %>
   <td>性 别:<input type="radio" name="sex"  value="boy">boy <input type="radio" name="sex" value="girl"  checked>girl</td>
   <% end if %>
  </tr>
  <tr> 
   <td>信 箱:<input type="text" name="email" value="<% =rs(dbfield_user_email) %>" size="13"></td>
  </tr>
  <tr> 
   <td>&nbsp;Blog:<input type="text" name="homepage" value=<% =rs(dbfield_user_homepage) %> size="13"></td>
  </tr>
  <tr> 
   <td >来 自:<input type="text" name="comefrom" value=<% =rs(dbfield_user_comefrom) %> size="13"></td>
  </tr>
  <tr> 
   <td> &nbsp;Q&nbsp; Q:<input type="text" name="oicq" size="13" value=<% =rs(dbfield_user_oicq) %>></td>
  </tr>
  <tr> 
   <td align="center"><input type="submit" value="提交">
       <input type="reset" value="重填">
       <input type="button" value="关闭" onClick="window.close()"></td>
  </tr>
</form>
</table>
</body>
</html>
<% end if %>
<% my_conn.close 
   set my_conn=nothing %>
<% end if %>

⌨️ 快捷键说明

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