 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
写得比较粗糙，还有一点错误，不过能达到效果，凑合着用了，是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 %> 返回类别: 教程 上一教程: ASP中实现的类似URLENCODE的编码函数及对应解码函数 下一教程: ASP开发必备:WEB打印代码大全 您可以阅读与"把IP表存入SQL里的程序"相关的教程: · 关于将数据成批导入新数据库的程序例子(ACCESS TO SQL) · 一个在VBSCRIPT中读取COOKIE的程序函数 · ASP链接MYSQL并读取数据的程序 · 数组数据排序的程序例子 · 用JMAIL做收取邮件附件的程序 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
