save_setsapass.asp

一个相当不错的考试系统源代码

<!--#include file="../include/conn2.asp"-->
<!--#include file="md5.asp"-->
<%
RoleId=request("SaveModfiyId")
if RoleId="" or isNull(RoleId) then
	RoleId=session("saLoginRole")
end if

'RoleId=1
SaNameT=request("SaName")
SaPassT=request("SaPass")
SaPassT2=request("SaPass2")
if SaPassT <> SaPassT2 then
response.Write("<script language = javascript>alert('两次密码输入不一致');javascript:history.go(-1)</script>")
response.End()
elseif len(SaPassT)<5 then
response.Write("<script language = javascript>alert('密码长度不能小于5位');javascript:history.go(-1)</script>")
response.End()
end if
SaPassT=MD5(SaPassT)
if RoleT_1="" then
	RoleT_1=False
end if
if RoleT_2="" then
	RoleT_2=False
end if
if RoleT_3="" then
	RoleT_3=False
end if
adminSql="update admin set SANAME='"&SaNameT&"',SAPASS='"&SaPassT&"'where ID="&RoleId

set rsT=conn.execute(adminSql)
Session("sa_help")="密码设置完毕！"
response.Redirect("setsapass.asp")
conn.close
set conn=nothing
%>