<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/present.asp" -->
<%
chk_log()
chk_newpwr 4,31,5
diytpe=5
If SafeRequest("snme")<>"" Then
	snme=SafeRequest("snme")
End If

If snme=""Then
 call errorpage(-2,"错误参数!")
end if
	conn.open constr
	query="select * from pdttpe where pt_tag='ot5'"
rs.open query,conn,1,1
if not rs.eof then
ptnme=trim(rs("pt_nme"))
end  if 
rs.close 

if session("sysclass")>=5 then
query="select * from v_ot5lst   where s_nme ='"&snme&"'"
elseif session("sysclass")>=4 then
query="select * from v_ot5lst  where s_nme ='"&snme&"'  and  ((("&session("sysarestr")&" or u_myare=0) and u_rotnme='') or u_rotnme='"&session("usrname")&"')"
 end if
 rs.open query,conn,1,1
	  if rs.recordcount<=0 then
      call errorpage(-2,"对不起，该记录不存在！")
      end if

%>
<%
			    proid=trim(rs("s_prd"))
query="select * from othcfg  where o_tpe="&diytpe
rs3.open query,conn,1,1

		%>
<!--#include virtual="/incs/top.asp"-->
<script language=javascript>
		function expl()
		{
		if (identity.style.display=="none")
		identity.style.display="block";
		else
		identity.style.display="none";
		}
		</script>
<table cellspacing=2 cellpadding=0 width="100%" border=0>
  <tbody> 
  <tr> 
    <td  colspan=2 valign="middle"> 
      <table class=line cellspacing=0 cellpadding=0 width="100%" 
                  border=0 align="center">
        <tbody> 
        <tr> 
          <td valign=bottom width="25%" height=20><b><%=ptnme%></b><a class=commonface  href="index.asp"><font color="#FF0000">（查询）</font></a></td>
          <td valign=bottom noWrap align=right 
                        width="75%"><a class=commonface   href="ot5_lst.asp?querytype=8">今天新申请</a> 
            | <a class=commonface   href="ot5_lst.asp?querytype=9">本周新申请</a> | 
            <a class=commonface   href="ot5_lst.asp?querytype=10">本周到期</a> | <a class=commonface   href="ot5_lst.asp?querytype=11">本月到期</a></td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=5></td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=2 class=menuline></td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
  <tr> 
    <td  colspan=2 valign="middle" height="28"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height=8></td>
        </tr>
        <tr> 
          <td> 
            <!--#include virtual="/master/pdtmng/ot5_mng/menu.asp" -->
            <br>
          </td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width=100% border=0 align="center" class=datalist>
        <tr> 
          <th class=datalistheader height="22" colspan="3"> 所有人信息更改 </th>
        </tr>
        <form name=ot5_ctt action=ot5_adm_rez.asp method=post>
          <tr> 
            <td class=datalistgrida  height="22"> 
              <p style="margin-left: 6" align="center">公司： 
            </td>
            <td class=datalistgrida> 
              <input type="text" size=28  name="s_copnme_cn" value="<%=trim(rs("s_copnme_cn"))%>">
              <input type="button" name="Submit22" value="订单删除" class=btxx onClick="javascript:return deleteit('<%=rs("s_nme")%>');">
            </td>
            <td class=datalistgrida width="20%">&nbsp;</td>
          </tr>
          <tr> 
            <td class=datalistgrida height="22"> 
              <p style="margin-left: 6" align="center">联系人： 
            </td>
            <td class=datalistgrida> 
              <input type="text" size=28  name="s_ctt_cn" value="<%=trim(rs("s_ctt_cn"))%>">
            </td>
            <td class=datalistgrida>&nbsp;</td>
          </tr>
          <tr> 
            <td class=datalistgrida height="22"> 
              <p style="margin-left: 6" align="center">省份： 
            </td>
            <td class=datalistgrida> 
              <input type="text" size=28  name="s_prv_cn" value="<%=trim(rs("s_prv_cn"))%>">
            </td>
            <td class=datalistgrida>&nbsp;</td>
          </tr>
          <tr> 
            <td class=datalistgrida height="22"> 
              <p style="margin-left: 6" align="center">地址： 
            </td>
            <td class=datalistgrida> 
              <input type="text" size=28  name="s_adr_cn" value="<%=trim(rs("s_adr_cn"))%>">
            </td>
            <td class=datalistgrida>&nbsp;</td>
          </tr>
          <tr> 
            <td class=datalistgrida height="22"> 
              <p style="margin-left: 6" align="center">邮编： 
            </td>
            <td class=datalistgrida> 
              <input type="text" size=28  name="s_cde" value="<%=trim(rs("s_cde"))%>">
            </td>
            <td class=datalistgrida>&nbsp;</td>
          </tr>
          <tr> 
            <td class=datalistgrida height="22"> 
              <p style="margin-left: 6" align="center">电话： 
            </td>
            <td class=datalistgrida> 
              <input type="text" size=28  name="s_tel" value="<%=trim(rs("s_tel"))%>">
            </td>
            <td class=datalistgrida>&nbsp;</td>
          </tr>
          <tr> 
            <td class=datalistgrida height="22"> 
              <p style="margin-left: 6" align="center">传真： 
            </td>
            <td class=datalistgrida> 
              <input type="text" size=28  name="s_fax" value="<%=trim(rs("s_fax"))%>">
            </td>
            <td class=datalistgrida>&nbsp;</td>
          </tr>
          <tr> 
            <td class=datalistgrida height="22"> 
              <p style="margin-left: 6" align="center">邮件： 
            </td>
            <td class=datalistgrida> 
              <input type="text" size=28  name="s_eml" value="<%=trim(rs("s_eml"))%>">
              <input type=hidden name=snme value="<%=snme%>">
              <input type=hidden name=module value="ot5_ctt">
              <script>
