update_editadmin.asp

来自「一套企业全站」· ASP 代码 · 共 63 行

ASP
63 行
字号 
<!--#include file="conn.asp"-->
<!--#include file="chkmanage.asp"-->
<!--#include file="inc/const1.asp"-->
<!--#include file="inc/const2.asp"-->
<!--#include file=md5.asp -->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'          Jimmy中文站留言簿 Version 1.09	     '
'		 http://www.lunji.com		     '
'	         Powered by BlueSailor	             '
'	 QQ:428140   E-MAIL: bluesailor@etang.com    '
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'*****************************************************
'(特别声明：共享软件，未经本人同意，不得用于商业用途)
'*****************************************************
%>
<%
dim pass1,pass2,passtem
pass=request("pass")
pass1=request("pass1")
pass2=request("pass2")
if pass1="" then 
session("wrong")="密码不能为空" 
response.redirect "error.asp"
end if 
if pass1<>pass2 then
session("wrong")="两次输入的密码不同"  
response.redirect "error.asp"
end if
name=request("name")
pass3=request("pass1")
pass3=MD5(pass3)
pass=MD5(pass)
set rs=server.createobject("adodb.recordset")
sql="select * from [admin] where id=1"
rs.open sql,conn,1,3
if pass<>rs("password") then
rsclose()
connclose() 
session("wrong")="旧密码错误!"
response.redirect "error.asp"   
end if

rs("username")=name
rs("password")=pass3
	rs.update
rsclose()
connclose() 
%>
<%
Response.Cookies("lunjilyb")("username")=request("name")
Response.Cookies("lunjilyb")("password")=MD5(pass3)
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>成功修改--<%=lybtitle%>
</title>
<!--#include file="style.asp"-->
</head><body>
<!--#include file="menu.asp"--><br><br>
<p align="center">成功修改!</p> 
</body>

update_editadmin.asp - 源码说明

本页面展示了「一套企业全站」中的 update_editadmin.asp 源码文件，采用 ASP 编程语言编写，共 63 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与企业网站相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?