<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("SqlAUID")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsphSql = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Sql where id='"&session("SqlAUID")&"'"
	dsphSql.Open Sql,conn,1,3
if dsphSql.Eof then
	ef=True
	ec="不存在的数据库产品ID！"
end if
end If

If not ef then
if not dsphsql("status")="正常" then
		ef=True
		ec="必须是处于正常状态的数据库才能管理！"
end if
end if


if not ef then
	Set dspdl = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_SqlProductlist where Sqltype='"&dsphSql ("Sqltype")&"'"
		dspdl.Open Sql,conn,1,1
If dspdl.Eof Then
	ef=True
	ec="不存在的数据库产品类型！"
end if
end if

if not ef then
	Set dsserver = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_ServerSqllist where id='"&dsphSql ("ServerlistID")&"'"
	dsserver.Open Sql,conn,1,1
if dsserver.Eof then
	ef=True
	ec="服务器不存在！"
else
ip=dsserver("ip")
port=dsserver("port")
sqlname=dsphSql("sqlname")
sqlpassword=dsphSql("sqlpassword")

dim softtype,MySQLver,MSSQLver
softtype=dsserver("softtype")
MySQLver=dsserver("MySQLver")
MSSQLver=dsserver("MSSQLver")


if softtype="SQL2000" then softtype="SQL2000/SQL2005/SQL2008"

if dsserver("softtype")="SQL2000" and dsserver("MSSQLver")="2000" then softtype="SQL2000"
if dsserver("softtype")="SQL2000" and dsserver("MSSQLver")="2005" then softtype="SQL2005"
if dsserver("softtype")="SQL2000" and dsserver("MSSQLver")="2008" then softtype="SQL2008"
if dsserver("softtype")="SQL2000" and dsserver("MSSQLver")="2012" then softtype="SQL2012"
if dsserver("softtype")="SQL2000" and dsserver("MSSQLver")="2014" then softtype="SQL2014"
if dsserver("softtype")="MySQL" and dsserver("MySQLver")="5.0" then softtype="MySQL5.0"
if dsserver("softtype")="MySQL" and dsserver("MySQLver")="5.1" then softtype="MySQL5.1"
if dsserver("softtype")="MySQL" and dsserver("MySQLver")="5.5" then softtype="MySQL5.5"

end if
end if

if not ef then
%>
<!--#include virtual="/inc-freehost-function/template-sqladm-top.asp"-->　数据库自助管理
          <br>
          <br>
 <TABLE 
            width="100%" border=1 align=center cellPadding=0 cellSpacing=0 borderColorLight=#cccccc borderColorDark=#fbfbfb>
   <TBODY>
     <TR>
       <TD width="20%" height="35" align="center" vAlign=middle bgColor=#F3F3F3>&nbsp;<font color="#000000">产品类型：</font></TD>
       <TD width="80%" height="35" bgColor=#ffffff>　　
           <%
	Sqltype=dspdl("Sqltype")
	info=dspdl("info")
	Set ori_Sql_name = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_SqlProductlist where Sqltype='"&Sqltype&"'"
		ori_Sql_name.Open Sql,conn,1,1
		if not ori_Sql_name.eof then
Set newname_Sql = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_SqlProductlist_AGN where agent1='"&dsphSql("agent1")&"' and id='"&ori_Sql_name("id")&"'"
		newname_Sql.Open Sql,conn,1,1
