3.如何把IP表存到SQL数据库里去？

试试下面这个程序：

saveip.asp
<%
Server.Scripttimeout = 1000
On Error Resume Next

strSQLDSN = "xxxx"
strSQLUsername = "sa"
strSQLPassword = ""
' 定义SQL信息

Set adoConn = Server.CreateObject("ADODB.Connection")

' 连接数据库
ConnectionString = "dsn=" & strSQLDSN & ";uid=" & strSQLUsername & ";pwd=" & strSQLPassword & ""
adoConn.Open ConnectionString
'Set adoRS = Server.CreateObject("ADODB.Recordset")

Set fso = Server.Createobject("Scripting.FilesystemObject")
    If fso.Fileexists(Server.Mappath("ip.txt")) then

' 从ip.txt得到SQL
      Set a = fso.OpenTextFile(Server.Mappath("ip.txt"), 1, False)
          Do While a.AtEndOfStream <> True
              sql = a.readline
              adoConn.Execute (sql)
          Loop
      a.close
      set a = nothing
    Else
    Response.Write "噢,文件没找到!"
    Response.End
    End if
Set fso = Nothing

If err.number <> 0 then
 ' 错误控制
        
          strMsg = strMsg ------------------------------------------------------------------------ vbcrlf
          strMsg = strMsg + "错误时间：" + CStr(Now()) + vbcrlf
          strMsg = strMsg + "错误类型：Err错误"        + vbcrlf
          strMsg = strMsg + "错误号  ：" + CStr(Err.Number) + vbcrlf
          strMsg = strMsg + "错误源  ：" + Err.Source  + vbcrlf
          strMsg = strMsg + "错误描述：" + Err.Description + vbcrlf
          strMsg = strMsg ----------------------------------------------------------------------  vbcrlf

          strLogMsg = strLogMsg ---------------------------------------------------------------vbcrlf
          strLogMsg = strLogMsg + "错误时间：" + CStr(Now()) + vbcrlf
          strLogMsg = strLogMsg + "错误类型：Err错误" + vbcrlf
          strLogMsg = strLogMsg + "错误号  ：" + CStr(Err.Number) + vbcrlf
          strLogMsg = strLogMsg + "错误源  ：" + Err.Source + vbcrlf
          strLogMsg = strLogMsg + "错误描述：" + Err.Description + vbcrlf
          strMsg = strMsg -------------------------------------------------------------------------vbcrlf
             
          Response.Write strMsg
End If

%>