AspSocket.dll文件下载与asp代码实例

<!--#include file="public.asp"-->
<!--#include file="err.asp"-->
<%
'编程者：杨荣灿
'内容：SOCKET发送及接收EPP命令类定义
'汲及表：无

%>
    <%'###########################################################'%>
    <%'#             　　      socketclient　                    #'%>
    <%'#                  客户端SOCKET                     #'%>
    <%'#                                                 #'%>
    <%'###########################################################'%>
<%

class socketclient
public socket
public tempxml
'public clID,pwd
public re_server,send_client
public user_id
public err_msg
public err_code

'---------------------------------
'    tcp连接
'---------------------------------
function socket_conn(host,port)

on error resume next
Set socket = CreateObject("ASPSocket.MySocket")
    socket.Create 
    socket.Connect host,port 

    
        socket.SendTimeOut = 10000
        socket.RecvTimeOut = 10000
        socket.receive(2048)
                socket_conn =0
                err_code=0


end function
'-------------------------------------
'    socket读取socket_read()
'-------------------------------------
public function socket_read(i)
socket_read=Socket.receive(i)
end function

'-------------------------------------
'    用户连接socket_login()
'-------------------------------------
public function socket_login(clID,pwd)
on error resume next
dim strtemp1
dim clTRID
clTRID=now()&clTRID_create()
strtemp1="<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&"?>"
strtemp1=strtemp1&"<epp><command><creds><clID>"
strtemp1=strtemp1&clID
strtemp1=strtemp1&"</clID><options><version>1.0</version><lang>en</lang></options></creds><clTRID>"
strtemp1=strtemp1&clTRID
strtemp1=strtemp1&"</clTRID><login><chksum>"
strtemp1=strtemp1&md5(clID&md5(pwd)&clTRID&"login")
strtemp1=strtemp1&"</chksum></login></command></epp>"
socket.send strtemp1 
send_client=strtemp1
re_server=socket.receive(2048)
if not find_msg(re_server)=1000 then
socket_login=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5000
else
err_code=0
end if
end function
'-------------------------------------
'    用户退出socket_logout
'-------------------------------------
function socket_logout(clID,pwd)
on error resume next
dim strtemp2
dim clTRID
clTRID=now()&clTRID_create()
strtemp2 = "<?xml version="&chr(34)&"1.0"&chr(34)&"encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&"?>"
strtemp2 = strtemp2&"<epp><command><logout/><unspec/><clTRID>"
strtemp2 = strtemp2&clTRID
strtemp2 = strtemp2&"</clTRID><chksum>"
strtemp2 = strtemp2&md5(clID&md5(pwd)&clTRID&"logout")&"</chksum></command></epp>"
 socket.send strtemp2
re_server=socket.receive(2048)
socket_logout=find_msg(re_server)&socket_err(find_msg(re_server))

end function

