你是不是经常在网上看到一些公司的广告，并且他们能不停的变换各种广告内容，这就是运用ASP中的广告交替组件。 (一).广告交替组件的使用方法和具体属性： 1).GetAdvertisement方法 在这里Server.CreateObject方法用于广告交替的例子:Set ad=Server.CreateObject("MSWC.A...

2008-02-23 09:46:53

ActiveX 组件作为基于 Web 的应用程序部分在 Web 服务器上运行。组件提供了应用程序的主要功能（如访问数据库），这样就不必创建或重新创建执行这些任务的代码。 数据库访问 可以使用 Database Access 组件在应用程序中访问数据库。然后可以显示表的整个内容、允许用户...

2008-02-23 09:46:53

% '文件名：updata.asp '远程地址 const url="http://localhost/test/" action=request("action") if action="updata" then download(url"config.txt") download(url"pack.jpg") response.Write("下载成功a href='updata.asp?action=install'安装/a") elseif action="i...

2008-02-23 09:46:51

最近帮学校做一个东西，大概两天就弄出来一个，而且今天也上缴了，但是总是觉得有一些担心。突然想测试测试，本来是想测试一下用二分法对数据进行选取的，但是，不知道怎么能得到Last Record And First Record，所以，就想慢慢测试测试，怎么能得到Last And First Reco...

2008-02-23 09:46:52

这个用在里面限制字体个数的东西： Dim rsTitle,tmpLeft rsTitle=Rs("Title") If Len(rsTitle)intTitLen Then ????rsLeft=rsTitle ????Do While Len(rsLeft)intTitLen 'Or Len(Right(rsTitle,intTitLen*j))intTitLen ?????Response.Write Left(rsLeft,intTitLen)" " ??...

2008-02-23 09:46:50

因为比较简单，我就不说什么了。一看就明白的！ Function ChkStr(InString) If InString"" Then ?InString=Replace(LCase(InString)," ","") ?InString=Replace(LCase(InString),";","") ?InString=Replace(LCase(InString),"'","") ?InString=Replace(LCase(Instring)...

2008-02-23 09:46:51

哎，好久没有写东西了，老师这次又来说让我再测试测试自己的东西，发现有特殊字符过滤不严的问题，所以又重新写了一个函数过滤特殊字符的。 Function ChkInvaildWord(Words) Const InvaildWords="select|update|delete|insert|@|--|," '需要过滤得字符以“|”隔开，最...

2008-02-23 09:46:49

以前开发网页就是用access开发，自己也知道这个东西不好，但是没有办法,现在就这个技术，所以一直以来就想把自己的东西升级一下,可能这个对别人来说不是什么问题，但是对于我来说，我又学习到了不少的东西了，嘿嘿，先记录以下，以免以后忘记了! 'MS Access strConn="Pr...

2008-02-23 09:46:48

最近迷恋上作网站了，使用asp开发，发现asp有好多的漏洞，而且在一个网站中有好多的代码是重复使用的，所以就查询了一些资料发现在asp中可以使用类的思想，所以就写了这个类，写的不好，但是比较实用。 meta http-equiv="Content-Type" content="text/html; charset=gb...

2008-02-23 09:46:47

使用asp作东西已经比较多了，但是一直没有注意这个东西，今天就花了一点时间写了一些，方便以后使用。 %SUB ListPageMenu(objRs,intrsPageSize) Dim rsTotal,rsPageSize,rsPageCount If NOT ISObject(objRs) Then Exit Sub:End If If NOT IsNumeric(rsPageSize) Then E...

2008-02-23 09:46:47