⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 changepwd.asp

📁 <虚拟主机站点管理系统>呵呵是我们公司的一个小产品
💻 ASP
字号:

<%
session("title")="修改密码"
session("headline")="首页 -> 修改密码"


set lqsm_config= server.CreateObject("lqsm.config")
%>


<!--#include file="head.asp"-->
 
 <br><br><br>
 <script language='JavaScript'>
<!--
function check_input()
{
	web=document.Web;
	
	if(web.UserName.value=='')
	{
		alert('管理员用户名不能为空');
		web.UserName.focus();
		return false;
	}		
	
	if(web.UserPass.value=='')
	{
		alert('管理员密码不能为空');
		web.UserPass.focus();
		return false;
	}				
	
}
//-->
</script>
<%
UserName=request("UserName")
UserPass=request("UserPass")
WebAction=request("WebAction")

if WebAction="" then
ret = lqsm_config.CfgManage("query",WebHomeDir,MailHomeDir,WebIPList,UserName,UserPass,HostID,RegCode,ErrMsg)
%>
<form name="Web" action="changepwd.asp" onsubmit='return check_input()'>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=60% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">请输入用户名和密码</td></tr>
<input name="WebAction" type="Hidden" value="changepwd">
<tr><td>管理员用户名</td><td><input name="UserName" class="form" type="Text" maxlength="100" size="30"  value="<%=UserName%>"></td></tr>
<tr><td>管理员密码</td><td><input name="UserPass" class="form" type="Password" maxlength="100" size="30"  value="<%=UserPass%>"></td></tr>
<tr><td align="center" colspan="2"><input type="Submit" value="修  改" style='text-align:center'> <input type='button' value='返  回' onclick='history.go(-1)' name='button' style='text-align:center'>
</table>
</form>
<%
response.end
end if%>
<%

if WebAction="changepwd" then
ret = lqsm_config.CfgManage("changepwd",WebHomeDir,MailHomeDir,WebIPList,UserName,UserPass,HostID,RegCode,ErrMsg)
if ret = 0 and ErrMsg="" then
response.write "<table width='80%' align='center'><tr><td align='center'>密码修改成功</td></tr></table>"
else
response.write "<table width='80%' align='center'><tr><td align='center'>密码修改失败:错误码=["&ret&"],描述=["&ErrMsg&"]</td></tr></table>"
end if
end if
%>

<!--#include file="bottom.asp"-->

⌨️ 快捷键说明

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