<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
end if
if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>　数据库管理
<%=htmlwrite("html6")%>
<br>
<form action="admsql2.asp" method="get" 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="70%">&nbsp;</td>
    </tr>
  </table>
  <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
    <tr>
      <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　用户名：
              <input name="username" type="text" id="username" size="10" maxlength="14">
          数据库产品:
          <%
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 isbyhost<>'y' order by id asc"
		ds.Open Sql,conn,1,1
If ds.Eof Then%>
数据库产品列表为空.
<%else%>
<select name="id" id="id">
  <%while not ds.Eof
	Sqltype=ds("Sqltype")
	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
'info=newname_Sql("info")
Sqltype=newname_Sql("Sqltype")
end if  
newname_Sql.close
  %>
  <option value="<%=ds("id")%>"><%=Sqltype%></option>
  <%
ds.movenext
wend%>
</select>
<%end if%>
          <input name="Submit" type="submit" id="Submit" value="下一步">
      </p></td>
    </tr>
  </table>
</form>
<form action="handSql1.asp" method="get" 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="35%">&nbsp;</td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　用户名：
            <input name="username" type="text" id="username" size="10" maxlength="14">
            <input name="Submit" type="submit" id="Submit" value="下一步">
    </p></td>
  </tr>
</table>
</form>
<a href="admhostlisthost.asp?op=all"><strong></strong></a>
<p><a href="admSqllistSql.asp?op=all"><strong><font color="#000000">列出所有开通的数据库产品用户>>></font></strong> </a><br>
  <a href="admSqllistSql.asp?op=pause"><strong><font color="#000000">到期应该暂停的数据库产品用户>>></font> </strong></a><br>
  <a href="admSqllistSql.asp?op=del"><strong><font color="#000000">到期应该删除的数据库产品用户>>></font> </strong></a> <br>
  <br>
  <a href="gemail.asp?type=Sql&da=30"><strong><font color="#000000">群发邮件给一个月后到期的用户>>></font> </strong></a> <br>
  <a href="gemail.asp?type=Sql&da=7"><strong><font color="#000000">群发邮件给一周后到期的用户>>></font> </strong></a>  <br>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
