top
Loading...
把IP表存入SQL里的程序
寫得比較粗糙,還有一點錯誤,不過能達到效果,湊合著用了,是4266條,不知道對也不對

create.asp
-----------------------------------------------------------------------
<%
'Option Explicit
Server.Scripttimeout = 1000
On Error Resume Next

' Define your sql info here
strSQLDSN = "xxxx"
strSQLUsername = "sa"
strSQLPassword = ""

' This is where we connect to our sql server
Set adoConn = Server.CreateObject("ADODB.Connection")
ConnectionString = "dsn=" & strSQLDSN & ";uid=" & strSQLUsername & ";pwd=" & strSQLPassword & ""
adoConn.Open ConnectionString
'Set adoRS = Server.CreateObject("ADODB.Recordset")

' get sql from ip.txt
Set fso = Server.Createobject("Scripting.FilesystemObject")
If fso.Fileexists(Server.Mappath("ip.txt")) then
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

'Error Handle
If err.number <> 0 then

' this code come from http://bigeagle.wotoo.com
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

%>

北斗有巢氏 有巢氏北斗