modidomainpassdo.asp

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

<% ModuleCode="M0310" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
DNID=Request.Form("ID")
%>
<!--#include file="domain_manage_class.asp"-->
<%
strSQL="Select * from T_DNS_ALLDN Where DNID='" & DNID & "'"
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="DomainMenu.asp"-->
<%
	if (trim(request("password"))<>trim(request("password2"))) or trim(request("password"))="" then
		response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp;新密码不合要求！</font><br>"
	else
		set manage=new manage_domain
		manage.DN_ID=DNID
		manage.customer_id=session("UserID")
		manage.customer_password=session("UserPSW")
		manage.clID=session("UserID")
		manage.pwd=rs("DNPSW")
		manage.domaintype=rs("DNType")
		manage.domain=rs("DomainName")
		manage.dns1=rs("DNS1Name")
		manage.dns2=rs("DNS2Name")
		manage.pw=trim(request("password"))
		
		call manage.InitDB()
		call manage.InitSocket()
		if not manage.err_code=0 then
			response.write manage.err_code
		else
			call manage.changepwd()
			
			if not manage.err_code=0 then
				response.write "<table class='uaeww'><tr><th rowspan=2><img src='../../image/9.gif'></th>"
				response.write "<th align=left>操作失败，错误代码："&manage.err_code
				response.write "</th><tr><th align=left>错误信息："&err_msg(manage.err_code)
				response.write "</th></tr></table>"
				Call PrintPageBottom
				response.end
			else
				set Rs2=Cn.Execute("SP_DNModify '2',"&session("UserID")&",'"&manage.DN_ID&"','"&manage.dns1&"','"&manage.dns2&"','"&manage.pw&"','4','5','6','7','8','9','10','11','12','13','14','15','16','17','18',',"&Request.ServerVariables("REMOTE_ADDR")&"'")
				if rs2("result")="0" then
					err_code=0
				end if				
				response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp;" & rs2("msg") & "</font><br>"
				rs2.close
				set rs2=nothing
			end if
		end if
		'strSQL="Update T_DNS_AllDN Set PSW='" & Request.Form("password") & "' Where VHID='" & VHID & "'"
		'Cn.Execute(StrSQL)
		'Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','修改域名密码','" & DNID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
		'Response.Write "<br><br><P align='center' class='titletext'>修改域名密码成功！</p>"
	end if
end if

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