<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request.Form ("servername")="" Then
	ef=True
	ec="服务器名没填！"
ElseIf Request.Form ("site")="" Then
	ef=True
	ec="受控网址没填！"
elseIf session("cansetserver")="" Then
	ef=True
	ec="您没有此操作的权限。"
ElseIf not IsNumeric(Request("id"))  Then
	ef=True
	ec="ID应该是数字！"
elseIf RegExpTest("[^A-Za-z0-9]",Request.Form ("FreeHostsharekey")) Then
	ef=True
	ec="共享密码不能有特殊字符！"
elseIf RegExpTest("[^A-Za-z0-9]",Request.Form ("admpass")) Then
	ef=True
	ec="SQL密码不能有特殊字符！"
elseIf Request.Form ("FreeHostsharekey")="" 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_Serversqllist where id='"&Request("id")&"'"
		ds.Open Sql,conn,1,3
if not ds.Eof and Request.Form ("Submit")<>"修改" and Request.Form ("delit")<>"删除" then
	ef=True
	ec="没找到要修改的服务器！"
end if

if not ef then
if Request.Form ("delit")="删除" then
	Set dsph = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_sql where ServerlistID='"&ds ("id")&"'"
	dsph.Open Sql,conn,1,3
if not dsph.Eof then
	ef=True
	ec="还有数据库正在使用此服务器，因此不能删除，如果您的服务器损坏了，可以将受控网址改到正常服务器，就可以重开这些网站！"
end if

	Set dshost = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_sqlProductlist where ServerlistID='"&ds("id")&"'"
	dshost.Open Sql,conn,1,1
if not dshost.Eof then
	ef=True
	ec="还有数据库[产品定义]正在使用此服务器，因此不能删除，如果您的服务器损坏了，可以将受控网址改到正常服务器，就可以重开这些网站！产品名："&dshost("SQLtype")
end if
end if
end if

if not ef then

if Request.Form ("delit")<>"删除" then
if Request.Form ("Submit")<>"修改" then
ds.AddNew 
ds("agent1")="n"
ds("agent2")="n"
end if
ds("servername")=trim(request.Form ("servername"))
ds("site")=trim(request.Form ("site"))
ds("site")="http://"&replace(ds("site"),"http://","")
ds("ip")=trim(request.Form ("ip"))
ds("port")=trim(request.Form ("port"))

ds("softtype")="SQL2000"

If request.Form ("softtype")="2000" Or request.Form ("softtype")="2005" Or request.Form ("softtype")="2008" Or request.Form ("softtype")="2012" Or request.Form ("softtype")="2014" then
ds("softtype")="SQL2000"
ds("MSSQLver")=request.Form ("softtype")
End If
If request.Form ("softtype")="5.0" Or request.Form ("softtype")="5.1" Or request.Form ("softtype")="5.5" then
ds("softtype")="MySQL"
ds("MySQLver")=request.Form ("softtype")
End if


ds("admname")=trim(request.Form ("admname"))
ds("admpass")=trim(request.Form ("admpass"))
ds("homedir")=trim(request.Form ("homedir"))
ds("FreeHostsharekey")=trim(request.Form ("FreeHostsharekey"))
ds("netby")=trim(request.Form ("netby"))
ds("admurl")=replace(trim(request.Form ("admurl")),"无","")
ds("admurl")="http://"&replace(ds("admurl"),"http://","")

if ds("softtype")="MySQL" Then ds("port")="3306"
if ds("softtype")="SQL2000" Then ds("port")="1433"

if ds("softtype")="MySQL" Then ds("admname")="root"
if ds("softtype")="SQL2000" Then ds("admname")="sa"

else
ds.delete
end if
on error resume next
ds.Update
if err then
Response.write "存在同名的服务器，请另用一个名字，也可能是字段超过了允许的长度"&Err.Description
Response.end
end if

ds.Close
set ds=nothing
conn.Close 
set conn=nothing
Response.Redirect "serversqllist.asp"
end if

end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>