ASP 获取文件扩展名函数getFileExt（）

2017年02月06日 58 阅读

复制代码 代码如下:<% "功能:取得文件扩展名 Function getFileExt（sFileName） getFileExt = Mid（sFileName, InstrRev（sFileName, "."） + 1） End Function %> ...

asp 简单分页代码

2017年02月06日 59 阅读

复制代码 代码如下:<% set rs=server.createobject（"adodb.recordset"） exce="sql" "sql 查询语句 rs.open exce,conn,1,1 %> 然后是分页属性的设置 <% rs.PageSize=3 ‘设置页码 pagecount=rs.PageCount "获取总页码 page=int（request（"page"）） "接收页码 if page<=0 then p...

asp删除mssql数据库中没有记录的图片代码

2017年02月06日 59 阅读

采用双重循环。把图片进行“.”分割后名字问前面部分，那其余数据库中的 图片路径记录进行对比 采用vb的InStr函数 如果存在的话返回值>0,过可以得出结论 代码如下deal.asp 复制代码 代码如下:<%@ language="vbscript"%> <%response.Expires = 0%> <！--#include file="conn.asp"--> <% Dim objFSO,objFold...

asp 网站静态化函数代码html

2017年02月06日 60 阅读

复制代码 代码如下:Function htmll（mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld） if mulu="" then mulu="/" if htmlmulu="" then htmlmulu="/" mulu=replace（SysRootDir&mulu, "//", "/"） htmlmulu=replace（SysRootDir&htmlmulu, "//", "/"） ...

asp利用Split函数进行多关键字检索

2017年02月06日 58 阅读

如题：我写入关键字到数据库，多的时候用|隔开了，我提取再做相关文章搜索的时候，我怎么提取用|隔开的文字啊，这样我就好用关键字做搜索啊 回复： 复制代码 代码如下: <script language="vbscript"> dim keywords,operator,operend,strsql keywords="服装|荷花|名牌|中国" strsql = "select * from table_name where" operator=" ...

通过表单的做为二进制文件上传request.totalbytes提取出上传的二级制数据

2017年02月06日 76 阅读

复制代码 代码如下:<input name="file" type="file"> formsize=request.totalbytes formdata=request.binaryread（formsize） bncrlf=chrB（13） & chrB（10） divider=leftB（formdata,clng（instrb（formdata,bncrlf））-1） datastart=instrb（formdata,bncrlf ...

ASP 使用三层架构 asp中使用类

2017年02月06日 56 阅读

但是Class这个东西,如果用得比较少,充其量只是一个大模块的包装方式. 只有大规模地用它来开发,才能显出它对项目管理的优越性来. 所谓的意大利面条式代码,就会和asp划上句号了. 我想目前大部分的asp程序员中都还没有使用Class,对面向对象这种术语也不太熟悉,需要增加一章来描述一下asp中的类所扮演的角色,以及和面向对象编程的关系. 我会用尽量贴近编程实践的方式来解释Class的运用,但不会动用面向对象之类的抽象术语,如果你有了面向对象的理论基础,可...

ASP GetRef 函数指针试探

2017年02月06日 59 阅读

GetRef 函数 返回一个指向一过程的引用，此过程可绑定某事件。 Set object.eventname = GetRef（procname） 参数 object 必选项。事件所关联的对象的名称。 eventname 必选项。要与函数绑定的事件的名称。 procname 必选项。该字符串中包含 Sub 或 Function 过程的名称，该过程与事件关联。 说明 GetRef 函数可以用来将 VBScript 过程 （Function 或 Sub） 与 ...

ASP 三层架构Error处理类

2017年02月06日 59 阅读

从这节开始,将会给大家介绍几个ASP中的三大通用类,它贯穿于我所设计的三层架构中,是对ASP语法的扩展,可以提高很多细节处理上的效率,可以算是一点点框架的味道. 本节介绍错误处理类,类名Con_Error,在代码页面之初就进行初始化,实例名为e,以下的e.add 即使用该错误类的实例化对象进行操作. 方法介绍: e.Add（ByVal vErrorMessage ） 记录一个错误,并且设置 e.Error = true . 在程序检测用户名合法性等地方发现...

ASP 三层架构 Convert类实现代码

2017年02月06日 61 阅读

