<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%response.codepage="936"%>
图片列表
<%
If request.form("action")="editsave" Then
admin_name=xianzhi(request.Form("adminname"))
admin_psd0=xianzhi(request.Form("password0"))
admin_psd1=xianzhi(request.Form("password1"))
admin_psd2=xianzhi(request.Form("password2"))
If md5(mid(md5(admin_psd0),4,12))<>myadminpass Then
Call Alert("原密码输入错误",-1)
End If
If Len(Trim(admin_psd1))<5 Then
Call Alert("密码过短，请输入至少5个字符",-1)
End If
If admin_psd1<>admin_psd2 Then
Call Alert("两次输入的密码不一致",-1)
End If
set rs=server.createobject("adodb.recordset")
sql="select * from jr_admin where id="&myadminid
rs.open sql,conn,1,3
rs("admin")=admin_name
rs("password")=md5(mid(md5(admin_psd1),4,12))
adminpwd=md5(mid(md5(admin_psd1),4,12))
rs.update
rs.close
Set rs=Nothing
Set sql=Nothing
session(QiyeSiteCookie)=admin_name
Response.Cookies(QiyeSiteCookie)(QiyeSiteCookie&"_psd")=adminpwd
response.redirect "password.asp"
End If
%>
<%
Function xianzhi(str)
for i=1 to len(trim(str))
a=mid(str,i,1)
if ( Not (asc(a)<123 and asc(a)>96 ) And Not (asc(a)<91 and asc(a)>64) And Not (asc(a)<58 and asc(a)>47) And Not Asc(a)=95) then
Call Alert("只能输入英文字母和数字及下划线，请重新输入"&i&"",-1)
end if
Next
xianzhi=str
End Function
%>