ipLock.asp

Upload User: gufengji9
Upload Date: 2007-04-27
Package Size: 769k
Code Size: 2k
Category: Applications
Development Platform: PHP
  1. <!-- #include file="../data/CONN2.asp" -->
  2. <!-- #include file="pass.asp" -->
  3. <% Dim ts,  ip1, ip2, ip1_lc, ip2_lc, txt
  4. if Request.Form("action") = "确定" then
  5. ip1 = enaddr(Request.Form("ip1"))
  6. ip2 = enaddr(Request.Form("ip2"))
  7. sql = "insert into ipLock(ip1,ip2,ip1_lc,ip2_lc) values("& int(ip1) &", "& int(ip2) &", '"& deaddr(ip1) &"','"& deaddr(ip2) &"')"
  8. On Error Resume Next
  9. Set ts = conn.Execute(sql)
  10. if isObject(ts) then
  11. txt="操作成功!"
  12. else
  13. txt="操作失败!"
  14. end if
  15. ts.Close
  16. Set ts = Nothing
  17. Response.Write(prtCen(txt))
  18. Call rPage(2,"")
  19. Response.End()
  20. end if
  21. %><!--#include file="css.asp" -->
  22. <body bgcolor=<%=crs(0)%>>
  23. <table width="99%" border="0" cellpadding="2" cellspacing="1" bgcolor=<%=crs(1)%>>
  24.   <tr>
  25.     <td colspan="2" height="25" align="center" bgcolor=<%=crs(2)%>><strong>锁定IP来源</strong></td>
  26.   </tr>
  27.   <form name="form1" method="post" action="">
  28. <% if txt<>"" then Response.write"<tr align=""center"" bgcolor=""#FFF4E6""><td colspan=""2""><font color=""#BB0000"">"&(txt)&"</font></td></tr>" %>
  29.     <tr bgcolor=<%=crs(2)%>> 
  30.       <td align="right">开始IP地址:</td>
  31.       <td><input name="ip1" type="text" id="ip1">
  32.         例如:127.0.0.1</td>
  33.     </tr>
  34.     <tr bgcolor=<%=crs(2)%>> 
  35.       <td align="right">结束IP地址:</td>
  36.       <td><input name="ip2" type="text" id="ip2">
  37.       例如:127.0.0.225</td>
  38.     </tr>
  39.     <tr bgcolor=<%=crs(2)%>> 
  40.       <td height="41" colspan="2" align="center"><input type="submit" name="action" value="确定"></td>
  41.     </tr>
  42.     <tr> 
  43.       <td colspan="2" align="center"> </td>
  44.     </tr>
  45.   </form>
  46. </table>
  47. </body>