function deleteit(proid)
{
if (confirm("确认删除此订单吗？"))
{location.href="/master/pdtmng/ot5_mng/ot5_del.asp?snme="+proid;
}
}
</script>
            </td>
            <td class=datalistgrida> 
              <input type="submit" name="Submit2222" value="更  改" class=btxx >
              <input type="reset" name="Submit3222" value="复  原" class=btxx >
            </td>
          </tr>
        </form>
        <form action="ot5_adm_rez.asp"  method="post">
          <tr align="center"> 
            <th class=datalistheader height="22" colspan="3"><b><%=ptnme%>参数修改一（仅修改数据库）</b></th>
          </tr>
          <tr bordercolordark="#FFFFFF"> 
            <td class=datalistgrida height="22" width="25%"> 
              <div align="center">推广产品：</div>
            </td>
            <td class=datalistgrida> 
              <select name="s_prd" style="font-size: 9pt" size="1" >
                <option value="<%=rs("g_prd")%>" ><%=rs("g_nme")%></option>
                <% query="select * from v_pdtlst  where pt_tag='ot5'"
						  rs1.open query,conn,1,1
						  while not rs1.eof 
						  response.write "<option value='"&rs1("g_prd")&"' >"&rs1("g_nme")&"</option>"
					  rs1.movenext
					  wend
					  rs1.close
					  %>
              </select>
            </td>
            <td class=datalistgrida>&nbsp;</td>
          </tr>
          <tr class="datalist"> 
            <td class=datalistgrida   height="22" width="25%"> 
              <div align="center">申请类型：</div>
            </td>
            <td class=datalistgrida  > 
              <select name="s_regtpe" style="font-size: 9pt" size="1" >
                <option value="1" <%if rs("s_regtpe")=1 then
					  response.write " selected "
					  end if %> >购买</option>
                <option value="5" <%if rs("s_regtpe")=5 then
					  response.write " selected "
					  end if %> >赠送</option>
              </select>
            </td>
            <td class=datalistgrida   >&nbsp;</td>
          </tr>
          <tr class="datalist"> 
            <td class=datalistgrida    height="22" width="25%"> 
              <div align="center">产品状态：</div>
            </td>
            <td class=datalistgrida > 
              <select name="s_regstt" style="font-size: 9pt" size="1" >
                <option value="0"  <%if cint(rs("s_regstt"))=0 then
					  response.write " selected "
					  end if %> >未开通</option>
                <option value="1" <%if cint(rs("s_regstt"))=1 then
					  response.write " selected "
					  end if %> >运行中</option>
                <option value="2"  <%if cint(rs("s_regstt"))=2 then
					  response.write " selected "
					  end if %> >暂停中</option>
                <option value="3" <%if cint(rs("s_regstt"))=3 then
					  response.write " selected "
					  end if %> >处理中</option>
                <option value="4" <%if cint(rs("s_regstt"))=4 then
					  response.write " selected "
					  end if %> >已删除</option>
                <option value="5" <%if cint(rs("s_regstt"))=5 then
					  response.write " selected "
					  end if %> >管理员停止</option>
                <option value="6" <%if cint(rs("s_regstt"))=6 then
					  response.write " selected "
					  end if %> >待开通</option>
              </select>
            </td>
            <td class=datalistgrida>&nbsp;</td>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22"> 
              <div align="center">申请总期限：</div>
            </td>
            <td  class=datalistgrida > 
              <input type="text" size=24  name="s_yarcnt" value="<%=mynum(rs("s_yarcnt"))%>">
              年/份/套...</td>
            <td  class=datalistgrida >&nbsp;</td>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22"> 
              <div align="center">申请总价格：</div>
            </td>
            <td  class=datalistgrida > 
              <input type="text" size=10  name="years" value="<%=trim(rs("years"))%>">
              X 
              <%
						  prcstrname="s_prcstr"
						  prcstr=rs(prcstrname)
						  %>
              <select name="<%=prcstrname%>" style="font-size: 9pt" size="1" >
                <%
							query="select * from memlst where u_nme='"&rs("s_unme") &"'"
							rs2.open query,conn,1,1
							if not rs2.eof then
							u_prc=rs2("u_prc")
							canlist=true
							end if
							rs2.close 
							if canlist then
							 query="select * from v_prclst where p_prd='"&proid&"' and p_cls="&u_prc&" order by p_tmetpe,p_yar"
					  rs2.open query,conn,1,1
					  while not rs2.eof 
					  response.write "<option "
					  if  prcstr=trim(rs2("p_prcstr")) then
					  response.write " selected "
					  end if
					  p_yar=rs2("p_yar")
					  if p_yar="1" then
					  p_yar=""
					  end if
					  response.write " value="&rs2("p_prcstr")&">"&rs2("p_prc")&"元/"&p_yar&tmenmes(rs2("p_tmetpe"))&"</option>"
					  rs2.movenext
					  wend
					  rs2.close
					  end if
					  %>
              </select>
            </td>
            <td  class=datalistgrida >&nbsp;</td>
          </tr>
          <tr bordercolordark="#FFFFFF"> 
            <td class=datalistgrida height="22" > 
              <div align="center">注册时间：</div>
            </td>
            <td class=datalistgrida > 
              <input type="text" size=28  name="s_addtme" value="<%=trim(rs("s_addtme"))%>">
            </td>
            <td class=datalistgrida >&nbsp;</td>
          </tr>
          <tr bordercolordark="#FFFFFF"> 
            <td class=datalistgrida height="22" > 
              <div align="center">到期时间：</div>
            </td>
            <td class=datalistgrida > 
              <input type="text" size=28  name="s_exptme" value="<%=trim(rs("s_exptme"))%>">
            </td>
            <td class=datalistgrida >&nbsp;</td>
          </tr>
          <tr bordercolordark="#FFFFFF"> 
            <td class=datalistgrida height="22" > 
              <div align="center">是否付款：</div>
            </td>
            <td class=datalistgrida > 
              <input type="radio" name="s_ifpay" value="0"  <%if cint(rs("s_ifpay"))=0 then 
									  response.write " checked"
									  end if %>>
              未付款 
              <input type="radio" name="s_ifpay" value="1" <%if cint(rs("s_ifpay"))=1 then 
									  response.write " checked"
									  end if %>>
              已付款 </td>
            <td class=datalistgrida >&nbsp;</td>
          </tr>
          <tr bordercolordark="#FFFFFF"> 
            <td class=datalistgrida height="22" > 
              <div align="center">服务提供商：</div>
            </td>
            <td class=datalistgrida > 
              <input type="text" size=28  name="s_cprnme" value="<%=trim(rs("s_cprnme"))%>">
            </td>
            <td class=datalistgrida >&nbsp; </td>
          </tr>
          <% for i=1 to 8
				if trim(rs3("o_o"&i))<>""then
				 %>
          <tr> 
            <td class=datalistgrida height="22" align="center"><%=trim(rs3("o_o"&i))%>：</td>
            <td class=datalistgrida> 
			<% if rs3("o_o"&i&"t")=1 then %>
              <input type="text" size=28  name="s_o<%=i%>" value="<%=trim(rs("s_o"&i))%>">
			<% elseif rs3("o_o"&i&"t")=2 then %>
               <input type="password" size=28  name="s_o<%=i%>" value="<%=trim(rs("s_o"&i))%>">
			<% else %>
              <textarea name="s_o<%=i%>" rows="5" cols="40"><%=trim(rs("s_o"&i))%></textarea>
			  <% end if %>
           </td>
            <td class=datalistgrida>&nbsp;</td>
          </tr>
          <%
				end if
				 next %>
          <tr> 
            <td class=datalistgrida  height="22"> 
              <p style="margin-left: 6" align="center">其它说明： 
            </td>
            <td class=datalistgrida> 
              <textarea name="content" rows="5" cols="40"><%=trim(rs("content"))%></textarea>
              <input type=hidden name=snme value="<%=snme%>">
              <input type=hidden name=module value="ot5_edta">
            </td>
            <td class=datalistgrida> 
              <input type="submit" name="Submit22222" value="更  改" class=btxx >
              <input type="reset" name="Submit32222" value="复  原" class=btxx >
            </td>
          </tr>
        </form>
      </table>
      <table align="center" width="100%" cellpadding="0" cellspacing="0" border="0" class=datalist>
        <form action=ot5_adm_rez.asp method=post>
          <tr > 
            <th class=datalistheader colspan="3" height="22"> 
              <div align="center"><b><%=ptnme%>参数修改二（仅修改数据库）</b> </div>
            </th>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22" width="25%"> 
              <div align="center">赠送品一产品编号：</div>
            </td>
            <td class=datalistgrida > 
              <select name="pstprd1">
                <option value="" <%if trim(rs("pstprd1"))="" then
					  response.write " selected "
					  end if %>>没有赠送品</option>
                <% 
				query="select * from v_pdtlst  where pt_tag<>'set' order by pt_odr,pc_odr"
						rs1.open query,conn,1,1
						while not rs1.eof 
						response.write "<option style='color:"&trim(rs1("pt_clr"))&";' value="&rs1("g_prd")
						if trim(rs1("g_prd"))=trim(rs("pstprd1")) then
						response.write " selected "
						end if
						response.write ">"&rs1("g_nme")&"----"&trim(Rs1("pt_nme"))&"</option>"
						rs1.movenext
						wend
						rs1.close
						%>
              </select>
            </td>
            <td class=datalistgrida width="20%" >&nbsp;</td>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22" > 
              <div align="center">赠送品一：</div>
            </td>
            <td  class=datalistgrida  > 
              <input type="text" size=28  name="pstnme1" value="<%=rs("pstnme1")%>">
              填：域名/主机名/FTP名/数据库名...</td>
            <td  class=datalistgrida  >&nbsp;</td>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22"> 
              <div align="center">赠送品二产品编号：</div>
            </td>
            <td  class=datalistgrida > 
              <select name="pstprd2">
                <option value="" <%if trim(rs("pstprd2"))="" then
					  response.write " selected "
					  end if %>>没有赠送品</option>
                <% 
				query="select * from v_pdtlst  where pt_tag<>'set' order by pt_odr,pc_odr"
						rs1.open query,conn,1,1
						while not rs1.eof 
						response.write "<option style='color:"&trim(rs1("pt_clr"))&";' value="&rs1("g_prd")
						if trim(rs1("g_prd"))=trim(rs("pstprd2")) then
						response.write " selected "
						end if
						response.write ">"&rs1("g_nme")&"----"&trim(Rs1("pt_nme"))&"</option>"
						rs1.movenext
						wend
						rs1.close
						%>
              </select>
            </td>
            <td  class=datalistgrida >&nbsp;</td>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22" > 
              <div align="center">赠送品二：</div>
            </td>
            <td  class=datalistgrida  > 
              <input type="text" size=28  name="pstnme2" value="<%=rs("pstnme2")%>">
              填：域名/主机名/FTP名/数据库名... </td>
            <td  class=datalistgrida  >&nbsp;</td>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22" > 
              <div align="center">赠送品三产品编号：</div>
            </td>
            <td   class=datalistgrida > 
              <select name="pstprd3">
                <option value="" <%if trim(rs("pstprd3"))="" then
					  response.write " selected "
					  end if %>>没有赠送品</option>
                <% 
				query="select * from v_pdtlst  where pt_tag<>'set' order by pt_odr,pc_odr"
						rs1.open query,conn,1,1
						while not rs1.eof 
						response.write "<option style='color:"&trim(rs1("pt_clr"))&";' value="&rs1("g_prd")
						if trim(rs1("g_prd"))=trim(rs("pstprd3")) then
						response.write " selected "
						end if
						response.write ">"&rs1("g_nme")&"----"&trim(Rs1("pt_nme"))&"</option>"
						rs1.movenext
						wend
						rs1.close
						%>
              </select>
            </td>
            <td   class=datalistgrida >&nbsp;</td>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22"> 
              <div align="center">赠送品三：</div>
            </td>
            <td class=datalistgrida  > 
              <input type="text" size=28  name="pstnme3" value="<%=rs("pstnme3")%>">
              填：域名/主机名/FTP名/数据库名... </td>
            <td class=datalistgrida  >&nbsp;</td>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22"> 
              <div align="center">获得此赠送品的产品编号：</div>
            </td>
            <td class=datalistgrida  > 
              <select name="pstrotprd">
                <option value="" <%if trim(rs("pstrotprd"))="" then
					  response.write " selected "
					  end if %>>非赠送品</option>
                <% 
				query="select * from v_pdtlst  where pt_tag<>'set' order by pt_odr,pc_odr"
						rs1.open query,conn,1,1
						while not rs1.eof 
						response.write "<option style='color:"&trim(rs1("pt_clr"))&";' value="&rs1("g_prd")
						if trim(rs1("g_prd"))=trim(rs("pstrotprd")) then
						response.write " selected "
						end if
						response.write ">"&rs1("g_nme")&"----"&trim(Rs1("pt_nme"))&"</option>"
						rs1.movenext
						wend
						rs1.close
						%>
              </select>
            </td>
            <td class=datalistgrida  >&nbsp;</td>
          </tr>
          <tr> 
            <td  class=datalistgrida  height="22"> 
              <div align="center">获得此赠送品的产品：</div>
            </td>
            <td class=datalistgrida  > 
              <input type="text" size=28  name="pstrotnme" value="<%=rs("pstrotnme")%>">
              填：域名/主机名/FTP名/数据库名... </td>
            <td class=datalistgrida  >&nbsp;</td>
          </tr>
          <tr> 
            <td class=datalistgrida  height="22" > 
              <div align="center">所属套餐名称：</div>
            </td>
            <td class=datalistgrida  > 
              <input type="text" size=28  name="setnme" value="<%=trim(rs("setnme"))%>">
              <input type=hidden name=snme value="<%=snme%>">
              <input type=hidden name=module value="ot5_edtb">
            </td>
            <td class=datalistgrida  > 
              <input type="submit" name="Submit222" value="更  改" class=btxx >
              <input type="reset" name="Submit322" value="复  原" class=btxx >
            </td>
          </tr>
        </form>
      </table>
      <br>
      <br>
      <br>
    </td>
  </tr>
  </tbody> 
</table>
<!--#include virtual="/incs/bottom.asp"-->



