动态网站制作指南 [  QQ表情  ]
[ 投票调查 ]
[ 企业邮箱 ]
[ 网站空间 ]
网站首页 | 网站学院 | 源码下载 | 软件下载 | 字体下载 | 图片素材 | 电脑书籍 | 网页模版 | 网站欣赏 | 小游戏 | 博客联播
网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
ASP源码 | .Net源码 | PHP源码 | JSP源码 | JAVA源码 | CGI源码 | VB源码 | C++源码 | Delphi源码 | PB源码 | VF源码 | 汇编 | 服务器
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > ASP实例
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程：ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
文章搜索服务
邮件订阅
输入你的邮件地址，
你将不会错过任何关于：
[ ASP实例 ]的信息

本月文章推荐
.怎样做自己的二级域名（之一）.
.1栏分页显示（附显示的形式[1][2.
.在ASP页里面注册DLL的VBScript C.
.下拉菜单输入,根据输入内容自动定.
.利用ASP在线维护数据库.
.ASP网站远程客户实现EXCEL打印功.
.网上“店铺”DIY(3).
.一个提供用户输入时期的绝好程序.
.最简单的ASP聊天室（附源码）.
.XMLHTTP+Javascript+Asp写得聊天.
.一个免费的邮件列表源程序(三).
.一个功能完善的专栏管理的程序-&.
.建立一个广告交换及跟踪系统.
.用ASP统计用户在站点的停留时间(.
.ASP进阶之文章在线管理更新(4).
.利用ASP将HTML格式数据传输给Exc.
.如何用ASP编写网站统计系统（二）.
.实例讲解ASP实现抓取网上房产信息.
.利用ASP生成EXECL文档.
.利用ASP实现三个强大功能之三.

把IP表存入SQL里的程序

发表日期：2001-1-8 |

写得比较粗糙，还有一点错误，不过能达到效果，凑合着用了，是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实现论坛的UBB功能(二) 人气:13520
下一篇：在线用表单建立文件夹 人气:10722
浏览全部的内容 Dreamweaver插件下载 常用网页广告代码全集
  最新网站源码 最新软件下载
2008-9-30 来路分析系统 v3.0 简洁版
2008-9-30 来路分析系统 v3.0 国庆版
2008-9-30 IXNA新闻聚合程序 0.5 Build 200
2008-9-30 LinkMan 1.5
2008-9-30 pibazi.net图片上传程序 coolent
2008-9-30 LinkMan 1.5 汉化版
2008-9-29 60度CMS v1.0 Build 080928
2008-9-29 X3BLOG 多用户 v1.1.0.beta1 编译
2008-9-29 X3BLOG 多用户 v1.1.0.beta1 源码
 2008-9-29 酷狗音乐(原KuGoo)2008 v5.310 正
2008-9-29 QQTab 1.1
2008-9-29 网络传送带 Net Transport 2.64a
2008-9-29 谷歌金山词霸v1.8
2008-9-29 TweakVI 1.0 Build 1090
2008-9-29 ACDSee Pro 2.5 Build 333 汉化绿
2008-9-29 Winamp v5.541(2189) 周明波简体
2008-9-27 CCleaner 2.12.651
2008-9-27 Mozilla Thunderbird 2.0.0.17 英
  发表评论
姓　名: 验证码:
内　容:
站长工具：网站收录查询 | Google PR查询 | ALEXA排名查询 | CSS在线编辑器 | 广告代码 | js/vbs加密 | md5加密 | 进制转换 | UTF-8 转换工具 | Html转换js | Html转换asp | Html转换php | Html转换perl
实用工具：汉字翻译拼音 | 拼音字典 | 符号对照表 | 个税计算 | 实时汇率查询换算 | 经典小工具 | 汉字简繁转换 | 普通单位换算 | 公制单位换算 | 生辰老黄历 | 国内电话区号 | 国家代码与域名缩写 | 文字加密解密 | 健康查询 | 万年历 | 汉字横竖排版 | 手机号码查询 | 计算器 | ip搜索
业务联系 | 广告刊登 | 频道合作 | 投稿荐稿 | 联系方式 | 加入收藏 | RSS订阅
Copyright © 2000-2008 www.knowsky.com All rights reserved | 网络实名：动态网站制作指南 | 沪ICP备05001343号
ホームページ制作 不動産検索システム 求人情報
防水工事·改修工事 フットサル大会 探偵
SEO対策 中国語教室 ホームページ作成