modiresdnpassdo.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 37 行

<% ModuleCode="M0315" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
DNID=Request.Form("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from T_DNS_ALLResDN Where ResDNID='" & DNID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此域名或者您没有权限！</p>"
else
%>
<!--#include file="ResDNMenu.asp"-->
<%
	if (trim(request("password"))<>trim(request("password2"))) or trim(request("password"))="" then	
		Response.Write "<br><br><P align='center' class='titletext'>预修改密码不合修改条件，修改不成功！</p>"
	else
		strSQL="Update T_DNS_AllResDN Set DomainPSW='" & Request.Form("password") & "' Where ResDNID='" & DNID & "'"
		Cn.Execute(StrSQL)
		Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllResDN','修改解析域名密码','" & DNID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
		Response.Write "<br><br><P align='center' class='titletext'>修改解析域名密码成功！新密码为："& request("password")& "</p>" 
	end if
end if

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