IP.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:2k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#Include File="../Inc/Head.Asp"--><%
  2. Private FangWen
  3. Set FangWen=New xkon_FangWen
  4. FangWen.FangWen()
  5. FangWen.IP()
  6. Set FangWen=Nothing
  7. Private c,s
  8. Set c=New xkon_Response
  9. Set s=New xkon_Request
  10. Private Sub LieBiao()
  11. Dim FSO,FS
  12. Set FSO=Server.CreateObject("Scripting.FileSystemObject")
  13. If FSO.FileExists(Server.Mappath("SZ_IP.xkon.cn")) Then
  14. Set FS=FSO.OpenTextFile(Server.Mappath("SZ_IP.xkon.cn"))
  15. Dim NeiRong
  16. NeiRong=FS.ReadAll()
  17. FS.Close
  18. Set FS=Nothing
  19. End If
  20. Set FSO=Nothing
  21. If NeiRong<>"" Then
  22. Dim NeiRong2
  23. NeiRong2=Split(NeiRong,",")
  24. Dim i
  25. For i=1 To Ubound(NeiRong2)
  26. c.Writeln(NeiRong2(i)&"<a href=""IP.Asp?l=s&amp;ip="&NeiRong2(i)&""">删除</a>")
  27. Next
  28. Else
  29. c.Write("还没有任何IP被屏蔽")
  30. End If
  31. End Sub
  32. Private Sub Jia()
  33. c.Write("<form method=""post"" action=""IP.Asp?l=j"">IP:<input type=""text"" name=""IP"" /><input type=""submit"" value=""增加""/></form>")
  34. End Sub
  35. Private Sub Jia2()
  36. Dim IP
  37. IP=s.Form("IP")
  38. If IP="" Then
  39. Call xkon_Error("IP不能为空")
  40. Else
  41. Dim FSO,FS
  42. Set FSO=Server.CreateObject("Scripting.FileSystemObject")
  43. Set FS=FSO.OpenTextFile(Server.Mappath("SZ_IP.xkon.cn"),8,True)
  44. FS.Write(","&IP)
  45. c.Writeln("增加成功")
  46. End If
  47. End Sub
  48. Private Sub Delete()
  49. Dim IP
  50. IP=s.QueryString("IP")
  51. Dim FSO,FS,FS2
  52. Set FSO=Server.CreateObject("Scripting.FileSystemObject")
  53. Set FS=FSO.OpenTextFile(Server.Mappath("SZ_IP.xkon.cn"))
  54. Dim NeiRong
  55. NeiRong=FS.ReadAll()
  56. FS.Close
  57. Set FS=Nothing
  58. Set FS=FSO.OpenTextFile(Server.Mappath("SZ_IP.xkon.cn"),2,True)
  59. NeiRong=Replace(NeiRong,","&IP,"")
  60. FS.Write(NeiRong)
  61. FS.Close
  62. Set FS=Nothing
  63. Set FSO=Nothing
  64. End Sub
  65. Call H_Title("屏蔽IP")
  66. Dim l
  67. l=s.QueryString("l")
  68. Select Case l
  69. Case "j"
  70. Call Jia2()
  71. Case "s"
  72. Call Delete()
  73. End Select
  74. Call LieBiao()
  75. Call Jia()
  76. Call H_End()
  77. Set c=Nothing
  78. Set s=Nothing
  79. %>