asp下载防盗链代码

2016年07月27日 44 阅读

asp下载防盗链代码第一种: 终于对下载系统做了个防盗链措施，在下载的页面头部做了如下代码，相关代码如下：复制代码 代码如下:<% From_url=Cstr（Request.ServerVariables（"HTTP_REFERER"）） Serv_url=Cstr（Request.ServerVariables（"SERVER_NAME"）） ifmid（From_url,8,len（Serv_url））<>Serv_urlandmi...

把无限级分类生成数组

2016年07月27日 44 阅读

把无限级分类循环出来确实是一件头疼的事情。 比如，我们要循环出一个SELECT,或一个TABLE，要写一大堆判断。 有没好点的办法呢？ 我的做法是生成数组，可以重复调用，直接循环数组就行了。 为了方便，我把它写成了类。 class.asp 返回所有分类的数组,并按顺序排列 有4个属性： 复制代码 代码如下:setaa=newclasslist aa.id="id"//编号的名称 aa.classname="classname"//分类名称 aa.pid="...

用ASP+FSO生成JS文件

2016年07月27日 47 阅读

复制代码 代码如下:<！--#includefile="conn.asp"--> <% setjs=server.CreateObject（"ADODB.RecordSet"） sql="selecttop10*fromarticleorderbyiddesc" setjs=conn.Execute（Sql） dowhilenotjs.eof title=js（"title"） addate=js（"addate"） foolcat=fo...

ASP动态生成的javascript表单验证代码

2016年07月27日 48 阅读

以网上down了一个ASP动态生成Form验证javascript的代码，自己扩容了一下。作者的大名我给忘了，不过我记得清楚，从第一条至第九条的代码都是该作者的原创。至于九至第十五条却是本人自己加的哦。而且由于本人水平有限，从第九条至第十五条不见得会条条生效啊？呵呵，其实把它贴在这里没有什么必要的，因为这点小会伎俩谁都会用的，我把它的作用定位为：开发时找不到该函数时到这里拷贝一下就可以了。呵，因为我即没有刻录机也没有移动硬盘。实在是没有办法把这些代码随身携...

在asp中通过getrows实现数据库记录分页的一段代码

2016年07月27日 47 阅读

复制代码 代码如下:<%@Language=VBSCRIPT%> <%OptionExplicit%> <% rem在asp中通过getrows实现数据库记录分页的一段代码 DimiStart,iOffset iStart=Request（"Start"） iOffset=Request（"Offset"） ifNotIsNumeric（iStart）orLen（iStart）=0then iStart=0 else iSta...

解决ASP（图像）上传漏洞的方法

2016年07月27日 42 阅读

经常听说的ASP上传漏洞，即是将一些木马文件修改后缀名（修改为图像文件后缀），进行上传。 针对此情况使用下列函数进行辨别：复制代码 代码如下:<% "****************************************************************** "CheckFileType函数用来检查文件是否为图片文件 "参数filename是本地文件的路径 "如果是文件jpeg,gif,bmp,png图片中的一种，函数返回tr...

asp错误的几种处理方式

2016年07月27日 46 阅读

简单介绍 ASP是非常简单的，以至于许多的开发者不会去思考错误处理，正确处理错误能够让你的应用程序更加合理。我看到过很多个用ASP编写的商业网站，大多数都忽略了错误处理。 有三种主要的错误类型： 编译错误： 这种错误出现一般都是代码的语法问题。 因为编译错误而导致辞ASP停止运行。 运行错误 这个错误是发生在你准备运行ASP时的。 例如：如果你试图给一个变量赋值，但是却超出了该变量允许的范围。 逻辑错误 逻辑错误是最难被发现的，这种错误经常是一种结构错误，...

获取远程flash并保存到本地

2016年07月27日 46 阅读

复制代码 代码如下:<% "-------------------------------------------------------------- Dbname="../data/flash.mdb""更改数据库文件位置，强烈建议更改为.asp的文件！ SetConn=Server.CreateObject（"ADODB.Connection"） Connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSou...

asp数组使用（2）

2016年07月27日 45 阅读

复制代码 代码如下:<% FunctionNewtxt（sz,strtxt,cityid） Dimali,icount,i Dimali2 ali=split（sz,","） ali2=split（strtxt,","） icount=UBound（ali） cityid=Request.QueryString（"cityid"） ifRequest.QueryString（"cityid"）=""then cityid="234" endif Fo...

asp中 select top 问题！~

2016年07月27日 44 阅读

