modiuserpassdo.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0510" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
PostID=Request.Form("ID")
MailUser=Request.Form("UID")
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
strSQL="Select * from v_MailList Where PostID='" & PostID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此邮局或者您没有权限！</p>"
Else
%>
<!--#include file="MailMenu.asp"-->
<%
	if ChangeUserPassWord(Rs("ServerIP"),MailUser, Request.Form("password"))<>0 then
		Response.Write "<br><br><P align='center' class='titletext'>对不起, 邮局服务器已断开, 请重新尝试！</p>"
	else
		strSQL="Update T_DNS_AllPost Set PSW='" & Request.Form("password") & "' Where PostID='" & PostID & "'"
		Cn.Execute(strSQL)
		Cn.Execute("SP_UserOP "& session("UserID")& ",'N/A','邮局用户管理','" & PostID & "(" & MailUser & ")" & "','改密','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
		%>
		<br><br><br><P align='center' class='titletext'>修改邮局密码成功！
		<a href="ManageMailUser.asp?ID=<%=PostID%>" class="a2">返回</a>
		</p>
		<%
	end if
end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>