if not newname_Sql.eof then
Sqltype=newname_Sql("Sqltype")
info=newname_Sql("info")
end if
		end if

	%>
           <%=Sqltype%> </TD>
     </TR>
     <TR>
       <TD height="35" align="center" vAlign=middle bgColor=#F3F3F3>状态：</TD>
       <TD height="35" bgColor=#ffffff>　　
         <%if dsphSql("endtime")>NOW then%>
         <%if dsphSql("istest")="y" then%>
         <font color="#FF0000">试用</font>
         <%else%>
         <%=dsphSql("status")%>
         <%end if%>
         <%else%>
         <font color="#FF0000">过期</font>
         <%if dsphSql("status")="暂停" then%>
         <br>
         <font color="#FF0000">暂停</font>
         <%end if%>
         <%end if%></TD>
     </TR>
     <TR>
       <TD width="20%" height="35" align="center" vAlign=middle bgColor=#F3F3F3>服务器IP：</TD>
       <TD height="35" bgColor=#ffffff>　　<%=dsserver("ip")%></TD>
     </TR>
     <TR>
       <TD width="20%" height="35" align="center" vAlign=middle bgColor=#F3F3F3>开通时间：</TD>
       <TD height="35" bgColor=#ffffff>　　<%=formatdatetime(dsphSql("starttime"),1)%></TD>
     </TR>
     <TR>
       <TD height="35" align="center" vAlign=middle bgColor=#F3F3F3>到期时间：</TD>
       <TD height="35" bgColor=#ffffff>　　<%=formatdatetime(dsphSql("endtime"),1)%></TD>
     </TR>
     <TR>
       <TD width="20%" height="35" align="center" vAlign=middle bgColor=#F3F3F3>数据库软件类型：</TD>
       <TD height="35" bgColor=#ffffff>　　<%=softtype%></TD>
     </TR>
     <TR>
       <TD height="35" align="center" vAlign=middle bgColor=#F3F3F3>数据库名：</TD>
       <TD height="35" bgColor=#ffffff>　　<%=dsphSql("sqlname")%></TD>
     </TR>
     <TR>
       <TD height="35" align="center" vAlign=middle bgColor=#F3F3F3>数据库用户名：</TD>
       <TD height="35" bgColor=#ffffff>　　<%=dsphSql("sqlname")%></TD>
     </TR>
     <TR>
       <TD height="35" align="center" vAlign=middle bgColor=#F3F3F3>数据库密码：</TD>
       <TD height="35" bgColor=#ffffff>　　<%=sqlpassword%></TD>
     </TR>
     <TR>
       <TD height="35" align="center" vAlign=middle bgColor=#F3F3F3>连接端口：</TD>
       <TD height="35" bgColor=#ffffff>　　
           <%=port%></TD>
     </TR>
<%if dsserver("softtype")<>"MySQL" then%>
     <TR>
       <TD height="35" align="center" vAlign=middle bgColor=#F3F3F3>连接字符串：</TD>
       <TD height="35" align="right" bgColor=#ffffff><table width="435"  border="0" cellspacing="0" cellpadding="0">
           <tr>
             <td align="left">&nbsp;</td>
           </tr>
           <tr>
             <td align="left">"provider=sqloledb;data source=<%=ip%>,<%=port%>;User ID=<%=sqlname%>;pwd=<%=sqlpassword%>;Initial Catalog=<%=sqlname%>"</td>
           </tr>
           <tr>
             <td align="left">&nbsp;</td>
           </tr>
       </table></TD>
     </TR>
 <%end if%>
     <TR>
       <TD height="35" align="center" vAlign=middle bgColor=#F3F3F3>数据库使用情况：</TD>
       <TD height="35" align="right" bgColor=#ffffff><table width="435"  border="0" cellspacing="0" cellpadding="0">
           <tr>
             <td align="left">&nbsp;</td>
           </tr>
           <tr>
             <td align="left">
<%
	 FreeHostsharekey=dsserver("FreeHostsharekey")
