文件夹隐藏属性,隐藏修改文件时间和文件属性的ASP脚本
复制代码 代码如下:% '隐藏并修改文件的最后修改时间的aspshell '原理:通过FSO可以修改文件的属性，比如设置为只读，隐藏，系统等等；FSO中的attributes属性修改文件属性，1只读，2隐藏，4系统文件 ' 通过shell.application可以给文件重新设置一个最后修改时间 '2009/02/24 write by skyfire response.write "form m... [阅读全文]
模版还是模板,ASP Crazy 模版操作类（最简单的模板类、仅提供交流）
文件名：Awa_temp.Class.asp 复制代码 代码如下: % 'Crazy蛙!模板操作类 '作者Crazy~蛙! QQ:379969387 欢迎交流 '版本V1.0; Class AwaTemp Public aa Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues '======... [阅读全文]
removeat,asp 动态数组 提供Add、Insert、Remove、RemoveAt、Search等方法
复制代码 代码如下:Class Vector Private vector_datas() Private initial_capacity '初始化容量 Private capacity_increment '容量增量 Private element_count '元素数 Private max_capacity '总容量 Private Sub Class_Initialize() Remov... [阅读全文]
asp 取一个数的整数 但不是四舍五入,只要有小数,就取大于这个数的整数
如： 0.625 取 1 2.1 取 3 3.6 取 4 % if fix(a)a then b=fix(a) else b=fix(a)+1 response.write b end if % 或者： % a=0.625 if afix(a) then a=fix(a)+1 else a=fix(a) end if response.write a % （注：这个测试成功！） -------... [阅读全文]
asp上传代码,asp 判断上传文件中是否存在危险代码
复制代码 代码如下:% function CheckFileContent(FileName) dim ClientFile,ClientText,ClientContent,DangerString,DSArray,AttackFlag,k set ClientFile=Server.CreateObject("Scripting.FileSystemObject") set ClientTex... [阅读全文]
二次函数小结,asp 获取url函数小结
方法一：简单，得不到参数，只有一个虚拟路径 复制代码 代码如下: GetUrl =request("url") 例如：http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd 获取为:shiyan.asp 复制代码 代码如下: % dim changdu,url,ends,wurl changdu=len(request.ServerVariable... [阅读全文]
asp调用dll,ASP 调用dll及封装dll实例
打开VB6，新建ActiveX DLL 2、在工程引用中加入Microsoft Active Server Pages Object Library选择 3、填加代码如下： 复制代码 代码如下: 'Code Start '声明部分 Private MyScriptingContext As ScriptingContext Private MyApplication As Application ... [阅读全文]
冒泡排序,asp 实现的冒泡排序程序
复制代码 代码如下:arr = array(12,52,14,43,24,58,15,64,24,57,17,56,45) arrLen = ubound(arr) for i=0 to arrLen-1 for j = 0 to (arrlen -1)-i if arr(j)arr(j+1) then temp = arr(j) arr(j)= arr(j+1) arr(j+1) = temp ... [阅读全文]
自定义函数,asp 自定义分段函数/求第N名成绩
复制代码 代码如下:Function splitx(strs1 As String, strs2 As String, n As Integer) '自定义分段函数 splitx([字符串],"分隔符",第n段) Dim groupST() As String groupST = Split(strs1, strs2) If UBound(groupST) n - 1 Then splitx =... [阅读全文]
asp模板引擎,ASP 高级模板引擎实现类
复制代码 代码如下:Class template Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr Private TagName ' *************************************** ' ... [阅读全文]
ASP 常见的连接字符串写法（access2007）
Access 连接字符串 strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb;” Access 2007 连接字符串 strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Mode=Share Exclusive;Data Source=C:\MyData... [阅读全文]
倚天屠龙记终结版,ASP向Excel导数据（图片）终结版 ASP操作Excel
相信有很多人有用程序向Excel导数据的需求, 且做过. 一般导出一些文本数据是很方便的, 可选方法很多, 比如拼接文本字符串存.cvs格式(以逗号与回车符分隔数据,默认用Excel打开), 比如把xls文件当成数据用SQL来操作 等等. 当需要导出图片数据的时候该怎么办? 这就需要使用Excel.Application对象. 实际上用Excel.Application可以做到OfficeExce... [阅读全文]
asp采集代码,ASP实现防止网站被采集代码
复制代码 代码如下:% Dim AppealNum,AppealCount AppealNum=10 '同一IP60秒内请求限制10次 AppealCount=Request.Cookies("AppealCount") If AppealCount="" Then Response.Cookies("AppealCount")=1 AppealCount=1 Response.Cookies("... [阅读全文]
ASP连接SQL2005数据库连接代码
说明： a、以下字符中数据库名forum，数据库服务器名WWW-2443D34E558\SQL2005（或者127.0.0.1） b、查看sql数据库服务器名称：对象资源管理器-数据库-右键点击自己建的数据库-属性-权限 c、Provider=sqlncli也可以,UID与“=”之间不可以有空格，如果换用user id就可以有 空格，Initial Catalog可以换用database，pwd可... [阅读全文]
sql语句详解,ASP程序与SQL存储过程结合使用详解
定义总是很抽象。存储进程其实就是能完成一定操作的一组SQL语句，只不过这组语句是放在数据库中的(这里我们只谈SQL SERVER)。如果我们通过创建存储进程以及在ASP中调用存储进程，就可以避免将SQL语句同ASP代码混杂在一起。这样做的好处至少有三个： 第一、大大提高效率。存储进程本身的执行速度非常快，而且，调用存储进程可以大大减少同数据库的交互次数。 第二、提高安全性。假如将SQL... [阅读全文]
常用函数,asp 小偷采集程序原理与常用函数方法
用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么采集程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。一、事例 下面就XMLHTTP在ASP中的应用做... [阅读全文]
asp函数,防盗链接ASP函数
简单介绍下功能吧：使用了ASP的一个对象ServerVariables（服务器环境变量），通过这个环境变量可以获取到真正的下载地址再通过一些简单的VBS内置函数破坏其真正地址的完整性。达到欺骗下载软件的功能。现附上源码提供大家学习。 复制代码 代码如下:% FunctIon DownloadFIle(StrFIle) StrFIlename=StrFIle Response.Buffer=True... [阅读全文]
asp将table生成excel文件（xls）
复制代码 代码如下:%@LANGUAGE="VBSCRIPT" CODEPAGE="936"% % if request("action")=1 then Response.ContentType="application/ms-excel" Response.AddHeader "content-disposition","attachment;filename=www.xls" end if ... [阅读全文]
asp发短信,asp实现新评论自动发短信提示的代码
我很想自己写一个这样的程序，不过wordpress是php的，我blog是ASP的，只好用ASP写代码了。经过一番折腾测试，终于让我的梦想变为现实。 程序的流程是这样的，当有人发表评论的时候就会把那条评论发到我手机上，是通过过一个网站的api接口实现信息发送的，其实就是飞信的api。飞信不是可以自己发信息给自己吗？原理其实很简单。 提醒：你手机必须开通飞信功能。 例子： ====A.ASP====... [阅读全文]
asp验证码代码,asp最简单的生成验证码代码
为了防止再次被攻击，做个验证码过滤程序是必要的。我在网上找了一些资料，觉得用别人做好的代码总是很不爽，自己做麻又不会写复杂的代码，特别是生成图片的那种。尝试了网上的很多种方法都不行，不知道为什么，可能没经验吧。感觉挺复杂的。 最后花了一个小时写了一个超级简单的验证代码，哈哈绝对原创，只有十几行代码。是随机生成的，因为比较简单所以对付不了那些强大的发帖软件，不过总比没有的好，放上验证码之后观测了几天... [阅读全文]
面向对象总结,ASP 常见对象总结（熟悉一下利用以后的开发使用）
ADO对象： Connection Command Recordset Record Stream ASP支持的对象很多，可以自己编写COM组件，下面是我们经常使用的： Server.CreateObject("scripting.filesystemobject") Server.CreateObject("scripting.dictionary")hashtable server.creat... [阅读全文]
静态函数,ASP UTF-8编码生成静态网页的函数
以下函数采用FSO对象，文件位置在FSO.ASP。FSO对象的文件编码属性只有三种，系统默认，Unicode，ASCII，并没有我们要的utf-8，所以一般中文系统上使用FSO对象生成的文件都是gb2312网页编码格式，无法生成UTF-8编码，因此，英文等拉丁语系和中文可以正常显示，但象俄语等非拉丁语系，页面就会出现乱码。 复制代码 代码如下: function createfile(sfilen... [阅读全文]
utf8编码,ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法
具体特征如下： 1、通过模板实现俄文正常。 2、通过后台数据库生成的静态俄文信息，后台显示正常， 前台乱码。 3、英文正常。 和该主题相关的类似或不同表达 FSO写UTF-8编码文件 FSO怎么才能生成utf-8编码的文件 FSO生成的文件默认是什么编码格式 如何转换成UTF-8编码 FSO生成静态网页的问题 ASP中用FSO生成文件代码如下 复制代码 代码如下: function createf... [阅读全文]
一键备份还原,asp Access数据备份，还原，压缩类代码
!--#include file="config.asp" -- !--#include file="Fun.asp" -- % '数据库管理类 class Datas '备份 public sub Bk() Set fso=server.createobject("scripting.filesystemobject") fso.CopyFile Server.MapPath(SiteDataP... [阅读全文]
aspfso,asp fso操作类
复制代码 代码如下:% '================================================================ '= 系统版本：1.0 = '= 文件版本：1.0 ... [阅读全文]
asp采集代码,ASP 自动采集实现代码
其主要的优点便是无需再手工添加大量的信息了，可以指定对某一个站信息的截取进行批量录入，达到省时省力的目的。与其单纯的ASP小偷程序不同的是:它已经不再依赖其目标网站。 参考代码： 复制代码 代码如下: % '声明取得目标信息的函数,通过XML组件进行实现。 Function Geturl(/blog/url) Set Retrieval = CreateObject("Microsoft.XMLH... [阅读全文]
支付宝接口,asp 一些支付接口
99bill: 1.md5.asp 复制代码 代码如下: % ''''''''' ' @Description: 快钱网关接口范例 ' @Copyright (c) 上海快钱信息服务有限公司 ' @version 2.0 ''''''''' Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Cons... [阅读全文]
函数的递归调用,ASP 递归调用 已知节点查找根节点的函数
复制代码 代码如下:Function getTreeRootId(pNodeId) getSQL = "select note_id,parent_id from [T_tree_demo] where note_id='"& pNodeId &"'" Set getRs = db.Execute(getSQL) If Not getRs.eof Then If Trim(getRs("paren... [阅读全文]
asp代码,用asp实现读取文件的最后一行的代码
复制代码 代码如下: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 ... [阅读全文]
魅灵代码文件夹,用asp实现的获取文件夹中文件的个数的代码
复制代码 代码如下:'返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径 function CountFilesNumber(folderspec) Dim objfso,f,fc Set objfso=CreateObject("Scripting.FileSystemObject") Set f=objfso.GetFolder(folderspec) Set fc=f.Files... [阅读全文]
