kobewang

Application("aimingapi")=rsys("aimingapi")        '爱名网userid
Application("aimingpass")=rsys("aimingpass")        '爱名网API密码
Application("aimingrid")=rsys("aimingrid")        '爱名网cn域名联系人id

  <tr> 
		<td align="right" nowrap class="tdbg">爱名网的接口：<br></td>
		<td class="tdbg">允许用户选择域名注册接口：
 
<input type="radio" name="api4" value="0" <%if Application("api4")=0 then%>checked<%end if%>>
否 　　
<input type="radio" name="api4" value="1" <%if Application("api4")=1 then%>checked<%end if%>>
是</td>
	  </tr>
 
    <tr>
      <td align="right" nowrap class="tdbg">API用户名：</td>
      <td class="tdbg"><input name="aimingapi" type="text" id="aimingapi" value="<%=rs("aimingapi")%>"></td>
    </tr>
	    <tr>
      <td align="right" nowrap class="tdbg">API密码：</td>
      <td class="tdbg">
          <input name="aimingpass" type="password" id="aimingpass" value="<%=rs("aimingpass")%>">
          注:填写www.22.cn的api密码</td>
    </tr>
		    <tr>
      <td align="right" nowrap class="tdbg">爱名网cn模板联系人ID：</td>
      <td class="tdbg">
          <input name="aimingrid" type="text" id="aimingrid" value="<%=rs("aimingrid")%>">
</td>
    </tr>

rs("aimingapi")=request.Form("aimingapi")'爱名网接口
rs("aimingpass")=request.Form("aimingpass")
rs("aimingrid")=request.Form("aimingrid")
 
Application("aimingapi")=rs("aimingapi")'爱名网接口
Application"aimingpass")=rs("aimingpass")
Application("aimingrid")=rs("aimingrid")

If Application("api4")=1 Then opt=opt&"<option "&sel4&" value='4'>爱名网</option>"&vbCrLf

If Domain_API=4 Then '爱名网接口
'Response.Write("爱名网")
 
if Application("aimingapi")="" or Application("aimingpass")="" then Response.Redirect "e.asp?e=爱名网域名接口没有设置，请登录后台-系统设置进行设置"
dns1="ns1.22.cn"
dns2="ns2.22.cn"
sign=MD5(MD5(Application("aimingapi"))&MD5(Application("aimingpass"))&MD5(dn))
 
if(GetDomaintype(dn)<>2) then
''''''使用用户信息注册begin'''''''''''''''''''
postcon="sign="&sign&"&mode=reg&userid="&Application("aimingapi")&"&domainname="&dn&"&city="&ucity1&"&email="&uemail&"&fax="&ufaxa&ufaxn
postcon=postcon&"&phone="&utela&uteln&"&fname="&uname1&"&lname="&uname1&"&fnameE="&uname2&"&lnameE="&uname2&"&province="&uprov
postcon=postcon&"&zipcode="&uzip& "&street=" & uaddr1 & "&streetE=" & uaddr2 & "&org=" & rname1 & "&orgE=" & rname2
'''''''使用用户信息注册end'''''''''''''''''''''
else  ''cn域名使用联系人注册
'''''''使用联系人ID注册begin'''''''''''''''''''
 
postcon="sign="&sign&"&mode=reg&userid="&Application("aimingapi")&"&domainname="&dn&"&contactorid="&Application("aimingrid")&"&dns1="&dns1&"&dns2="&dns2&"&year="&request.Form("period")
'''''''使用联系人ID注册end'''''''''''''''''''
end if
 
'Response.Redirect "e.asp?e="&Application("aimingapi")
apiurl="http://api.22.cn/openapi.aspx"
retdns=ONLY_POST(apiurl,apiurl,postcon)
 
ec=retdns
'Response.Redirect "e.asp?e="&postcon
 
if(instr(1,ec,"300")=0) then
ef=True
ec="操作失败，请联系管理员！"+ec
Ming_oplog session("username"),"失败","款项已扣，域名"&dn&"注册失败信息:"&retdns,"0","域名产品"
Response.Redirect "e.asp?e="&ec
end if
end if

'爱名网续费begin
if dsdom("Domain_API")=4 then
 
dn=dsdom("Domain")
dim    sign,postcon,apiurl,retdns
userid=Application("aimingapi")        '爱名网ID
password= Application("aimingpass")      '爱名网密码
domain=lcase(utf8(dsdom("Domain")))
sign=MD5(MD5(userid)&MD5(password)&MD5(domain))
postcon="sign="&sign&"&mode=renew&userid="&userid&"&domainname="&dn&"&year="&yearstr
apiurl="http://api.22.cn/openapi.aspx"
retdns=ONLY_POST(apiurl,apiurl,postcon)
'retdns="500"
'Response.Redirect "e.asp?e="&retdns
if(instr(1,retdns,"500")=0) then
ef=True
ec="续费失败，可能是网络不正常，也可以重试一次！出错代码是："&server.URLEncode (retdns)&"向注册商提交的信息是:"&server.URLEncode (body)
Ming_oplog ds("username"),"失败","域名注册时由于"&retdns&"等原因操作失败:"&dsdom("Domain"),Request("id"),"域名产品"
dsdom("postcon")=retdns
dsdom.update
Else
dsdom("status")="正常"
Ming_oplog ds("username"),"信息","域名续费返回信息 "&retdns&" 操作域名:"&dsdom("Domain"),Request("id"),"域名产品"
end if
 
end if
'爱名网续费end

'爱名网修改密码begin
if dsdom("Domain_API")=4 Then
userid=Application("aimingapi")        '爱名网ID
password= Application("aimingpass")      '爱名网密码
domain=lcase(utf8(dsdom("Domain")))
 
dim    sign,postcon,apiurl,retdns
sign=MD5(MD5(userid)&MD5(password)&MD5(domain))
Randomize
domainpwd        =Cstr(Int((99999999 - 100000 + 1) * Rnd + 100000))
domainpass=domainpwd
postcon="sign="&sign&"&mode=modifypwd&userid="&userid&"&domainname="&domain&"&domainpwd="&domainpwd
apiurl="http://api.22.cn/openapi.aspx"
retdns=ONLY_POST(apiurl,apiurl,postcon)
'    Response.Redirect "e.asp?e="&"userid="&MD5(userid)&"pwd="&md5(password)&"sign="&sign&"domain="&md5(domain)
if(instr(1,retdns,"328")=0) then
ef=True
ec="操作失败，请联系管理员！"+retdns
Response.Redirect "e.asp?e="&retdns
end if
'Response.Redirect "e.asp?e="&domainpass
dsdom("inipass")=domainpwd
dsdom.update
end if
'爱名网修改密码end