if dsserver("softtype")="MySQL" then
getsize=ShowDirSize (dsserver("site"),FreeHostsharekey,dsserver("homedir")&"\"&dsphSql("sqlname"))
'response.write getsize
if instr(getsize,"出错")>1 then 
returnstr = returnstr &" 数据库放置的目录设置不正确：" &dsserver("homedir")&"解决办法:　您需要在管理区,数据库设置中,修改这个这个正确这个数据库目录.这个目录必须和数据库的真正安装的目录完全一致.就可以解决.另外,如果这个数据库目录完全正确,但是还出现这个提示信息,就有可能是这个数据库没有开通成功导致的.您可以在管理区,在自助管理数据库管理中,选择这个数据库,然后选择,在同一台服务器转移数据库.就可以重开这个数据库."
else
getsize=GETvalue(getsize,";目录大小为：",";FreeHostEnd")
returnstr = getsize
getsize=int(getsize/1024/1024)
returnstr = returnstr &"字节("& getsize&"M)"
dsphSql("userspacelimtReal")=getsize
dsphSql("logspacelimtReal")=0
end if%>
<b>已用数据库空间：</b><%=returnstr%><%if getsize>dsphSql("userspacelimt") then%><font color=red>超出上限！</font><%end if%>　库上限：<%=dsphSql("userspacelimt")%> M
<%else

URL=dsserver("site")
FreeHostsharekey=dsserver("FreeHostsharekey")
userid=dsserver ("admname")
pwd=dsserver("admpass")

sql="exec sp_spaceused"
Cname="database_size"
recon=SqlGetName(URL,FreeHostsharekey,dsphSql("sqlname"),sqlpassword,backupdir,Cname,sql)
arrystr=split(recon,"@|freehost|@")
returnstr=arrystr(0)

'response.write recon
'response.end

if (instr(recon ,"登录失败")>0 or instr(recon ,"法打开用户默认数据库")>0) then
temp=ResetSQLPassword(URL,FreeHostsharekey,userid,pwd,sqlname,sqlpassword)
Response.Redirect "e.asp?e=由于原来的密码不同步，已自动同步数据库密码，请返回重试。"&recon&"当看到提示时,您可以返回重新点击一次管理,如果重复点击后一样无法进入,可能是这个数据库没有开通,或者您自己还原数据库时还原失败造成的.如果这个库已没有数据,您可以联系管理员先在服务器上，data目录中，删除同名的文件名,然后，在平台管理区,数据库管理中,选在同一台服务器中转移数据库,这个数据库就会重新开通.如果重新开通仍然失败,就表明主机系统系统管理区,站点管理的地方,数据库服务器的定义有错,请您联系管理员修改正确数据库服务器的定义,数据库服务器需要自检通过才能正常使用."
Response.end
end if

if ubound(arrystr)<1 then
if instr(recon ,"信息监控")>0 then  Response.Redirect "e.asp?e=服务器中安装了信息监控，请联系管理员将受控域名写在配置文件不拦截域名的地方。"&server.URLEncode(recon)
if instr(recon ,"非法")>0 then  Response.Redirect "e.asp?e=自检没有通过,请在管理区,站点管理,数据库管理中分析原因。"&server.URLEncode(recon)
 Response.Redirect "e.asp?e=自检没有通过,请在管理区,站点管理,数据库管理中分析原因。"&server.URLEncode(recon)
returnstr2="未知"
returnstr3="未知"
end if



sql="DBCC SQLPERF(LOGSPACE)"
Cname="Database Name"
recon=SqlGetName(URL,FreeHostsharekey,userid,pwd,backupdir,Cname,sql)
arrystr=split(recon,"@|freehost|@")
if ubound(arrystr)<2 then
 Response.Redirect "e.asp?e=请先升级受控端"
end if
y=0
for i=0 to ubound(arrystr)
if lcase(arrystr(i))=sqlname then y=i
next
sql="DBCC SQLPERF(LOGSPACE)"
Cname="Log Size (MB)"
recon=SqlGetName(URL,FreeHostsharekey,userid,pwd,backupdir,Cname,sql)
arrystr=split(recon,"@|freehost|@")
returnstr2=arrystr(y)
if returnstr2<1 then returnstr2="0"&returnstr2
returnstr=replace(returnstr," MB","")
if (instr(1,returnstr,"GB")>0) then
returnstr=trim(replace(returnstr," GB","")*1024)
end if
if IsNumeric(returnstr) and IsNumeric(returnstr2) then returnstr3=returnstr-returnstr2

dsphSql("userspacelimtReal")=FormatNumber(returnstr3,3,-1)
dsphSql("logspacelimtReal")=FormatNumber(returnstr2,3,-1)

%>
 <b>已用数据库空间：<%=FormatNumber(returnstr3,3,-1)%>M　已用日志空间：<%=FormatNumber(returnstr2,3,-1)%>M</b>　<%if getsize>dsphSql("userspacelimt") then%><font color=red>超出上限！</font><%end if%>　库上限：<%=dsphSql("userspacelimt")%> M　日志上限：<%=dsphSql("logspacelimt")%> M
<%
'response.write returnstr2
end if

dsphSql("checktime")=now
dsphSql.update
%>			 
			 
			 
			 </td>
           </tr>
           <tr>
             <td align="left">&nbsp;</td>
           </tr>
       </table></TD>
     </TR>
 
   </TBODY>
 </TABLE>
<%If session("username")<>"" Then%><br>
　<a href="/user/sqladm.asp"><font color="#000000">[返回用户区]</font></a>
<br>
<br>
<%end if%>
 <!--#include virtual="/inc-freehost-function/template-sqladm-end.asp"-->
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>