sql="selecttop8*fromMusiclistwhere"&sql2&"orderbyhitsdesc" 选择前八条无效！~ 显示出来的是所有新闻！~为什么？ 改为下面的就可以 sql="selecttop8*fromMusiclistwhere"&sql2&"orderbyhits,IDdesc"注意id是自动增加的...

批量复制数据

2016年07月27日 45 阅读

现有表Special和表view数据结构相同的两个表: 复制代码 代码如下:Special SpecialidNClassnamepic 1黎明火舞艳阳 2张学友地久天长 3陈冠希同名专辑 4郭富城听风的歌 view SpecialidNClassnamepic 1黎明火舞艳阳photo/200606192321.jpg 2张学友地久天长photo/200606192327.jpg 3刘德华如果有一天photo/200606192328.jpg 4郭富城听...

冒泡算法的三种JavaScript表示

2016年07月27日 48 阅读

以前学习冒泡算法，总是弄不清楚n和n-1等一些变量的关系，原因是没有弄明白它的真正含义，今天写了一个冒泡算法的JS小程序，终于弄明白了。复制代码 代码如下:varR1=newArray（）; R1[1]=35; R1[2]=55; R1[3]=65; R1[4]=20; R1[5]=30; R1[6]=25; R1[7]=0; R1[8]=7; R1[9]=5; R1[10]=3; varR2=newArray（35,55,65,20,30,25,0,7,...

asp无限分级（递归调用）

2016年07月27日 45 阅读

数据库字段:id（自动编号）,class_name（菜单名）,parentID（父菜单id） 复制代码 代码如下:<% dimm m=0 callShowTree（0）%> <% SubShowTree（parentID） dims m=m+1 Dimrs Setrs=Server.CreateObject（"ADODB.RecordSet"） sql="Selectclass_id,class_nameFROM[WMS_Class]wh...

VBS、ASP代码语法加亮显示的类

2016年07月27日 48 阅读

复制代码 代码如下:<% ClasscBuffer PrivateobjFSO,objFile,objDict Privatem_strPathToFile,m_TableBGColor,m_StartTime Privatem_EndTime,m_LineCount,m_intKeyMin,m_intKeyMax Privatem_CodeColor,m_CommentColor,m_StringColor,m_TabSpaces PrivateS...

安全脚本程序的编写 V1.0第1/3页

2016年07月27日 42 阅读

基本思路： 为每一个功能写一个独立的程序，程序页 尽可能少的让客户了解你的服务器端信息 不要用"客户应该这么写"这个思路想问题 尽可能多的想到不可能发生的事情 1.关于交互式动态网页可能存在的问题 1.1form类型的交互 1.1.1概念介绍 在我们和浏览者进行交互时，最常用到的就是form（post/get/put方法），虽然非常方便，但是很多问题也是因他而起。 form表单中input标志 用来接受用户输入的信息，例如：用户名、密码、email等。如果...

atom2rss.asp

2016年07月27日 44 阅读

复制代码 代码如下:<% "atom2rss.asp "Author:FrancescoPassantino "Email:francesco@iteam5.net "Blog:www.iteam5.net/blog "Startdate:17Sep2004 Subatom2rss（URL） SetobjXML=Server.CreateObject（"msxml2.DOMDocument.3.0"） objXML.async=false objXM...

atom_js.asp

2016年07月27日 43 阅读

复制代码 代码如下:<% "Iconvertedsomeofyourexamplefoundonhttp://www.iteam5.net/francesco/atom/overtojscript. "Feelfreetouseitandkeepupthegoodwork. "TysonKopczynski "tyson@cco.com functionatom（strURL） { varobjXML=newActiveXObject（"msxml2...

google sitemap.asp

2016年07月27日 48 阅读

用于生成sitemap.xml文件的东西，利于google等搜索引擎的抓取。复制代码 代码如下:<% Server.ScriptTimeout=50000 "sitemap_gen.asp "Asimplescripttoautomaticallyproducesitemapsforawebserver,intheGoogleSitemapProtocol（GSP） "byFrancescoPassantino "www.iteam5.net/fra...

用ASP读取/写入UTF-8编码格式的文件

2016年07月27日 42 阅读

<% "------------------------------------------------- "函数名称:ReadTextFile "作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件 "---------------------------------------------------- functionReadFromTextFile（FileUrl,CharSet） dimstr setstm=server.C...

捌度空间 缓存类

2016年07月27日 46 阅读

捌度空间缓存类代码复制代码 代码如下:<% classCache privateobj"cache内容 privateexpireTime"过期时间 privateexpireTimeName"过期时间application名 privatecacheName"cache内容application名 privatepath"url privatesubclass_initialize（） path=request.servervariables（"u...