为了防止再次被攻击，做个验证码过滤程序是必要的。我在网上找了一些资料，觉得用别人做好的代码总是很不爽，自己做麻又不会写复杂的代码，特别是生成图片的那种。尝试了网上的很多种方法都不行，不知道为什么，可能没经验吧。感觉挺复杂的。 最后花了一个小时写了一个超级简单的验证代码，哈哈绝对原创，只有十几行代码。是随机生成的，因为比较简单所以对付不了那些强大的发帖软件，不过总比没有的好，放上验证码之后观测了几天多...
目录 一、 环境配置 二、 ASP对Excel的基本操作 三、 ASP操作Excel生成数据表 四、 ASP操作Excel生成Chart图 五、 服务器端Excel文件浏览、下载、删除方案 六、 附录 正文 一、 环境配置 服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即： 1．Win9x+PWS+Office 2．Win2000 Professional+PWS+Office 3．Win2000 Server+IIS+Office 目前笔者测试成功的环境是后二者。Office的版本没有特殊要求，...
<!--#include file="config.asp" --> <!--#include file="Fun.asp" --> <% '数据库管理类 class Datas '备份 public sub Bk() Set fso=server.createobject("scripting.filesystemobject") fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath) set fso=nothing response.Write("<script language=javascript><!-- alert('备份成功！');window.location.href='DataManage.asp' // --></script>") end ...
举个例子来说，要查找出2007-10-12至2007-10-31之间在网站上注册的会员，选择好日期后，点击“查询”按钮，发现2007-10-31注册的会员的信息根本没有显示出来，试验了几次结果都是一样。调试程序发现，原来是在SQL语句这里出现了问题。 SQL语句如下：SELECT * FROM userinfo WHERE regtime >= '2007-10-12' AND regtime <= '2007-10-31'。初看上去这条SQL语句没有错误，可是对照数据库中相应字段保存的值以后，发现保存的值并不...
代码如下:Class XMLClass Private objXml Private xmlDoc Private xmlPath '//============================================================ ' Sub Class_initialize Set objXml = Server.CreateObject("MSXML2.DOMDocument") objXml.preserveWhiteSpace = true objXml.async = false End Sub Sub Class_Terminate Set objXml = Nothing End Sub '//============================================================ ' Public Func...
其主要的优点便是无需再手工添加大量的信息了，可以指定对某一个站信息的截取进行批量录入，达到省时省力的目的。与其单纯的ASP小偷程序不同的是:它已经不再依赖其目标网站。 参考代码： 代码如下:<% 声明取得目标信息的函数,通过XML组件进行实现。 Function Geturl(/blog/url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False .Send GetURL = bytes2bstr(.responsebody) 对取得信息进...
jqGrid是一个优秀的基于jQuery的DataGrid框架，想必大伙儿也不陌生，网上基于ASP的资料很少，我提供一个，数据格式是json的： 、一个针对jqGrid的json类：这段代码似乎是由官网论坛的一些PHP中转化而来，我们存为json.asp，代码贴一下： 代码如下:<% response.Charset="utf-8" --------------------------------------- JSONClass类 将Select语句的执行结果转换成JSON ------------------------------------------ Class JSONCl...
对于更完整的代码可以参考，这个是支持数据库的版本。经过脚本之家编辑测试。Asp+Ajax仿google搜索提示效果 数据库版需要修改的地方有 代码如下:javascript.js var url="ajax.asp"; //后台地址 var time_delayajax=300; //搜索延迟 var time_delayupdown=100; //方向键延迟 obj_div.style.top = (xtop + 20) + "px"; //20差不多是输入框的高度,请根据实际情况调整 ajax_xmlhttp.send("sift_value="+escape(temp_value)); //提交到...
代码如下:<% set studentinstance = CreateStudent() if not isnull(studentinstance) then Response.write("StudentId:"&studentinstance.StudentId&"<Br/>") Response.write("StudentName:"&studentinstance.StudentName&"<Br/>") end if Function CreateStudent() set stud = new Statudent stud.StudentId=123 stud.StudentName="Eric liu" set CreateStudent=stud End Function Class Statudent private id private name publ...
代码如下:<% '/* 函数名称：Zxj_ReplaceHtml ClearHtml '/* 函数语言：VBScript Language '/* 作 用：清除文件HTML格式函数 '/* 传递参数：Content (注：需要进行清除的内容) '/* 函数作者：张晓军(古城童话) QQ:382511147 '/* 函数说明：正则匹配(正则表达式)模式进行数据匹配替换 Function ClearHtml(Content) Content=Zxj_ReplaceHtml("&#[^>]*;", "", Content) Content=Zxj_ReplaceHtml("</?marquee[^>]*>", "", Content)...
代码如下:function FSOlastline(filename) dim fso,f,temparray,tempcnt set fso = server.CreateObject("scripting.filesystemobject") if not fso.fileExists(server.mappath(filename)) then exit function set f = fso.opentextfile(server.mappath(filename),1) if not f.AtEndofStream then tempcnt = f.readall f.close set f = nothing temparray = split(tempcnt,chr(13)&chr(10)) FSOlastline = temparray(ubound(tempar...
Cookie是一种发送到客户浏览器的文本串句柄，并保存在客户机硬盘上，可以用来在某个Web站点会话之间持久地保持数据。Request和Response对象都有一组Cookie。Request.cookie集合是一系列Cookie，从客户端与HTTP Request一起发送到Web服务器。反过来，如果你希望把Cookie发送到客户机，就可以使用Response.cookie 1、ExpiresAbsolute属性 该属性可以赋一个日期，过了这个日期Cookie就不能再被使用了。通过给Expires属性赋一个过期...
代码如下:'返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径 function CountFilesNumber(folderspec) Dim objfso,f,fc Set objfso=CreateObject("Scripting.FileSystemObject") Set f=objfso.GetFolder(folderspec) Set fc=f.Files CountFilesNumber=fc.Count set fc=nothing set f=nothing set objfso=nothing End Function
代码如下: <% function GetBot() 查询蜘蛛 dim s_agent GetBot="" s_agent=Request.ServerVariables("HTTP_USER_AGENT") ‘关键判断语句 if instr(1,s_agent,"googlebot",1) >0 then GetBot="google" end if if instr(1,s_agent,"msnbot",1) >0 then GetBot="MSN" end if if instr(1,s_agent,"slurp",1) >0 then GetBot="Yahoo" end if if instr(1,s_agent,"baiduspider",1) >0 then GetBot="baidu" end if if i...
代码如下:<form action="insert.asp" method="post" enctype="multipart/form-data" name="form1" onSubmit="b1_onclick()"> <table width="500" border="1" align="center" cellpadding="0" cellspacing="0"> <tr> <td colspan="2" bgcolor="#999999" class="t">选择文件 </td> </tr> <tr> <td colspan="2" class="t"> </td> </tr> <tr> <td width="126" class="t">选择文件(excel) </td> <td width="368" class="t"><label> <inp...