怎樣把IP表存入SQL裡的程式

來源:互聯網
上載者:User
程式 寫得比較粗糙,還有一點錯誤,不過能達到效果,湊合著用了,是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

%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。