<%
If session("admin")="admin" Then
amain=session("admin")
%>
修改密码
<%
aname=request.Form("mname")
apwd=request.Form("xpwd")
set rs=server.CreateObject("adodb.recordset")
sql="update admin set admin_password='"&apwd&"' where admin_name='"&amain&"'"
conn.Execute(sql)
conn.close
Set conn = nothing
response.write ("")
}
else
response.write ("")
End If
%>