试试下面这个程序：
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
%>
