home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 February / PCWorld_2003-02_cd.bin / Komunik / sambar / sambar53b3.exe / sysadmin / control / network / neturl.asp < prev    next >
Encoding:
Text File  |  2002-04-28  |  1.3 KB  |  60 lines
  1. <HTML>
  2. <HEAD><TITLE>Sambar Server Network Control Panel</TITLE>
  3. <% 
  4. #include "../header.asp"
  5. #include "../menu.asp"
  6. area = "neturl";
  7. #include "submenu.asp"
  8. %>
  9. <BR>
  10. <CENTER>
  11. <FORM method=get action=neturl.asp>
  12. <TABLE border=0 cellspacing=2>
  13. <TR>
  14. <TD align=right><B>Host</TD>
  15. <TD><INPUT NAME=host VALUE="<%=findParameter($params, "host", ""); %>"></TD>
  16. <TD align=right><B>Port</TD>
  17. <TD><INPUT NAME=port VALUE="<%=findParameter($params, "port", "80"); %>"></TD>
  18. </TR>
  19. <TD align=right><B>URL</TD>
  20. <TD colspan=3>
  21. <INPUT NAME=url SIZE=60 VALUE="<%=findParameter($params, "url", "/"); %>"></TD>
  22. </TR>
  23. <TR><TD align=center colspan=4><INPUT TYPE=submit VALUE="Network URL"></TD></TR>
  24. </TABLE>
  25. </FORM>
  26. <BR>
  27. <%
  28. host = getParameter($params, "host");
  29. url = findParameter($params, "url", "/");
  30. if ((host != NULL) && (url != NULL))
  31. {
  32.     port = findParameter($params, "port", "80");
  33.     net = netconnect(host, (int)port, 5, 0);
  34.     netwrite(net, "GET " + url + " HTTP/1.1\r\n");
  35.     netwrite(net, "Connection: close\r\n\r\n");
  36.     try
  37.     {
  38.         while (!netdead(net))
  39.         {
  40.             s = netgetl(net);
  41.             if (s == NULL)
  42.                 printf("\n");
  43.             else
  44.                 printf("%s\n", s);
  45.         }
  46.     }
  47.     catch (e)
  48.     {
  49.     }
  50.  
  51.     netclose(net);
  52. }
  53.  
  54. %>
  55. </BLOCKQUOTE></BLOCKQUOTE>
  56. <%
  57. #include "../footer.asp"
  58. %>
  59. </BODY></HTML>
  60.