使用FSO修改文件夹的名称实现文件转移防盗链

2017年02月06日 59 阅读

那天突然的一个灵感，是针对防盗链的 正常上传的文件，若被人盗链则增加了自己服务器的负担，上次164.cc就因此被挂 然后想想对策，目前各类防盗链程序也不少，不过使用也并不简单，还有就是不能免费…… 所以，只有自己先想办法。那么，现在看看标题，再想想防盗链，或许就有些眉目了 我可以不定时的修改上传文件所在的文件夹名称，而本站程序是动态获得文件夹名称，这样原先盗用本站文件的站点会因路径的错误而找不到文件，从而也就实现了防盗链。 那么，如何使用FSO修改文件夹的...

asp水印组件之AspJpeg的结合代码实例

2017年02月06日 60 阅读

1、什么是AspJpeg？ AspJpeg是一款功能强大的基于MicrosoftIIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一般也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系。 AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象，支持的图象格式有：JPEG,GIF,BMP,TIFF,PNG AspJpeg主要可以做到： 生成缩略图片 生成水印图片 图片合并 图...

asp下request.querystring（"id"）与request（"id"）区别

2017年02月06日 77 阅读

Request从几个集合取数据是有顺序的，从前到后的顺序依次是QueryString,Form,最后是ServerVariables。Request对象按照这样的顺序依次搜索这几个集合中的变量，如果有符合的就中止，后面的就不管了。 现在我们来分析下你得问题. 假设有个页面test.asp？id=111 这里我们的页面是用GET的方法.这时用request.querystring（"id"）与request（"id"）是一样得,应该如果不指定REQUEST得...

asp实现dig功能的js代码

2017年02月06日 80 阅读

//ajax控件 functionDiggAjax（）{ varxhrObj=null; if（window.XMLHttpRequest）{ xhrObj=newXMLHttpRequest（）; } elseif（window.ActiveXObject）{ try{ xhrObj=newActiveXObject（"Microsoft.XMLHTTP"）; } catch（e1） { try{ xhrObj=newActiveXObject（"MSX...

asp将全角的字符转变成半角字符，将半角转变成全角d的代码

2017年02月06日 86 阅读

将全角的字符转变成半角字符，将半角转变成全角 <% FunctionDSConvert（vString,vFlag） RemvFlag为0时表示从全角转为半角,为其他时表示从半角转为全角 Dimi,tmpSingleCharaASC,TempResult,SAscString,DAscString SAscString="1,2,3,4,5,6,7,8,14,15,16,17,18,19,20,21,22,23,24,25,26,27,33,34,3...

asp创建表，复制表 字段类型附录

2017年02月06日 59 阅读

在已有数据库中创建表 <%setconn=server.CreateObject（"adodb.connection"） sql="provider=microsoft.jet.oledb.4.0;datasource="&server.MapPath（"BOOK.mdb"） conn.opensql Conn.Execute（"createtablebbb（idAUTOINCREMENT（1,1）,p_idtext（100）,eemoney,ffd...

asp加密解密函数decrypt

2017年02月06日 80 阅读

加密与解密函数 <%functiondecrypt（dcode） dimtexts dimi fori=1tolen（dcode） texts=texts&chr（asc（mid（dcode,i,2））-i） next decrypt=texts endfunction functionencrypt（ecode） Dimtexts dimi fori=1tolen（ecode） texts=texts&chr（asc（mid（ecode,i,2））...

asp获取当前网页地址的代码

2017年02月06日 60 阅读

当前页地址 <%dimurlname urlname=Request.ServerVariables（"QUERY_STRING"）%> <%=Request.ServerVariables（"SCRIPT_NAME"）%><%ifurlname<>""then%>？<%=urlname%><%endif%>...

asp下经常用到的代码

2017年02月06日 62 阅读

点击提示“确定”与“取消”提示框 onclick="{if（confirm（"您确定删除吗？此操作将不能恢复！"））{returntrue;}returnfalse;}" 删除.LDB文件 <% Application.Contents.Removeall（） %> 将HTML格式转换为纯文本格式 <% FunctionRemoveHTML（strHTML） DimobjRegExp,Match,Matches SetobjRegExp=...

asp 的中文分词

2017年02月06日 60 阅读

<% a="日本是中国的一个省|我们美丽中国的张家界！" b="中国,我们,张家界,日本,美国,苹果" b=split（b,","） a=split（a,"|"） fork=0toubound（a） s="" n="" fori=0toubound（b） ifinstr（a（k）,b（i））>0then s=s&instr（a（k）,b（i））&","&instr（a（k）,b（i））+len（b（i））&"," endif next s=le...

