pass.asp 随缘网络产品管理系统 2.0码程序 - ASP源码程序

www.gusucode.com > 随缘网络产品管理系统 2.0码程序 > manage/pass.asp
    <%
if not session("check")="checked" then
response.Redirect "login.asp"
end if
%>
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin"
rs.open sql,conn,1,1
%>
<%
  set rs1=server.CreateObject("adodb.recordset")
  sql1="select * from admin"
  rs1.open sql1,conn,1,3
  %>
  <%
  if request.querystring("act")="xg" then
  rs1("username")=request.form("username")
  rs1("password")=request.form("password")
  rs1.update
  rs1.close
  response.Write "修改完成，请执行其他操作"
  else
  %>
  
<head>
  
<link href="images/private.css" rel="stylesheet" type="text/css" />
<script language='javascript' src='images/private.js'></SCRIPT>
</head>

<body style="text-align: center">

<form name="form1" method="post" action="pass.asp?act=xg">
  <table width="641" class="list" cellspacing="1">
  <tr><th colspan="2">
  密码修改</th></tr>
  <tr><td width="45%">
  <p align="right">用户名：</td><td width="53%">
  <input type="text" name="username" value="<%=rs("username")%>"></td></tr>
  <tr><td width="45%"><p align="right">新密码：</td><td width="53%"><input type="text" name="password"></td></tr>

  <tr><td width="98%" colspan="2">    
	<p align="center">    <input type="submit" name="Submit" value="修  改">
    <input type="reset" name="Submit2" value="重  置"></td></tr>
  </table>
</form>
<%
end if
rs.close
conn.close
set rs=nothing
set rs1=nothing
set conn=nothing
%>