zoukankan      html  css  js  c++  java
  • 将IP表存入SQL里的程序

    将IP表存入SQL里的程序

    写得比較粗糙,另一点错误,只是能达到效果。请大家測试 
    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

    %>

  • 相关阅读:
    [云计算&大数据]概念辨析:数据仓库 | 数据湖 | 数据中心 | 数据中台 | 数据平台 【待续】
    [云计算]概念辨析:云计算 [IaaS/PaaS/SaaS & 公有云/私有云/混合云]
    [Linux]浅析"command > /dev/null 2>&1 &" 与 "command 1>/dev/null 2>&1 &"
    [Python]【Form Data vs Request Payload】之 python 爬虫如何实现 POST request payload 形式的请求
    [Python]PyCharm中出现unresolved reference的解决方法
    [数据库/MYSQL]MYSQL开启Bin-Log
    scrapy采集gb2312网页中文乱码笔记
    uTools 桌面软件。
    Asp.Net Core Grpc 入门实践
    ASP.NET Core 中间件(Middleware)(一)
  • 原文地址:https://www.cnblogs.com/llguanli/p/7071249.html
Copyright © 2011-2022 走看看