<% if session ("WinMyDNSUserName")="" then response.redirect "index.asp" response.end end if if session("WinMyDNSIsAdmin")<>"Y" then response.redirect "index.asp" response.end end if %>

<% act=SafeRequest("act") ID= SafeRequest("ID") select case act case "add" if SafeRequest("IP")="" or SafeRequest("port")="" then response.write "错误:IP,端口号及权重不能为空" else set rst=conn.execute("select * from hostcheck where ip='"&SafeRequest("ip")&"'") if not rst.eof then response.write "IP已存在,不能重复添加" else conn.execute ("insert into hostcheck (ip,port) values ('"&SafeRequest("ip")&"','"&SafeRequest("port")&"')") response.write "操作成功" end if rst.close end if call List() case "edit" if SafeRequest("ip")="" or SafeRequest("port")="" then response.write "错误:IP,端口号及权重不能为空" else sql = "update hostcheck set port='"&SafeRequest("port")&"' where IP='"&SafeRequest("IP")&"' " conn.execute (sql) response.write "操作成功" end if call List() case "del" conn.execute (" delete from hostcheck where IP='"&SafeRequest("IP")&"' ") response.write "操作成功" call List() case else call List end select sub List() sql = "select * from [hostcheck] order by ip " set rs = conn.execute(sql) %> <% i=1 do while not rs.eof %> "> <% i=i+1 rs.movenext loop %> 负载均衡 ID IP地址 检测端口 状态 修改 删除 <%=i%> <%=rs("IP")%> " size="10" maxlength="125"> <%if rs("status")="Y" then response.write "正常" elseif rs("status")="N" then response.write "宕机" else response.write "未知" end if %> " onclick="return window.confirm('该操作结果不可恢复,你确实要删除该网络组吗?')">删除 添加   <% rs.close set rs=nothing end sub %> 1,需要做负载均衡的服务器请把IP添加到该列表中。 2,检测端口填TCP端口，WinMyDNS通过检测该端口是否来测试服务器是否正常工作。如果服务器不能正常工作，则WinMyDNS不再把域名解析到该IP上。 3,权重是负载均衡中服务器的分配比例，请填一个整数，数值越大的IP被解析到的次数越多。