<% '计算分页的几种方法 '// iRecordCount为要计算的页面总数 '// iRecordCount为记录集数 '// iPageSize为每页记录数 '// 一: If iRecordCount Mod iPageSize = 0 Then iPageCount = Int(iRecordCount / iPageSize) Else iPageCount = Int(iRecordCount / iPageSize) + 1 End If '// 二: iPageCount = Int(iRecordCount / iPageSize * -1) * -1 '// 三: iPageCo...
下面这段子程基本上可以算是比较不错的通用匹配了。(PS:我突然发现CODE_LITE把我的UBB转义了！！！晕,我只好自己转义了。。。) Dim objRegExp,Matches,i,DC9_DOT_CN_MATCH Dim aryMatch() Redim Preserve aryMatch(0) Set objRegExp=New RegExp objRegExp.IgnoreCase =True objRegExp.Global=True objRegExp.Pattern="(?:\[[^\]]+\]([^\[]+)\[\/[^\]]+\])|(?:(?:href|src)=([^\s|^>]+)[""|>|\s\'])" Set Matches = objRegExp.Execu...
方法一：利用Cookies，一劳永逸 Cookies能通过IE的“文件-导入和导出”将登录信息通过Cookies导出保存（傲游这个功能MS不能用），曾见过有人撰文说将“FALSE”空格后面的“10********”修改为“16********”可以将有效期增加至20年（在IE缓存中选择详细信息查看方式，在截止期一栏可以看到有效期）。在其他地方通过Cookies的导入导出，用来登录论坛，也不愧是一个很便捷的方法，但临走时千万得记住清空它。 方法二：一键登录 在登录...
Application 对象web 上的一个应用程序可以是一组 ASP 文件。这些 ASP 文件一起协同工作来完成某项任务。ASP 中的 Application 对象用来把这些文件捆绑在一起。Application 对象用于存储和访问来自任何页面的变量，类似于 session 对象。不同之处在于，所有的用户分享一个 Application 对象，而 session 对象和用户的关系是一一对应的。Application 对象存有会被应用程序中的许多页面使用的信息（比如数据库连接信息）。这意味着可...
相信大家平时都有这样的经历：页面上有一个链接指向服务器一个Word文件，当客户端机器有安装Office时，点击链接将调用Word打开浏览；当客户端机器没有安装Office时，点击链接将弹出保存对话框。总结一下即如果浏览器认识文件类型，就会自动打开；如果不认识，则会提示客户保存。可是有时候我们希望不管什么类型文件，都不要打开，直接让客户端保存。要达到这个要求，对于保存在服务器硬盘上的文件就得利用ASPUpload组件的SendBinar...
在windows2000下，IIS默认设置是可以web和可执行程序通信的。但是在2003下IIS关于这方面的服务是禁止的。 我现在遇到的问题是，利用web和一个带参数的可执行程序连接。并运行这个带参赛的可执行程序。 在windows2003下用asp中的Server.CreateObject("WScript.Shell") 运行没有出现错误，但是并没有执行。 但是在windows2000下可以执行。 呵呵，意识到那是IIS开的玩笑。 在windows2003下如果支持Server.CreateObject("WScript.Shell...
这个是网页编码的问题。中文一般采用的是gb2312这样的话显示中文基本上不会出现乱码。但是有时候我们用的是一种国际上通用的utf-8格式。如果utf-8格式人不是很了解的话是容易出现乱码的。 有许多朋友问过我,为什么在ASP里指定了codepage为65001还经常显示乱码.才子在这里将这个问题详细解释一下,以免很多朋友再走弯路,甚至排斥UTF-8. asp网页utf8乱码如果你还不知道UTF-8是什么东东,那才子建议你先去搜索一下UTF-8的相关资料吧. UT...
javascript中的对象JS作为一种动态语言，在语法上有相当大的自由度，所以造成了一种功能，有N种写法的局面。 在JS中实现OOP，一般来说有两种方法： 第一种：使用this关键字 function Class1() { this.onclick = function(e) { for (var i=0; i < 1000; i++) { var a = new Date(); } } } 使用this.的方法可以很灵活地给对象添加属性和方法，而且和大部分的OOP语言都相似，甚至在...
如果你用ODBC连接(DSN方式或其它方式)到远程计算机的MDB文件，这将产生一个错误： Microsoft OLE DB Provider for ODBC Drivers error '80004005' 大致意思是该文件可能被其他用户访问或无足够的权限访问。 下面有两种方式，避免这个错误： 方式a. 使用DAO引擎访问 Dim File, Conn, RS Const ReadOnly = False File = "\\server\share\file.mdb" Set Conn = CreateObject("DAO.DBEngine.35").Workspaces(0).OpenDatabase(Fi...
即直接提示用户下载而不是由浏览器打开某些文件。注意，下面的代码拷贝到ASP文件中后，不要再添加一些非ASP代码在页面中：如HTML和javascript客户端的代码。 代码如下:<% '-------------------------------------------- Response.Buffer = True Dim strFilePath, strFileSize, strFileName Const adTypeBinary = 1 strFilePath = "文件路径 " strFileSize = ... 文件大小，可选 strFileName = "文件名" Response.Clear '8*******...
我想做META关键字，比如我的标题显示ASP代码是：<% =objrs("Title")%> 如果<% =objrs("Title")%>最终显示的标题如“字符串分割如何实现？” 我想把字符串按两个汉字分割，如“字符,符串,串分,分割,割如,如何,何实,实现” 那ASP代码如何写？ 非常感谢。 代码如下:dim i, title title = objrs("Title") for i = 0 to len(Title") step 2 response.write mid(title, i, 2) & "," next代码如下:<% dim objRs,strSql Set objRs=Serv...
一些Asp技巧和实用解决方法 随机数: <%randomize%> <%=(int(rnd()*n)+1)%> 查询数据时得到的记录关键字用红色显示： <% =replace(RS("字段X"),searchname,"<font color=#FF0000>" & searchname & "</font>") %> 通过asp的手段来检查来访者是否用了代理 <% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then response.write "<font color=#FF0000>您通过了代理服务器，"& _ "真实的IP为"&Request.ServerVariables("HTTP...
如何取得数组中的最大值(由71port_80端口提供) 该函数的作用是取得一组数组中最大的一个值，非常实用且精典，值得收藏! 代码如下:snum="345,231,56,786,1100,356,1200,300,685,111,134,765" function GetMax(str) num=split(str,",") max=num(0) for ii=0 to ubound(num) if cint(num(ii))>cint(max) then max=num(ii) response.Write "num="&num(ii)&",max="&max&"<br />" next GetMax=max end function response.W...
ASP中使用SQL语句教程 五花八门的SQL产品多得要命，或许你早顾不得其它甩开袖子就动手干了。但你要同时采用ASP和SQL的话就可能会头晕。MySQL、SQL Server和mSQL都是绝佳的SQL工具，可惜，在ASP的环境下你却用不着它们来创建实用的SQL语句。不过，你可以利用自己掌握的Access知识以及相应的Access技能，再加上我们的提示和技巧，相信一定能成功地在你的ASP网页中加入SQL。 1. SELECT 语句 在SQL的世界里，最最基础的操作就是SELECT...
防止从外部提交数据的方法 第一种做法，屏蔽特殊字符和关键字 fqys=request.servervariables("query_string") dim nothis(18) nothis(0)="net user" nothis(1)="xp_cmdshell" nothis(2)="/add" nothis(3)="exec%20master.dbo.xp_cmdshell" nothis(4)="net localgroup administrators" nothis(5)="select" nothis(6)="count" nothis(7)="asc" nothis(8)="char" nothis(9)="mid" nothis(10)="'" nothis(11)=":" nothis...