IT码农库

搜索列表

  • CJJ专用ASP类库中的某个class

    【ASP编程】作为程序员,相信每个人都有自己的函数库及类库。在做项目时,从库里面提取想要的函数及类。这样可以提高开发效率。CJJ专用ASP类库中的某个class复制代码 代码如下:  '----******************** TConnString *****************************----   '数据库连接字符串结构体  ...

  • ASP编程实用20例

    【ASP编程】1.如何用Asp判断你的网站的虚拟物理路径    答:使用Mappath方法  p align=center  font size=4 face=Arial  b   The Physical path to this virtual website is   b  fon...

  • 创建一个ASP通用分页类

    【ASP编程】从开始学习到使用ASP到现在也写了不少程序了,最令人头痛的是写数据分页,每次都是由于几个变量名或几个参数的不同,因而需要每次都写哪一段冗长而又繁杂的分页代码,代码长了使得程序的可读性变差,容易出差,调试半天也找不出错在哪里,所以慢慢的我开始使用一些网上的提供的分页函数或分页类。的确省事不少,但是通常的函...

  • 分页类,异常类

    【ASP编程】其它的一些,比如分页类,异常类(用于信息提示),文件操作类(未完成),经常用到的工具类及验证输入的表单验证类(ASP版,配合前台JS版使用更佳): 分页类Pager <% Class Pager Private IUrl Private IPage Private IParam Private IPageSize Private I...

  • 生成静态页大全[ASP/PHP/ASPX]

    【ASP编程】ASP生成静态网页的方法   随着网站访问量的加大,每次从数据库读取都是以效率作为代价的,很多用ACCESS作数据库的更会深有体会,静态页加在搜索时,也会被优先考虑。互联网上流行的做法是将数据源代码写入数据库再从数据库读取生成静态面,这样无形间就加大了数据库。将现有的ASP页直接生成静态页,将会节省很多。...

  • 一个查ASP木马的小东东

    【ASP编程】关于查ASP木马的程序,记得半年前在八进制发了一个测试版(具体的URL:http://forum.eviloctal.com/read-htm-tid-19665.html),得到很多朋友的指导,学到了很多东西,非常感谢他们。现在我发的这个升级版,修补了以前的bug,加入了对一些组件写文件函数的检测,更加趋于完美了,个人认为想绕过去有点难度哦。 这回的默...

  • asp 防止SQL注入代码

    【ASP编程】把下面代码复制到每个文件头部就可以防止SQL注入了,写程序安全最重要 :) <% Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx '---定义部份 头------ Fy_Cl = 1    '处理方式:1=提示信息,2=转向页面,3=先提示再转向 Fy_Zx = "Err...

  • 如何限制同一用户名同时登陆

    【ASP编程】这个问题我的办法是,用户有个活跃时间间隔问题。超过这个活跃时间间隔的则可以认为是离线,后者可以登陆 ,如果无后者登陆,但并不是说前者就需要重新登陆了。因为他的session还在的。只能是这个时间设置的越小越精确,也是不能做到绝对的。代码贴出来给楼主参考下。Function CheckOnline() DIM IP,rsPrv,Sql,PrvDbS...

  • 自己做采集程序

    【ASP编程】现在网上的采集程序很多,但是有时候你发现一个好的网站,想自己做个采集工具采集一些信息,就需要自己去写程序了,其实这样的采集程序并不难写,主要是去分析源网站的网页结构。首先去下载个XMLHTTP的类文件:<%Class xhttpprivate cset,sUrl,sErrorPrivate Sub Class_Initialize()'cset="UTF-8"cset="G...

  • ASP充分利用Err.Description

    【ASP编程】我们一般在调试程序的时候,有些操作会莫名地失败,又没有错误消息提示,特别是在执行数据库操作的时候,明明执行过去了,可就是数据库里没有记录变动,很是郁闷!今天刚才在搞FSO删除操作时就出现了这样的问题,后来一把Err.Description放上去,马上提示错误在哪里,所以这东东一定要充分利用!具体使用 On Error...

  • 很不错的一个UBB代码

    【ASP编程】<%Function HTMLEncode(ByVal strValue) '忽略错误 On Error Resume Next '定义变量 Dim strNewValue If strValue <> "" Then  strNewValue = Replace(strValue,"...

  • 浅谈自动采集程序及入库

    【ASP编程】<%'声明取得目标信息的函数,通过XML组件进行实现。Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False.Send GetURL = bytes2bstr(.responsebody)'对取得信息进行验证,如果信息长度小于100则说明截取失败if len(.responseb...