<!--#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®istrant&"</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®istrant&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 %> [url=http://files.jb51.net/upload/AspSocket.rar]aspsocket.dll文件下载[/url]