save.asp

鄂尔多斯建站网全站程序(冬季修正版)

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%
if request("action")="save" then
dim d_webname,d_pass1,d_pass2
d_webname=request("d_webname")
d_pass1=trim(request("d_pass1"))
d_pass2=trim(request("d_pass2"))
if d_pass1="" then
response.write("<script>alert('用户密码不能为空！');history.go(-1)</script>")
response.end
end if
if d_pass2="" then
response.write("<script>alert('重复密码不能为空！');history.go(-1)</script>")
response.end
end if
if d_pass1<>d_pass2 then
response.write("<script>alert('修改密码与重复密码不同！');history.go(-1)</script>")
response.end
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from duser where d_webname='"&d_webname&"'"
rs.open sql,conn,1,3
rs("d_pass1")=xy20_md5(d_pass1,"short")
rs.Update
session("d_webname")=rs("d_webname")
session("d_pass1")=rs("d_pass1")
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
response.redirect("index.asp")
%>
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>