'----------------------------------------
'    创建联系人socket_create_contactor
'----------------------------------------
public function socket_create_contactor(clID,pwd,domaintype,name,name_m,org,org_m,street1,street2,city,sp,pc,cc,voice,fax,email,pw,apppurpose,nexuscategory)
on error resume next
dim strtemp3
dim clTRID
clTRID=now()&clTRID_create()
strtemp3 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&" ?>"
strtemp3 = strtemp3&"<epp xmlns="&chr(34)&"urn:iana:xml:ns:epp-1.0"&chr(34)&" xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)&" xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:epp-1.0 epp-1.0.xsd"&chr(34)&">"
strtemp3 = strtemp3&"<command><create><contact:create xmlns:contact="&chr(34)&"urn:iana:xml:ns:contact-1.0"&chr(34)&" xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:con tact-1.0 contact-1.0.xsd"&chr(34)&"><contact:domaintype>"
strtemp3 = strtemp3&domaintype&"</contact:domaintype><contact:ascii><contact:name>"
strtemp3 = strtemp3&name&"</contact:name><contact:name_m>"
strtemp3 = strtemp3&name_m&"</contact:name_m><contact:org>"
strtemp3 = strtemp3&org&"</contact:org><contact:org_m>"
strtemp3 = strtemp3&org_m&"</contact:org_m><contact:addr><contact:street1>"
strtemp3 = strtemp3&street1&"</contact:street1><contact:street2>"
strtemp3 = strtemp3&street2&"</contact:street2><contact:city>"
strtemp3 = strtemp3&city&"</contact:city><contact:sp>"
strtemp3 = strtemp3&sp&"</contact:sp><contact:pc>"
strtemp3 = strtemp3&pc&"</contact:pc><contact:cc>"
strtemp3 = strtemp3&cc&"</contact:cc></contact:addr></contact:ascii><contact:voice>"
strtemp3 = strtemp3&voice&"</contact:voice><contact:fax>"
strtemp3 = strtemp3&fax&"</contact:fax><contact:email>"
strtemp3 = strtemp3&email&"</contact:email><contact:pw>"
strtemp3 = strtemp3&pw&"</contact:pw></contact:create></create><unspec>AppPurpose="
strtemp3 = strtemp3&apppurpose&chr(32)&"NexusCategory="&nexuscategory&"</unspec><clTRID>"
strtemp3 = strtemp3&clTRID&"</clTRID><chksum>"
strtemp3 = strtemp3&md5(clID&md5(pwd)&clTRID&"crtcontact"&name&name_m&org&org_m&email)
strtemp3 = strtemp3&"</chksum></command></epp>"
socket.send strtemp3
send_client=strtemp3
re_server=socket.receive(2048)
'response.write re_server
if not find_msg(re_server)=1000 then
socket_create_contactor=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5001
else
err_code=0
end if
user_id=re_id(re_server)
end function
'----------------------------------------
'    修改联系人socket_update_contactor
'----------------------------------------
public function socket_update_contactor(clID,pwd,domaintype,domain,contacttype,name,org,street1,street2,city,sp,pc,cc,voice,fax,email,pw,apppurpose,nexuscategory)
on error resume next
dim strtemp4
dim clTRID
clTRID=now()&clTRID_create()
strtemp4 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&" ?>"
strtemp4 = strtemp4&"<epp xmlns="&chr(34)&"urn:iana:xml:ns:epp-1.0"&chr(34)&" xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)&" xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:epp-1.0 epp-1.0.xsd"&chr(34)&">"
strtemp4 = strtemp4&"<command><update><contact:update xmlns:contact="&chr(34)&"urn:iana:xml:ns:contact-1.0"&chr(34)&" xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:con tact-1.0 contact-1.0.xsd"&chr(34)&"><contact:domaintype>"
strtemp4 = strtemp4&domaintype&"</contact:domaintype><contact:domain>"
strtemp4 = strtemp4&dmain&"</contact:domain><contact:contacttype>"&contacttype&"</contact:contacttype><contact:ascii><contact:name>"
strtemp4 = strtemp4&name&"</contact:name><contact:org>"&org&"</contact:org><contact:addr><contact:street1>"
strtemp4 = strtemp4&street1&"</contact:street1><contact:street2>"&street2&"</contact:street2><contact:city>"&city
strtemp4 = strtemp4&"</contact:city><contact:sp>"&sp&"</contact:sp><contact:pc>"&pc&"</contact:pc><contact:cc>"&cc&"</contact:cc></contact:addr></contact:ascii><contact:voice>"
strtemp4 = strtemp4&voice&"</contact:voice><contact:fax>"&fax&"</contact:fax><contact:email>"&email&"</contact:email><contact:pw>"&pw
strtemp4 = strtemp4&"</contact:pw></contact:update></update><unspec>AppPurpose="&apppurpose&chr(32)
strtemp4 = strtemp4&"NexusCategory="&nexuscategory&"</unspec><clTRID>"&clTRID&"</clTRID><chksum>"
strtemp4 = strtemp4&md5(clID&md5(pwd)&clTRID&"updcontact"&domaintype&domain&contacttype&name&org&email)
strtemp4 = strtemp4&"</chksum></command></epp>"
socket.send strtemp4
re_server=socket.receive(2048)
if not find_msg(re_server)=1000 then
socket_update_contactor=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5002
else
err_code=0
end if
aa=strtemp4
end function
'----------------------------------------
'    注册域名socket_create_domain
'----------------------------------------
public function socket_create_domain(clID,pwd,vartype,name,period,ns1,ns2,registrant,admin,tech,billing,pw)
on error resume next
dim strtemp5
dim clTRID
clTRID=now()&clTRID_create()
strtemp5 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&"?><epp><command><create><domain:create><domain:type>"
strtemp5 = strtemp5&vartype&"</domain:type><domain:name>"&name&"</domain:name><domain:period>"&period
strtemp5 = strtemp5&"</domain:period><domain:ns1>"&ns1&"</domain:ns1><domain:ns2>"&ns2&"</domain:ns2><domain:registrant>"
strtemp5 = strtemp5&registrant&"</domain:registrant><domain:contact type="&chr(34)&"admin"&chr(34)&">"&admin
strtemp5 = strtemp5&"</domain:contact><domain:contact type="&chr(34)&"tech"&chr(34)&">"&tech
strtemp5 = strtemp5&"</domain:contact><domain:contact type="&chr(34)&"billing"&chr(34)&">"&billing
strtemp5 = strtemp5&"</domain:contact><domain:authInfo type="&chr(34)&"pw"&chr(34)&">"&pw
strtemp5 = strtemp5&"</domain:authInfo></domain:create></create><clTRID>"&clTRID&"</clTRID><chksum>"
strtemp5 = strtemp5&md5(clID&md5(pwd)&clTRID&"crtdomain"&vartype&name&period&ns1&ns2&registrant&admin&tech&billing&pw)
strtemp5 = strtemp5&"</chksum></command></epp>"
socket.send strtemp5
send_client=strtemp5
re_server=socket.receive(2048)
'response.write re_server
if not find_msg(re_server)=1000 then
socket_create_domain=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5003
else
err_code=0
end if
end function

