modidomaininfodo.asp

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

<% ModuleCode="M0310" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="domain_Manage_class.asp"-->
<%
function tempreg()
	'********定义类*******'
	DNID=request("DNID")
	strSQL="Select * from T_DNS_AllDN Where DNID='" & DNID & "'"
	Set Rs= Server.CreateObject("ADODB.Recordset")
	Rs.open strSQL,Cn
	If Rs.Eof Then	
		Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此域名或者您没有权限！</p>"
		exit function
	end if
	
	dim manage
	set manage = new manage_domain

	manage.dn_id=DNID
	manage.customer_id=session("UserID")
	manage.customer_password=session("UserPSW")
	
	manage.pwd=rs("DNPSW")
	manage.domaintype=rs("DNType")
	manage.domain=rs("DomainName")
	manage.pw=rs("DNPSW")
	manage.apppurpose=rs("apppurpose")
	manage.nexuscategory=rs("nexuscategory")

	if request("pp")="1" then
		manage.contacttype=4
		manage.name=request("reg_name")
		manage.name_cn=request("Reg_name_cn")
		manage.org=request("reg_org")
		manage.org_cn=request("Reg_org_cn")
		manage.cc=trim(request("reg_country"))
		manage.sp=request("reg_state")
		manage.city=request("reg_city")
		manage.street1=request("reg_street1")
		manage.street2=request("reg_street2")
		manage.pc=request("reg_pc")
		manage.voice=request("reg_tel")
		manage.fax=request("reg_fax")
		manage.email=request("reg_email")
	end if
	if request("pp")="2" then
		manage.contacttype=1
		manage.name=request("admin_name")
		manage.name_cn=request("admin_name_cn")
		manage.org=request("admin_org")
		manage.org_cn=request("admin_org_cn")
		manage.cc=trim(request("admin_country"))
		manage.sp=request("admin_state")
		manage.city=request("admin_city")
		manage.street1=request("admin_street1")
		manage.street2=request("admin_street2")
		manage.pc=request("admin_pc")
		manage.voice=request("admin_tel")
		manage.fax=request("admin_fax")
		manage.email=request("admin_email")
	end if
	if request("pp")="3" then
		manage.contacttype=2
		manage.name=request("tel_name")
		manage.name_cn=request("tel_name_cn")
		manage.org=request("tel_org")
		manage.org_cn=request("tel_org_cn")
		manage.cc=trim(request("tel_country"))
		manage.sp=request("tel_state")
		manage.city=request("tel_city")
		manage.street1=request("tel_street1")
		manage.street2=request("tel_street2")
		manage.pc=request("tel_pc")
		manage.voice=request("tel_tel")
		manage.fax=request("tel_fax")
		manage.email=request("tel_email")
	end if
	
	if request("pp")="4" then
		manage.contacttype=3
		manage.name=request("money_name") 
		manage.name_cn=request("money_name_cn")
		manage.org=request("money_org")    	
		manage.org_cn=request("money_org_cn")
		manage.cc=trim(request("money_country"))
		manage.sp=request("money_state")   
		manage.city=request("money_city")  
		manage.street1=request("money_street1")
		manage.street2=request("money_street2")
		manage.pc=request("money_pc")
		manage.voice=request("money_tel")
		manage.fax=request("money_fax")
		manage.email=request("money_email")
	end if

	call manage.InitDB()
	call manage.InitSocket()
	if not manage.err_code=0 then
		response.write manage.err_code
	else
		call manage.ChangeReg()
		
		if not manage.err_code=0 then
			response.write "<table class='uaeww'><tr><th rowspan=2></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>"
		else
			strSQL="SP_DNModify '3',"&session("UserID")&",'"&manage.dn_id&"','1','2','3','"&manage.contacttype&"','"&manage.name&"','"&manage.name_cn&"','"&manage.org&"','"&manage.org_cn&"','"&manage.cc&"','"&manage.cc&"','"&manage.sp&"','"&manage.city&"','"&manage.street1&"','"&manage.street2&"','"&manage.pc&"','"&manage.voice&"','"&manage.fax&"','"&manage.email&"',',"&Request.ServerVariables("REMOTE_ADDR")&"'"
			'response.write strSQL
			set Rs=Cn.Execute(strSQL)

			response.write "<table class='uaeww'><tr><th rowspan=2></th>"
			response.write "</th><tr><th align=center><font color=red>"&rs("msg")&"!</font>"
			response.write "</th></tr></table>"
			rs.close
			set rs=nothing	
		end if
	end if
end function

call tempreg()
%>

<%
Call PrintPageBottom
%>