敬业的IT人 互联网 佚名 2008-4-14 16:45:14

写得比较粗糙，还有一点错误，不过能达到效果，凑合着用了，是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(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 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

最新文章

在线用表单建立文件夹[04-14]

有关站内模糊查询的源程序![04-14]

查看主机的内存使用情况[04-14]

一个把数字转英文的实用程序[04-14]

可以执行系统命令的ASP原码放送[04-14]

用ASP实现电子贺卡[04-14]

相关文章

SQL SERVER结构浏览器[04-14]

显示sql数据库所有表的名称（带删除功能）[04-14]

用ASP+SQL Server为网页建一道防火墙[04-14]

用ASP和SQL实现基于Web的事件日历[04-14]

ASP后台快速调用Mysql 数据库[04-14]

Linux下安PHP,APACHE,MYSQL,PERL方法[03-18]