修改正确的asp冒泡排序

2017年02月06日 61 阅读

网上搜到的代码，千篇一律是这个 FunctionSort（ary） DimKeepChecking,I,FirstValue,SecondValue KeepChecking=TRUE DoUntilKeepChecking=FALSE KeepChecking=FALSE ForI=0toUBound（ary） IfI=UBound（ary）ThenExitFor Ifary（I）>ary（I+1）Then FirstValue=ary（I） Se...

rustysun同学ASP代码书写规范

2017年02月06日 63 阅读

ASP源程序书写规范 1规范简介 本规范主要规定ASP源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使项目开发人员的源代码书写习惯保持一致。这样做可以使每一个组员都可以理解其它组员的代码，以便于源代码的二次开发记忆系统的维护。 2一般格式规范 2.1缩进 缩进就是在当源程序的级改变时为增加可读性而露出的两个空格。缩进的规则为每一级缩进四个空格。不准许使用Tab。因为Tab会因为用户所作的设置不同而产生不同的效果（如果习惯使用空格的话，可...

asp下用实现模板加载的的几种方法总结 <font color=red>原创</font>

2017年02月06日 103 阅读

1、使用adodb.stream实现的一般虚拟主机都提供 复制代码 代码如下:functionloadtempletfile（byvalpath） onerrorresumenext dimobjstream setobjstream=server.createobject（"adodb.stream"） withobjstream .type=2 .mode=3 .open .loadfromfileserver.mappath（path） iferr....

asp下利用fso实现文件夹或文件移动改名等操作函数

2017年02月06日 72 阅读

asp利用fso实现文件的移动functionmovefiles（sFolder,dFolder） onerrorresumenext dimfso setfso=server.createobject（"scripting.filesystemobject"） iffso.folderexists（server.mappath（sFolder））andfso.folderexists（server.mappath（dFolder））then fso.co...

asp常用函数集合，非常不错以后研究第1/4页

2017年02月06日 65 阅读

<% functionloadtempletfile（byvalpath） onerrorresumenext dimobjstream setobjstream=server.createobject（"adodb.stream"） withobjstream .type=2 .mode=3 .open .loadfromfileserver.mappath（path） iferr.number<>0then err.clear res...

asp cint clng的范围与防止cint和clng的溢出解决方法大全

2017年02月06日 73 阅读

首先我们需要了解的是 cint范围 -32,768 到 32,767。 clng范围 -2,147,483,648 到 2,147,483,647。 cint与clng含义： 都可以强制将一个表达式转换成数据类型 cint与clng处理数据的范围： CInt Integer -32,768 至 32,767，小数部分四舍五入。 CLng Long -2,147,483,648 至 2,147,483,647，小数部分四舍五入。 所谓溢出指的是超出处理数据的...

asp防范跨站点脚本攻击的的方法

2017年02月06日 56 阅读

防范跨站点脚本攻击的的方法 1.利用空格替换特殊字符%<>{};&+-""（） 2.使用@,具体而言是将以下语句 exec="insertintouser（username,psw,sex,department,phone,email,demo）values（""&username&"",""&psw&"",""&sex&"",""&department&"",""&phone&"",""&email&"",""&@demo&""）" conn...

独孤剑写的马克斯迅雷片库采集插件1.4 官方最新版提供下载了

2017年02月06日 61 阅读

嘟酷影视----马克斯迅雷片库采集插件1.4 作者：独孤剑 QQ：348885333 Email:www.eetr.cn@tom.com 我的电影站：http://film.duku123.com 我的小站：http://www.duku123.com 欢迎大家与我交流技术,可能的话请在贵站给我加个友情连接 插件使用说明如下： 加载该插件使用方法如下： 打开后台目录下的admin_index.asp找到如下代码 subadmin_left（） REM管理栏...

根据日期得到生肖的ASP函数

2017年02月06日 61 阅读

根据生日时间返回所属生肖复制代码 代码如下:<% FunctionZodiac（birthday） IfIsDate（birthday）Then birthyear=Year（birthday） ZodiacList=Array（"猴","鸡","狗","猪","鼠","牛","虎","兔","龙","蛇","马","羊"） Zodiac=ZodiacList（birthyearMod12） EndIf EndFunction %>...

不错的主要用于加密的vbs（asp）位移运算类

2017年02月06日 58 阅读

<scriptlanguage="vbscript"> "Aother:奔腾的心 "QQ:7180001 "Date:2008-01-17 ClassmShift Privatem_lPower2（31） PublicFunctionRShift（ByVallThis,ByVallBits） OnErrorResumeNext Init If（lBits<=0）Then RShift=lThis ElseIf（lBits>63）Th...