<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canshowpro")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef Then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist order by id asc"
		ds.Open Sql,conn,1,1
if ds.eof Then Response.Redirect "e.asp?e=您需要先给域名定价后才能单独设置不同接口的价格."

if Application("domaincansetM")<>true Then Response.Redirect "e.asp?e=请注意要先启用系统参数中的[是否允许单独设置每个域名接口的注册价格]功能后,才能设置"
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="product-domain.asp"><font color="#FFFFFF">域名定价</font></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7" background="img/midtop.gif">&nbsp;</td>
          <td width="130" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="product-domain2.asp"><font color="#FFFFFF">多接口首年注册价设置</font></a></td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD align="left">&nbsp;</TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif" id=rightid>&nbsp;</TD>
      <TD height="300" align="center" vAlign=top bgcolor="#FFFFFF"><DIV class="tableborder"><table width="100%"  border="0" cellspacing="1">
        <tr >
          <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">设置各类域名的价格</font></td>
        </tr>
        <tr bgcolor="#E4EAF2">
          <td width="9%" align="right">&nbsp;</td>
          <td width="91%" align="left">
		  <form action="product-domain2-sub.asp" method="post" name="form1">
              <br>
              　
              <%
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist order by id asc"
		ds.Open Sql,conn,1,1
i=1
while not ds.eof%>
　<strong><%=ds("Domaintype")%>　</strong>(<%=ds("Domstr")%>)<br>
<br>

<%for regapi=1 to 7%>
<%if regapi=1 then%>新网互联<%end if%>
<%if regapi=2 then%>新网<%end if%>
<%if regapi=3 then%>商务中国<%end if%>
<%if regapi=4 then%>中国频道<%end if%>
<%if regapi=5 then%>万网<%end if%>
<%if regapi=6 then%>API6<%end if%>
<%if regapi=7 then%>外国接口<%end if%>：<br>


　 零售价：
<input name="usermoney<%=ds("id")%>API<%=regapi%>" type="text" value="<%if not isnull(ds("usermoney"&"API"&regapi)) then%><%=ds("usermoney"&"API"&regapi)%><%else%><%=ds("usermoney")%><%end if%>" size="3" maxlength="5">
元1年　默认提供给代理的价格：
<input name="usermoneyagn<%=ds("id")%>API<%=regapi%>" type="text" value="<%if not isnull(ds("usermoneyagn"&"API"&regapi)) then%><%=ds("usermoneyagn"&"API"&regapi)%><%else%><%=ds("usermoneyagn")%><%end if%>" size="3" maxlength="4">
元<br>
<%for iqx=2 to 5%>
　 零售价：<input name="usermoney<%=ds("id")%>year<%=iqx%>API<%=regapi%>" type="text" value="<%if not isnull(ds("year"&iqx&"API"&regapi)) then%><%=ds("year"&iqx&"API"&regapi)%><%else%><%=ds("year"&iqx)%><%end if%>" size="3" maxlength="5">
元<%=iqx%>年　默认提供给代理的价格：
<input name="usermoneyagn<%=ds("id")%>year<%=iqx%>API<%=regapi%>" type="text" value="<%if not isnull(ds("year"&iqx&"agn"&"API"&regapi)) then%><%=ds("year"&iqx&"agn"&"API"&regapi)%><%else%><%=ds("year"&iqx&"agn")%><%end if%>" size="3" maxlength="4">
元<br>
<%next%><br>

<%next%>


<br>

<br>
<%i=i+1
ds.movenext
wend%>
<br>
　
<input type="submit" name="Submit" value="修改">

<br>
<br>
              <br></form></td>
        </tr>
      </table></div></TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
