<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("cansetserver")="" Then
	ef=True
	ec="您没有此操作的权限。"
ElseIf request.Form ("id")="" Then
	ef=True
	ec="服务器ID没填！"
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_Serverlist where id='"&request.Form ("id")&"'"
		ds.Open Sql,conn,1,3
If ds.Eof Then
	ef=True
	ec="不存在这个服务器!"
else
session("serverid")=ds("id")
session("servername")=ds("servername")
session("serversite")=ds("site")
Response.Redirect "serverlistmodify.asp"
end if
end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>