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

    %>

  • 相关阅读:
    怎么用JQUERY设置div背景图片?
    为什么导入本地jquery.js老是无效?(已解决)
    问题:AJAX的send参数里,空格以及它后面的数据在传递时消失(已解决)
    问题:win7下配置好服务器就是不能查询数据库。(已解决)
    问题:怎么把mysql的系统时间调整为电脑的时间?(已解决)
    jira安装说明
    HTTP 响应时发生错误。这可能是由于服务终结点绑定未使用 HTTP 协议造成的。这还可能是由于服务器中止了 HTTP 请求上下文(可能由于服务关闭)所致。
    C# 清空控制台屏幕内容
    NPOI导出Excel,添加图片和设置格式,添加条形码
    JS简写
  • 原文地址:https://www.cnblogs.com/llguanli/p/7071249.html
Copyright © 2011-2022 走看看