'----------------------------------------
'    修改域名socket_update_domain
'----------------------------------------

function  socket_update_domain(clID,pwd,vartype,name,ns1,ns2,pw)
on error resume next
dim strtemp6
dim clTRID
clTRID=now()&clTRID_create()
strtemp6 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&"?><epp><command><update><domain:update xmlns:domain="&chr(34)&"urn:iana:xml:ns:domain-1.0"&chr(34)&"xsi:schema Location="&chr(34)&"urn:iana:xml:ns:domain-1.0domain-1.0.xsd"&chr(34)&"><domain:type>"
strtemp6 = strtemp6&vartype&"</domain:type><domain:name>"&name&"</domain:name><domain:rep><domain:ns1>"
strtemp6 = strtemp6&ns1&"</domain:ns1><domain:ns2>"&ns2&"</domain:ns2><domain:authInfo type="&chr(34)&"pw"&chr(34)&">"
strtemp6 = strtemp6&pw&"</domain:authInfo></domain:rep></domain:update></update><clTRID>"&clTRID&"</clTRID><chksum>"
strtemp6 = strtemp6&md5(clID&md5(pwd)&clTRID&"upddomain"&vartype&name&ns1&ns2&pw)
strtemp6 = strtemp6&"</chksum></command></epp>"
socket.send strtemp6
send_client=strtemp6
re_server=socket.receive(2048)

if not find_msg(re_server)=1000 then
socket_update_domain=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5004
else
err_code=0
end if
end function

'-------------------------------------------
'    检查域名socket_check_domain
'-------------------------------------------
function socket_check_domain(clID,pwd,vartype,name)
on error resume next
dim strtemp7
dim clTRID
clTRID=now()&clTRID_create()
strtemp7 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&"?><epp xmlns="&chr(34)&"urn:iana:xml:ns:epp-1.0"&chr(34)&"xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:epp-1.0 epp-1.0.xsd"&chr(34)&">"
strtemp7 = strtemp7&"<command><check><domain:check xmlns:domain="&chr(34)&"urn:iana:xml:ns:domain-1.0"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:domain-1.0 domain-1.0.xsd"&chr(34)&">"
strtemp7 = strtemp7&"<domain:type>"&vartype&"</domain:type><domain:name>"
strtemp7 = strtemp7&name&"</domain:name></domain:check></check><unspec/><clTRID>"
strtemp7 = strtemp7&clTRID&"</clTRID><chksum>"&md5(clID&md5(pwd)&clTRID&"chkdomain"&vartype&name)
strtemp7 = strtemp7&"</chksum></command></epp>"
socket.send strtemp7
send_client=strtemp7
send_client=strtemp7
re_server=socket.receive(2048)

