手机WAP编程

开发平台：

ASP/ASPX

admin_pwd.asp：源码内容

							<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin_sb.asp"-->
<!--#include file="config.asp" -->
<!--#include file="inc/md5.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" rev="stylesheet" href="inc/control.css" type="text/css" media="all" /></head>
<body class="ContentBody">
<div class="MainDiv">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="CContent">
  <tr>
    <th class="CTitle">修改管理账号密码
  </tr>
  <tr>
    <td class="CPanel">
        <div id="updateInfo" style="background:ffffe1;border:1px solid #89441f;padding:4px;display:none"></div>
	<table width="100%" border="0" cellpadding="0" cellspacing="0">
	 <tr>
		 <td valign="top" style="padding:5px;width:140px"><img src="images/Icon/ControlPanel.png" width="128" height="128"/></td>
		 <td valign="top">
<%
if request.Form("new_pwd1")="" and request.Form("new_pwd2")="" then
%>
		 <form name="form1" method="post" action="">
		 <div align="left" style="padding:5px;line-height:170%;clear:both;font-size:12px">
		     <p> <b>输入新账号:</b>			     
			     <input name="old_pwd" type="tetx" size="20" style="border:1px solid #999">
			     <br/>
			     <b>输入新密码:</b>			     
			     <input name="new_pwd1" type="password" id="new_pwd1" size="20" style="border:1px solid #999">
			     <br/>
		         <b>确认新密码:</b>		         
		         <input name="new_pwd2" type="password" id="new_pwd2" size="20" style="border:1px solid #999">
		         </p>
		     <p>
		        &nbsp;<input type="submit" name="Submit" value="提交" style="border:1px solid #999">
		       <input type="reset" name="Submit2" value="重置"  style="border:1px solid #999">
		       <br/>
		          </p>
		 </div>     
		 </form>
<%
else
	If request.Form("new_pwd1")<>request.Form("new_pwd2") then
		response.write("两次的密码不一致<br><br><a href='javascript:history.go(-1);'>请返回重新输入</a>")
	else
		Set rs = Server.CreateObject("ADODB.Recordset")
		SQL="select * from [dwap_admin] where id=1"
		rs.Open SQL,Conn,1,3
			rs("dwap_name") = request.Form("old_pwd")
			rs("dwap_pass") = request.Form("new_pwd1")
			rs.update
			response.write("更新密码成功！")
		rs.close
		set rs = nothing
		
	end if
end if
%> 
	 </tr>
	</table>
</td></tr></table>
</div>
</body>
</html>

						