modify.asp

本系统功能如下： 1.本系统提供了单选题

<%@ language=VBScript %>
<%
if session("AdminName") = "" then
    response.Redirect "index.htm"
end if
%>

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<% 
set rec=server.CreateObject("adodb.recordset")
sqlstr="select * from admin where ID="&request("ID")&""
rec.open sqlstr,conn,1,3
if rec.bof and rec.eof then
response.write "对不起!数据中没有相关数据!"
else
name=request("username")
if name="" then
name=dulei
end if
mima=request("password")
if mima="" then
mima=123456
end if
password=md5(mima)
rec("username")=name
rec("password")=password
rec.update
rec.close
set rec=nothing
conn.close
set conn=nothing
session("AdminName") = ""
response.write "<script>alert('修改密码成功！！！\n\n    ---杜子电脑学习网\n\n        "&now()&"');location.href='default.asp'</script>"
end if
%>