if not find_msg(re_server)=1000 then
socket_check_domain =find_msg(re_server)&re_chk(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5005
else
if re_chk(re_server)="+" then
err_code=5005
else
err_code=0
end if
end if
end function

'----------------------------------------
'    删除域名socket_delete_domain
'----------------------------------------
function socket_delete_domain(clID,pwd,vartype,name)
on error resume next
dim strtemp8
dim clTRID
clTRID=now()&clTRID_create()
strtemp8 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&"?><epp xmlns="&chr(34)&"urn:iana:xml:ns:epp-1.0"&chr(34)&"xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:epp-1.0 epp-1.0.xsd"&chr(34)&">"
strtemp8 = strtemp8&"<command><delete><domain:delete xmlns:domain="&chr(34)&"urn:iana:xml:ns:domain-1.0"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:domain-1.0 domain-1.0.xsd"&chr(34)&">"
strtemp8 = strtemp8&"<domain:type>"&vartype&"</domain:type><domain:name>"&name&"</domain:name></domain:delete></delete><unspec/>"
strtemp8 = strtemp8&"<clTRID>"&clTRID&"</clTRID><chksum>"&md5(clID&md5(pwd)&clTRID&"deldomain"&vartype&name)
strtemp8 = strtemp8&"</chksum></command></epp>"
socket.send strtemp8
send_client strtemp8
re_server=socket.receive(2048)
if not find_msg(re_server)=1000 then
socket_delete_domain=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5006
else
err_code=0
end if
end function

'----------------------------------------
'    续费域名socket_renew_domain
'----------------------------------------
function socket_renew_domain(clID,pwd,vartype,name,period)
on error resume next
dim strtemp9
dim clTRID
clTRID=now()&clTRID_create()
strtemp9 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&"?><epp xmlns="&chr(34)&"urn:iana:xml:ns:epp-1.0"&chr(34)&"xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:epp-1.0 epp-1.0.xsd"&chr(34)&">"
strtemp9 = strtemp9&"<command><renew><domain:renew xmlns:domain="&chr(34)&"urn:iana:xml:ns:domain-1.0"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:domain-1.0 domain-1.0.xsd"&chr(34)&">"
strtemp9 = strtemp9&"<domain:type>"&vartype&"</domain:type><domain:name>"&name&"</domain:name><domain:period>"&period&"</domain:period></domain:renew></renew><unspec/>"
strtemp9 = strtemp9&"<clTRID>"&clTRID&"</clTRID><chksum>"&md5(clID&md5(pwd)&clTRID&"renewdomain"&vartype&name&period)&"</chksum></command></epp>"
socket.send strtemp9
send_client=strtemp9
re_server=socket.receive(2048)

if not find_msg(re_server)=1000 then
socket_renew_domain=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5007
else
err_code=0
end if
end function
'----------------------------------------
'    tcp断开连接socket_close()
'----------------------------------------
sub socket_close()
socket.close
end sub


'****************cn扩展******************
'****************************************
'****************************************
'****************************************

'----------------------------------------
'创建联系人socket_create_contactor_cn
'----------------------------------------
public function socket_create_contactor_cn(clID,pwd,domaintype,name,name_m,org,org_m,street1,street2,city,sp,pc,cc,voice,fax,email,pw,manager,industry)
on error resume next
dim strtemp9
dim clTRID
clTRID=now()&clTRID_create()
strtemp9 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&" ?>"
strtemp9 = strtemp9&"<epp xmlns="&chr(34)&"urn:iana:xml:ns:epp-1.0"&chr(34)&" xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)&" xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:epp-1.0 epp-1.0.xsd"&chr(34)&">"
strtemp9 = strtemp9&"<command><create><contact:create xmlns:contact="&chr(34)&"urn:iana:xml:ns:contact-1.0"&chr(34)&" xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:con tact-1.0 contact-1.0.xsd"&chr(34)&"><contact:domaintype>"
strtemp9 = strtemp9&domaintype&"</contact:domaintype><contact:ascii><contact:name>"
strtemp9 = strtemp9&name&"</contact:name><contact:name_m>"
strtemp9 = strtemp9&name_m&"</contact:name_m><contact:org>"
strtemp9 = strtemp9&org&"</contact:org><contact:org_m>"
strtemp9 = strtemp9&org_m&"</contact:org_m><contact:addr><contact:street1>"
strtemp9 = strtemp9&street1&"</contact:street1><contact:street2>"
strtemp9 = strtemp9&street2&"</contact:street2><contact:city>"
strtemp9 = strtemp9&city&"</contact:city><contact:sp>"
strtemp9 = strtemp9&sp&"</contact:sp><contact:pc>"
strtemp9 = strtemp9&pc&"</contact:pc><contact:cc>"
strtemp9 = strtemp9&cc&"</contact:cc></contact:addr></contact:ascii><contact:voice>"
strtemp9 = strtemp9&voice&"</contact:voice><contact:fax>"
strtemp9 = strtemp9&fax&"</contact:fax><contact:email>"
strtemp9 = strtemp9&email&"</contact:email><contact:pw>"
strtemp9 = strtemp9&pw&"</contact:pw></contact:create></create><unspec>"
'这一部分是扩展部分
strtemp9 = strtemp9&"<cnContact:create xmlns:cnContact="&chr(34)&"urn:iana:xml:ns:cntld:contact-1.0"&chr(34)&" xsi:sche"
strtemp9 = strtemp9&"maLocation="&chr(34)&"urn:iana:xml:ns:cntld:contact-1.0 cntld-contact-1.0.xsd"&chr(34)&">"
strtemp9 = strtemp9&"<cnContact:type>E</cnContact:type>"
strtemp9 = strtemp9&"<cnContact:supplemental>"
strtemp9 = strtemp9&"<cnContact:enterprise>"
strtemp9 = strtemp9&"<cnContact:manager>"&manager&"</cnContact:manager>"
strtemp9 = strtemp9&"<cnContact:industry>"&industry&"</cnContact:industry></cnContact:enterprise>"
strtemp9 = strtemp9&"</cnContact:supplemental></cnContact:create>"
strtemp9 = strtemp9&"</unspec><clTRID>"
strtemp9 = strtemp9&clTRID&"</clTRID><chksum>"
strtemp9 = strtemp9&md5(clID&md5(pwd)&clTRID&"crtcontact"&name&name_m&org&org_m&email)
strtemp9 = strtemp9&"</chksum></command></epp>"
socket.send strtemp9
send_client=strtemp9
re_server=socket.receive(2048)
'response.write re_server
if not find_msg(re_server)=1000 then
socket_create_contactor=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5001
else
err_code=0
end if
user_id=re_id(re_server)
end function



'----------------------------------------
'创建socket_dns_reg
'----------------------------------------
public function socket_dns_reg(clID,pwd,domaintype,hostname,hostaddr)
on error resume next
dim strtemp10
dim clTRID
clTRID=now()&clTRID_create()
strtemp10 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&"?>"
strtemp10 = strtemp10&"<epp xmlns="&chr(34)&"urn:iana:xml:ns:epp-1.0"&chr(34)&"xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:epp-1.0 epp-1.0.xsd"&chr(34)&">"
strtemp10 = strtemp10&"<command><create><host:create xmlns:host="&chr(34)&"urn:iana:xml:ns:host-1.0"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:host-1.0 host-1.0.xsd"&chr(34)&">"
strtemp10 = strtemp10&"<host:domaintype>"&domaintype&"</host:domaintype><host:name>"&hostname&"</host:name><host:addr ip="&chr(34)&"v4"&chr(34)&">"&hostaddr&"</host:addr></host:create></create>"
strtemp10 = strtemp10&"<unspec/><clTRID>"&clTRID&"</clTRID><chksum>"&md5(clID&md5(pwd)&clTRID&"crthost"&domaintype&hostname&hostaddr)&"</chksum></command></epp>"

socket.send strtemp10
send_client=strtemp10
re_server=socket.receive(2048)

if not find_msg(re_server)=1000 then
socket_renew_domain=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5008
else
err_code=0
end if
end function



'----------------------------------------
'更新socket_dns_update
'----------------------------------------
public function socket_dns_update(clID,pwd,domaintype,hostname,hostaddr_old,hostaddr_new)
on error resume next
dim strtemp11
dim clTRID
clTRID=now()&clTRID_create()
strtemp11 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&"?>"
strtemp11 = strtemp11&"<epp xmlns="&chr(34)&"urn:iana:xml:ns:epp-1.0"&chr(34)&"xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:epp-1.0 epp-1.0.xsd"&chr(34)&">"
strtemp11 = strtemp11&"<command><update><host:update xmlns:host="&chr(34)&"urn:iana:xml:ns:host-1.0"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:host-1.0 host-1.0.xsd"&chr(34)&">"
strtemp11 = strtemp11&"<host:domaintype>"&domaintype&"</host:domaintype><host:name>"&hostname&"</host:name><host:add><host:addr ip="&chr(34)&"v4"&chr(34)&">"&hostaddr_new&"</host:addr></host:add>"
strtemp11 = strtemp11&"<host:rem><host:addr ip="&chr(34)&"v4"&chr(34)&">"&hostaddr_old&"</host:addr></host:rem></host:update></update><unspec/><clTRID>"&clTRID&"</clTRID>"
strtemp11 = strtemp11&"<chksum>"&md5(clID&MD5(pwd)&clTRID&"updhost"&domaintype&hostname&hostaddr_new&hostaddr_old)&"</chksum></command></epp>"
socket.send strtemp11
send_client=strtemp11
re_server=socket.receive(2048)

if not find_msg(re_server)=1000 then
socket_renew_domain=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5009
else
err_code=0
end if
end function


'----------------------------------------
'删除socket_dns_del
'----------------------------------------
public function socket_dns_del(clID,pwd,domaintype,hostname)
on error resume next
dim strtemp12
dim clTRID
clTRID=now()&clTRID_create()
strtemp12 = "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"UTF-8"&chr(34)&" standalone="&chr(34)&"no"&chr(34)&"?>"
strtemp12 = strtemp12&"<epp xmlns="&chr(34)&"urn:iana:xml:ns:epp-1.0"&chr(34)&"xmlns:xsi="&chr(34)&"http://www.w3.org/2001/XMLSchema-instance"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:epp-1.0 epp-1.0.xsd"&chr(34)&">"
strtemp12 = strtemp12&"<command><delete><host:delete xmlns:host="&chr(34)&"urn:iana:xml:ns:host-1.0"&chr(34)&"xsi:schemaLocation="&chr(34)&"urn:iana:xml:ns:host-1.0 host-1.0.xsd"&chr(34)&">"
strtemp12 = strtemp12&"<host:domaintype>"&domaintype&"</host:domaintype>"
strtemp12 = strtemp12&"<host:name>"&hostname&"</host:name></host:delete></delete>"
strtemp12 = strtemp12&"<unspec/><clTRID>"&clTRID&"</clTRID><chksum>"&md5(clID&MD5(pwd)&clTRID&"delhost"&domaintype&hostname)&"</chksum></command></epp>"      
socket.send strtemp12
send_client=strtemp12
re_server=socket.receive(2048)

if not find_msg(re_server)=1000 then
socket_renew_domain=find_msg(re_server)&socket_err(find_msg(re_server))
err_msg=find_msg(re_server)
err_code=5010
else
err_code=0
end if
end function
end class
%>
aspsocket.dll文件下载

最新评论