实现纯真IP txt转mdb数据库的方法

2017年02月06日 87 阅读

纯真ip数据库转动网数据库ASP脚本 去纯真网站上下载ip数据库，同时随数据库附送的查询程序（Showip.exe）具有在线检测并升级IP数据库的功能，只要运行该程序，点击右上角的 “在线升级”，就可以升级IP数据库到最新的版本，无需再到下载网站下载新版的IP数据库。 同时查询程序（Showip.exe）还提供了解压为.txt文件的功能:） 我们就借助这一功能实现转MDB格式的数据库。 第一步：打开查询程序（Showip.exe），点击解压 第二步：保存导...

用实现ASP批量删除目录及文件的代码

2017年02月06日 97 阅读

函数过程： 复制代码 代码如下:<% "del.asp dimfso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles setfso=server.CreateObject（"Scripting.FileSystemObject"） subdelfolder（sPath） If（fso.FolderExists（server.MapPath（sPath）））then settmpfolder=fso.GetFolder（...

[ASP]RegExp对象提供简单的正则表达式支持功能使用说明

2017年02月06日 69 阅读

RegExp对象的用法： RegExpTest（patrn,strng） DimregEx,Match,Matches"建立变量。 SetregEx=NewRegExp"建立正则表达式。 regEx.Pattern=patrn"设置模式。 regEx.IgnoreCase=True"设置是否区分字符大小写。 regEx.Global=True"设置全局可用性。 SetMatches=regEx.Execute（strng）"执行搜索。 ForEachMat...

用ASP生成UTF-8网页文件的两种方法

2017年02月06日 83 阅读

方法一：createtextfile生成文件方法复制代码 代码如下:<%functionWriteToFile（FileName,FileContent） setfso=server.createobject（"scripting.filesystemobject"） setfp=fso.createtextfile（server.mappath（FileName）,,True） fp.write（FileContent） endfunction%&...

asp利用fso给文件夹和文件改名的代码

2017年02月06日 65 阅读

<% Dimfso,f,folder Setfso=Server.CreateObject（"scripting.filesystemobject"） "改目录名 Setfolder=fso.getfolder（Server.Mappath（"Old"）） folder.name="New""新名字 "改文件名 Setf=fso.getfile（Server.Mappath（"Old.asp"）） f.name="New.asp""新名字 "释放 %...

asp 采集实战代码

2017年02月06日 126 阅读

最近实在是太流行采集了，本人是不喜欢采集的，但对采集的原理我却很有兴趣进行研究，拿到了网上采集常用函数，对其进行了一番研究，并实战，结果成功，撇开效率问题，采集原理并不复杂，大家可以在搜索吧输入“采集”查看其原理。下面是一个采集的例子： 复制代码 代码如下:<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%> <%Response.CodePage=65001%> <%Response.Charse...

解决采集时出现msxml3.dll 错误的方法

2017年02月06日 64 阅读

采集时出现： msxml3.dll错误"800c0005" 系统未找到指定的资源。 /Admin/Item/Admin_ItemFunction.asp，行166 我查了资料： 在运用xmlhttp组件编写程序中，会碰到"msxml3.dll错误"800c0005"系统未找到指定的资源。"这种错误，网上对这种错误的产生原因有很多钟解释，大体说是因为防火墙或UDP站口权限造成了，也说了相应的解决办法。其它有时候也未必。其实错误的描述中就说出了主要的原因"系统...

asp实现二进制字符串转换为Unicode字符串

2017年02月06日 74 阅读

若需要utf-8格式，请自行将下面的GB2312改成utf-8。 "二进制转字符串，否则会出现乱码的！ FunctionsTb（vin） ConstadTypeText=2 DimBytesStream,StringReturn SetBytesStream=Server.CreateObject（"ADODB.Stream"） WithBytesStream .Type=adTypeText .Open .WriteTextvin .Position=0...

asp 用InStr查找特定字符串的代码

2017年02月06日 71 阅读

今天才发现这个函数的作用，原来可以查找特定的字符或者字符串。 下面是我写的简单例子： <%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%> <%Response.CodePage=65001%> <%Response.Charset="UTF-8"%> <% dimcontent_text,searchword_text "content是内容，searchword是要搜索的文字 sub...

[推荐]ASP编程通用函数收藏大全第1/2页

2017年02月06日 61 阅读

本帖将收集和征集最全面的ASP编程应用中通用功能函数，人人为我，我为人人：） 只要大家每人献出一两条自己收藏已久，精典的通用函数，我想本帖将会对许许多多的ASP编程爱好者、工作者有很大的帮助，也将成为大家ASP编程的必备函数集。 赶快检查您自己的函数库吧，看一下你有的我们这里都有了吗？ 如果你发现了你的函数库里还有着那么一两条鲜为人知的函数，那快点以下面格式跟帖回复吧。 发表通用函数帖子格式：复制代码 代码如下:<% "***************...

