<%@ Language=VBScript %>
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
end if
if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>　数据库产品
<%=htmlwrite("html6")%>
			<%
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_SqlProductlist where canbyagn='y'  and (onlyusebyagn is null or onlyusebyagn='"&session("agentusername")&"') order by orderbyid desc"
		ds.Open Sql,conn,1,1
If ds.Eof Then%>
产品列表为空.
<%else
while not ds.Eof

if  Request.QueryString ("id")=Cstr(ds("id")) then
id=ds("id")
Sqltype=ds("Sqltype")
usermoney=ds("usermoney")
Sqlcount=ds("Sqlcount")
ServerlistID=ds("ServerlistID")
userspacelimt=ds("userspacelimt")
logspacelimt=ds("logspacelimt")
info=ds("info")
infomore=ds("infomore")
isbyhost=ds("isbyhost")
Hosttype=ds("Hosttype")
cantest=ds("cantest")
end if








%>
<table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="15%" rowspan="2" bgcolor="#CCCCCC"><%=ds("id")%>.<%=ds("Sqltype")%>    
    <td width="72%" bgcolor="#FAFAFA">数据库文件上限<%=ds("userspacelimt")%>M　数据库日志文件上限<%=ds("logspacelimt")%>M　
        <%if ds("cantest")="y" then%>
        可以试用
        <%else%>
        不可以试用
        <%end if%>        <%if ds("isbyhost")="y" then%>
由于其他产品附送，附属于虚拟主机产品:<%=ds("Hosttype")%>
<%end if%></td>
    <td width="13%" rowspan="2" align="center" bgcolor="#CCCCCC"><a href="product-Sql.asp?id=<%=ds("id")%>#m"><font color="#FFFFFF"><strong>修改</strong></font></a> </td>
  </tr>
  <tr>
    <td bgcolor="#FAFAFA">简要说明:<br>
    <%=ds("info")%> </td>
  </tr>
</table>

<%
	Set newname_Sql = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_SqlProductlist_AGN where agent1='"&session("agentusername")&"' and id='"&ds("id")&"'"
		newname_Sql.Open Sql,conn,1,1
if not newname_Sql.eof then


Sqltypenew=newname_Sql("Sqltype")
infonew=newname_Sql("info")
infomorenew=newname_Sql("infomore")

if  Request.QueryString ("id")=Cstr(ds("id")) then
ServerlistID=newname_Sql("ServerlistID")
Sqltype=newname_Sql("Sqltype")
info=newname_Sql("info")
infomore=newname_Sql("infomore")
end if
%>
新名称：
<table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="15%" rowspan="2" bgcolor="#CCCCCC"><%=ds("id")%>.<%=Sqltypenew%>    
    <td width="72%" bgcolor="#FAFAFA">
	
	数据库文件上限<%=ds("userspacelimt")%>M　数据库日志文件上限<%=ds("logspacelimt")%>M　
        <%if ds("cantest")="y" then%>
        可以试用
        <%else%>
        不可以试用
        <%end if%>        <%if ds("isbyhost")="y" then%>
由于其他产品附送，附属于虚拟主机产品:<%=ds("Hosttype")%>
<%end if%></td>
    <td width="13%" rowspan="2" align="center" bgcolor="#CCCCCC"><a href="product-Sql.asp?id=<%=ds("id")%>#m"><font color="#FFFFFF"><strong>修改</strong></font></a> </td>
  </tr>
  <tr>
    <td bgcolor="#FAFAFA">简要说明:<br>
    <%=infonew%> </td>
  </tr>
</table>
<%end if
ds.movenext
wend
end if
%>

<%if id<>"" then%>
			
			<p><strong><font color="#FF0000"><a name="m"></a></font></strong></p>
            <form action="product-Sqllist-sub.asp" method="post" name="form1">
<table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
  <tr bgcolor="#CCCCCC">
    <td colspan="2" bgcolor="#CCCCCC"><strong>　<font color="#000000">修改产品名与相关介绍：</font></strong></td>
    <td width="59%">&nbsp;</td>
  </tr>
</table>
<table width="100%" height="36"  border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr bgcolor="#CCCCCC">
    <td bgcolor="#FFFBFF"><strong><br>　</strong>序　　号：　<%=id%>        <input name="id" type="hidden" id="id" value="<%=id%>" size="20" maxlength="50">        <br>
        　产品　名：
          <input name="Sqltype" type="text" id="Sqltype" size="20" maxlength="50" value="<%=Sqltype%>">        <br>
        　简要说明：
        <textarea name="info" cols="30" rows="3" id="info"><%=info%></textarea>        (可以用html语法)<br>        
                <br>
        　详细说明：
        <textarea name="infomore" cols="45" rows="6" id="infomore"><%=infomore%></textarea>
      (可以用html语法)<br>        <br>
      <%if session("canmyserver")="y" then%> 
      　独立服务器模式时此产品所用的服务器：
      <%
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_ServerSqllist  where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
服务器列表为空.
<%else%>
<select name="ServerlistID" id="ServerlistID">
  <option value="0" selected>使用平台默认</option>
  <%while not dsX.Eof%>
  <option value="<%=dsX("id")%>" <%if ServerlistID=dsX("id") then%>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%></option>
  <%
dsX.movenext
wend%>
</select>
<%end if%><br>        
      <%end if%>
      <br>　
      <input name="modify" type="submit" id="modify" value="修改">
      <br>
      <br></td>
    </tr>
</table>
<p><br>
</p>
</form>
<%end if%>
              <%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