这个类主要解决在类型转换时,如果直接使用类型转换函数,会因为变量为空或者格式不对而导致程序报错,而这种报错在大多数情况下是允许的.例如要转换一个字符串变量为数字,如果变量为空,则一般需要自动返回0. 另外一个重要功能就是封装变量格式化操作,可以保持整个网站的输出格式统一,例如时间格式,货币格式等等. 日期和货币格式化的时候,极易遇到因空值报错的情况,一般都不得不写个预判断空值的逻辑,再格式化变量. 使用这个类负责类型转换和格式化输出后,就不用操心这些琐碎的...

asp 采集程序常用函数分析

2017年02月06日 113 阅读

原理 采集程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻采集程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么采集程序也要进行...

asp 通用修改和增加函数代码

2017年02月06日 61 阅读

接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍微修改即可使用。 复制代码 代码如下:<% sub AdminEdit（） dim Action,rsCheckAdd,rs,sql Action=request.QueryString（"Action"） if Action="SaveEdit" t...

初学js者对javascript面向对象的认识分析

2017年02月06日 55 阅读

复制代码 代码如下: var obj = document.getElementById（"name"）; function clickMe（） { alert（this.value）; this.value += "！！！！"; alert（this.value）; } var ActionBinder = function（） {//定义一个类 } ActionBinder.prototype.registerDOM = function（doms） ...

Asp定时执行操作 Asp定时读取数据库（网页定时操作详解）

2017年02月06日 59 阅读

目前定时的操作有： 一、Html页面的定时刷新（Refresh－－刷新 ） 1，Refresh （刷新） 代码使用说明 说明：让网页多长时间（秒）刷新自己，或在多长时间后让网页自动链接到其它网页。 用法：<Meta http-equiv="Refresh" Content="30"> <Meta http-equiv="Refresh" Content="5; Url=http://www.jb51.net">...

ASP 80040e14错误的解决方法

2017年02月06日 58 阅读

Microsoft office Access Database Engine 错误 "80040e14" Insert INTO 语句的语法错误。 上网查了一下资料，才知道该错误是由一下原因造成的： 1）将保留字用作名称。大多数数据库都有一组保留字。例如，"name"是保留字，因而不能用于数据库中的列名称。 2）名称中使用特殊字符。特殊字符的示例包括： . / * : ！ # & - ？ 3）在列名称中使用空格。 4）当为数据库中的对象定义了输入掩码并且...

ASP 调用带参数输出的COM接口

2017年02月06日 56 阅读

COM接口VC实现,接口: [id（1）, helpstring（"method Test"）] HRESULT Test（[in] BSTR strInputA, [in] BSTR strInputB, [out,retval] VARIANT* result）; ASP调用： Set objCompInfo =server.CreateObject（"组件在系统中的名字"） result=objCompInfo.Test（arrIn,arrout） ...

隐藏修改文件时间和文件属性的ASP脚本

2017年02月06日 60 阅读

复制代码 代码如下:<% "隐藏并修改文件的最后修改时间的aspshell "原理:通过FSO可以修改文件的属性，比如设置为只读，隐藏，系统等等；FSO中的attributes属性修改文件属性，1只读，2隐藏，4系统文件 " 通过shell.application可以给文件重新设置一个最后修改时间 "2009/02/24 write by skyfire response.write "<form method=post>" respon...

ASP Crazy 模版操作类（最简单的模板类、仅提供交流）

2017年02月06日 58 阅读

文件名：Awa_temp.Class.asp 复制代码 代码如下: <% "Crazy蛙！模板操作类 "作者Crazy~蛙！ QQ:379969387 欢迎交流 "版本V1.0; Class AwaTemp Public aa Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues "================================...

asp 动态数组 提供Add、Insert、Remove、RemoveAt、Search等方法。

2017年02月06日 59 阅读

复制代码 代码如下:Class Vector Private vector_datas（） Private initial_capacity "初始化容量 Private capacity_increment "容量增量 Private element_count "元素数 Private max_capacity "总容量 Private Sub Class_Initialize（） RemoveAll End Sub Public Function R...

asp 取一个数的整数 但不是四舍五入，只要有小数，就取大于这个数的整数

2017年02月06日 77 阅读

如： 0.625 取 1 2.1 取 3 3.6 取 4 <% if fix（a）>a then b=fix（a） else b=fix（a）+1 response.write b end if %> 或者： <% a=0.625 if a<>fix（a） then a=fix（a）+1 else a=fix（a） end if response.write a %> （注：这个测试成功！） ---------...