<%@ language="VBScript"%>
<%response.Expires = 0%>

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from based_guanli where Id=" & request.querystring("uid")
rs.open sqltext,conn,3,3

'更新管理員密碼到數據庫
rs("UserName")=request.form("uid")
rs("PassWord")=encrypt(request.form("pwd1"))
rs.update
rs.close
conn.close
response.redirect "Manage_Admin.asp"
%>