去除HTML代码中所有标签的两种方法

2017年02月06日 59 阅读

去除HTML代码中所有标签复制代码 代码如下:<% "****************************** "函数：RemoveHTML_A（strText） "参数：strText，待处理的字符串 "作者：阿里西西 "日期：2007/7/12 "描述：去除HTML代码中所有标签 "示例：<%=RemoveHTML_A（"<b>欢迎光临阿里西西</b>"）%> "**********************...

asp Chr 函数 数字转字母的方法

2017年02月06日 87 阅读

Chr函数 返回与指定的ANSI字符代码相对应的字符。 Chr（charcode） charcode参数是可以标识字符的数字。 说明 从0到31的数字表示标准的不可打印的ASCII代码。例如，Chr（10）返回换行符。 下面例子利用Chr函数返回与指定的字符代码相对应的字符: DimMyChar MyChar=Chr（65）"返回A。 MyChar=Chr（97）"返回a。 MyChar=Chr（62）"返回>。 MyChar=Chr（37）"返回%...

asp快速开发方法之数据操作实例代码第1/3页

2017年02月06日 77 阅读

这是我自己的心得，给大家作个参考。 我的目的是让开发变得简单，尽可能少地考虑实现语句，更多地把精力用于思考业务逻辑。希望我的文章对大家有所启发和帮助。 如果你对ASP不熟悉，可以先看以下教程： 1、http://布鲁斯狼的ASP编程入门进阶 2、www.w3schools.com的ASP教程（英文中文），查看更多 好吧，让我们进入正题： 先看以下例子： <% db_path="database/cnbruce.mdb" Setconn=Server....

asp去除所有的超级链接的两种方法 替换与正则

2017年02月06日 59 阅读

<% "****************************** "函数：RemoveHref_A（HTMLstr） "参数：HTMLstr，待去除链接的字符串 "作者：阿里西西 "日期：2007/7/12 "描述：去除字符串中所有的超级链接 "示例：<%=RemoveHref_A（"<ahref=/abc/h.html>测试</a>"）%> "****************************** Fu...

asp下实现截取字符串特定部分内容函数

2017年02月06日 61 阅读

截取字符串特定部分内容函数<% "****************************** "函数：GetKey（HTML,Start,Last） "参数：HTML,待截取的原字符串；tart,截取开始标记；last,截取结束标记 "作者：阿里西西 "日期：2007/7/12 "描述：截取字符串函数，从Start开始截取，到Last为结束 "示例：<%=GetKey（"阿里西西，国内最大的WEB开发资源","最大的","资源"）%> ...

asp下取得客户端IP地址函数 转换IP地址函数

2017年02月06日 66 阅读

<% "****************************** "函数：Userip（） "参数：无 "作者：阿里西西 "日期：2007/7/12 "描述：取得客户端IP地址 "示例：<%=Userip（）%> "****************************** FunctionUserip（） DimGetClientIP "如果客户端用了代理服务器，则应该用ServerVariables（"HTTP_X_FORWAR...

asp实现取得数组中的最大值的代码

2017年02月06日 58 阅读

<% "****************************** "函数：GetMax（str） "参数：str，待处理的数字数组，以,分隔多了数字 "作者：阿里西西 "日期：2007/7/12 "描述：取得数组中的最大值 "示例：<%=GetMax（"360,120,5,600,32"）%> "****************************** functionGetMax（str） num=split（str,","） ...

asp 将日期格式化为需要的格式

2017年02月06日 61 阅读

<% "****************************** "函数：FormatDate（DateAndTime,para） "参数：DateAndTime,要格式化的日期时间；para,样式。 "作者：阿里西西 "日期：2007/7/12 "描述：将日期格式化为需要的格式 "示例：<%=FormatDate（now（）,3）%> "****************************** PublicFunctionFor...

asp 下产生任意位数随机密码的代码

2017年02月06日 59 阅读

<% "****************************** "函数：MakePassword（byvalmaxlen） "参数：maxlen，要生成的密码位数长度 "作者：阿里西西 "日期：2007/7/12 "描述：产生任意位数随机密码 "示例：<%=MakePassword（8）%> "****************************** functionMakePassword（byvalmaxlen） dimst...

asp下返回以千分位显示数字格式化的数值

2017年02月06日 56 阅读

<% "****************************** "函数：comma（str） "参数：str，待处理的数字 "作者：阿里西西 "日期：2007/7/12 "描述：返回以千分位显示数字格式化的数值 "示例：<%=comma（"120300"）%> "****************************** functioncomma（str） ifnot（isnumeric（str））orstr=0then res...