把IP表存入SQL里的程序
程序员文章站
2023-02-18 14:20:48
写得比较粗糙,还有一点错误,不过能达到效果,凑合着用了,是4266条,不知道对也不对create.-----------------------------------------...
写得比较粗糙,还有一点错误,不过能达到效果,凑合着用了,是4266条,不知道对也不对
create.
-----------------------------------------------------------------------
<%
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(windows平台上强大的平台)
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
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
create.
-----------------------------------------------------------------------
<%
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(windows平台上强大的平台)
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
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
上一篇: 有关站内模糊查询的源程序!
下一篇: 如何种菜?在种菜的时候应该注意什么?