check_readmin.asp

功能最强大的ASP网站

<!--#include file="conn.asp" -->
<!--#include file="setting.asp"-->
<!--#include file="md5.asp"-->
<%
admin_name=session("admin")
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from admin where name='"&admin_name&"'"
rs.Open sql,conn,3,2
%>
<%
if trim(Request("Action"))="Modify"  then
 if request.Form("rename") = "" then 
response.Redirect("admin_wrong.asp?url=re_admin.asp&reason=你可能没填写管理员用户名!")
end if
 if request.Form("repass") = "" then 
response.Redirect("admin_wrong.asp?url=re_admin.asp&reason=你可能没填写管理员密码!")
end if
if trim(Request("Action2"))="Modify2" then
rs("name")=request.Form("rename")
rs("password")=md5(request.Form("repass"))
rs.update
response.Redirect("admin_right.asp?url=re_admin.asp&reason=修改成功,请牢记你修改后的用户名和密码.")
%>

<%
end if
rs.close 
Set rs = Nothing
conn.close 
set conn=Nothing
end if
%>