asp sha1加密源代码

评论(0)浏览(82)分类:Asp/VBScript
asp sha1加密源代码  在百度找的几个asp sha1(vbs写的)加密结果和asp.net的sha1加密结果不一样,asp.net sha1加密完后是40位,网上找的asp sha1加密是64位,还以为asp.net做了截取(如网上的asp的md5机密和asp.net位数不一样,是做了截取的问题),但是asp的64位加密结果并没有包含asp.net的40位结果,看来找到的版本和asp.net的加密算法不一样。  最后还是靠..

asp非重复关键字替换

评论(0)浏览(31)分类:Asp/VBScript
asp非重复关键字替换function AddToDic(reg,key,Index,str,dic) pattern=[^]*key[^]*|a[^]*[^]*key[^]*\/a reg.Pattern=pattern set matches=reg.Execute(str) for each m in matches dic.Add keyIndex,m.value str=replace(str,m.value,$keyIndex$) Index=Index+1 next set matches=nothingend functionfunction startReplace(str) dim TempStr..

asp模拟网站登录采集需要验证的页面信息

评论(0)浏览(256)分类:Asp/VBScript
asp模拟网站登录采集需要验证的页面信息  本示例实现asp模拟登录网站,然后捉取或者采集需要session验证的asp页面信息,效果如下提示:不能使用XMLHTTP/ServerXMLHTTP组件,需要使用底层的WinHttp.WinHttpRequest对象asp源代码如下登录页面:login.asp%if request.Form(pwd)=123 then'asp登录认证,简单示例 Session(user)=showbo response.Redirect index.asp response.Ende..

asp WinHttp.WinHttpRequest对象方法属性事件api

评论(0)浏览(684)分类:Asp/VBScript
asp WinHttp.WinHttpRequest对象方法属性事件api  由于微软对XmlHttp对象进行了一些限制,无法通过XmlHttp对象伪造部分HTTP 头信息,但是WinHttp.WinHttpRequest.5.1是 msxml 4.0 的底层对象,XMLHTTP/ServerXMLHTTP 是在WinHttp.WinHttpRequest.5.1的基础上封装而来,所以WinHttpRequest 的用法与 XmlHttp 大致相同,但是WinHttp.WinHttpRequest.5.1却可以伪造所有http 请求header信息,所以..

执行特殊自定义asp过滤条件后如何对记录集分页

评论(0)浏览(35)分类:Asp/VBScript
执行特殊自定义asp过滤条件后如何对记录集分页  asp取出recordset后,如果需要执行特殊自定义的asp过滤语句,满足条件后再输出对应的记录,而这个asp过滤条件无法融合到sql语句中时,此时asp要如何对记录集进行正确的分页操作?  要对需要执行特殊自定义asp过滤的记录集进行分页操作,不能使用asp提供的默认分页操作,如rs.pagesize,rs.recordcount,rs.pagecount,rs.absolutepage这种..

asp获取enctype multipart/form-data编码表单数据

评论(0)浏览(120)分类:Asp/VBScript
asp获取enctype multipart/form-data编码表单数据  当表单指定了enctype=multipart/form-data,asp是无法通过Request(xxx)来获取表单中项目内容的,因为表单指定enctype=multipart/form-data后,将会以2进制数据上传表单内容,而不是默认的application/x-www-form-urlencoded,以键值对字符串的形式上传内容,asp的request对象只能获取到键值对的数据,2进制的数据内容无法获取。  所以表单..

asp执行带参数sql语句

评论(0)浏览(22)分类:Asp/VBScript
asp执行带参数sql语句  asp执行带参数的sql语句,需要向sql语句添加参数,源代码如下var conn = Server.CreateObject(ADODB.Connection);conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + Server.MapPath(Test.mdb);conn.Open();var cmd = Server.CreateObject(ADODB.Command);cmd.ActiveConnection = conn;cmd.CommandType = 1;cmd.Comm..

asp操作json对象示例

评论(0)浏览(59)分类:Asp/VBScript
asp操作json对象示例  本示例通过服务器端的JScript作为桥接,实现vbscript通过json字符生成对应的JSON对象。script language=JScript runat=Server//注意不同格式的JSON格式的字符串调用不同的方法 function toObject(json) {//JSON对象格式的字符串 eval(var o= + json); return o; } function toArray(s) {//JSON对象数组格式的字符串 ..

asp检查ip地址是否为内网/私有ip地址

评论(0)浏览(47)分类:Asp/VBScript
asp检查ip地址是否为内网/私有ip地址  asp检查ip地址是否为私有/内网ip地址源代码。内网/私有IP地址网段如下,还有127开头的回环地址10.0.0.0-10.255.255.255172.16.0.0172.31.255.255192.168.0.0-192.168.255.255%function IpToNumber(ip)'IP地址转为数字 arr=split(ip,.) IpToNumber=256*256*256*clng(arr(0))+256*256*clng(arr(1))+256*clng(arr(2))+clng(arr(3))end fu..

asp网站使用utf-8编码注意事项

评论(0)浏览(309)分类:Asp/VBScript
asp网站使用utf-8编码注意事项  中文window操作系统,asp默认的编码为gb2312。如果asp网站想将编码改为utf-8,需要注意asp文件也要存储为utf-8编码,要不会乱码。  asp网站使用utf-8编码需要注意如下步骤1)用page指令申明codepage为65001%@ language=vbscript codepage=65001 %  这个申明需要出现在asp文件中服务器端代码的第一个位置,其他html代码可以在page指令之前..

asp如何设置httponly cookie

评论(0)浏览(121)分类:Asp/VBScript
asp如何设置httponly cookie%'**************************************************'ASP 中输出httponly cookie IE6.0以上浏览器支持'WDFrog'2009-04-15'meta http-equiv=Content-Type content=text/html; charset=gb2312'**************************************************'-SetHttpOnlyCookie-'功能:设置HttpOnly Cookie'参数:exp..

使用adodb.stream读写2进制值数据

评论(0)浏览(52)分类:Asp/VBScript
使用adodb.stream读写2进制值数据  asp如何使用adodb.stream读写2进制数据,示例源代码如下'使用adodb.stream将文件读取为二进制数据数组Function ReadBinary(FileName) Dim Buf(), I With CreateObject(ADODB.Stream) .Mode = 3: .Type = 1: .Open: .LoadFromFile FileName ReDim Buf(.Size - 1) For I = 0 To .Size - 1: Buf(I) = AscB(.Read(1)): Next ...

asp/vbscript 36进制自动增长序号

评论(0)浏览(21)分类:Asp/VBScript
asp/vbscript 36进制自动增长序号  asp生成0~9,a~z的36进制字符串,运行下面示例需要使用IE核心的浏览器,其他非IE核心浏览器不支持vbscriptscript language=vbscriptfunction getinitstring(l)'初始化指定长度的0字符串 l=l-1 for i=0 to l getinitstring=0getinitstring nextend functionfunction getnextchar(chrcode)'获取下一个字符 if chrcode=57 then&..

MSXML2.DOMDocument加载xml文件系统错误: -2146697209

评论(0)浏览(73)分类:Asp/VBScript
MSXML2.DOMDocument加载xml文件系统错误: -2146697209  asp使用MSXML2.DOMDocument加载网络上的xml文件时,在调用load方法前需要注意设置oXML.setProperty ServerHTTPRequest, true启用ServerHTTPRequest请求,要不会出现系统错误: -2146697209。  asp使用MSXML2.DOMDocument组件时需要注意一下4中情况%Dim oXML, oXMLError, ReturnValue, xSet oXML = Server.CreateObject(MSXML2.DOMDocument)..

asp获取当前为星期几

评论(0)浏览(24)分类:Asp/VBScript
asp获取当前为星期几  asp有函数weekday获取日期所在周的星期几(数字),weekdayname返回星期几名称。  测试代码如下,请使用IE运行本示例script language=vbscriptd=nowxqj=weekday(d)msgbox xqj'输出数字,星期日为1,星期一为2...依次类推,星期六为7msgbox weekdayname(xqj)/script

asp MSXML2.ServerXMLHTTP异步请求示例

评论(0)浏览(41)分类:Asp/VBScript
asp MSXML2.ServerXMLHTTP异步请求示例  asp使用MSXML2.ServerXMLHTTP异步发送请求时,需要注意判断MSXML2.ServerXMLHTTP对象的readyState是否为4,如果不判断直接获取对象的属性,如responseText会出现如下错误msxml3.dll 错误 '8000000a'完成该操作所需的数据还不可使用。/a.asp,行 18  asp使用MSXML2.ServerXMLHTTP异步发送请求源代码%if request.QueryString(dc)=1 ..

asp file对象属性和方法

评论(0)浏览(17)分类:Asp/VBScript
asp file对象属性和方法File 对象  File 对象用于返回有关指定文件的信息。  如需操作 File 对象的相关属性和方法,我们需要通过 FileSystemObject 来创建 File 对象的实例。首先,创建一个 FileSystemObject 对象,然后通过 FileSystemObject 对象的 GetFile 方法,或者通过 Folder 对象的 Files 属性来例示此 File 对象。File 对象的属性和方法属性属性描述Attri..

vbscript获取文件修改,创建,访问时间

评论(0)浏览(38)分类:Asp/VBScript
vbscript获取文件修改,创建,访问时间 set fso=createobject(Scripting.FileSystemObject) set fn=fso.GetFile(E:\AD.txt) msgbox 文件创建时间:fn.DateCreated msgbox 文件最后修改时间:fn.DateLastModified msgbox 文件最后访问时间:fn.DateLastAccessed set fn=nothing set fso=nothing

vbs文件获取当前的路径

评论(0)浏览(57)分类:Asp/VBScript
vbs文件获取当前的路径currentpath = createobject(Scripting.FileSystemObject).GetFolder(.).Path或者currentpath = createobject(Scripting.FileSystemObject).GetFile(Wscript.ScriptFullName).ParentFolder.Path

vbscript汉字unicode字符串编码解码函数

评论(0)浏览(225)分类:Asp/VBScript
vbscript汉字unicode字符串编码解码函数  vbscript对汉字进行unicode编码和解码主要使用ascw和chrw 2个函数,其中注意执行unicode编码时ascw可能会返回负值,需要特别处理一下,具体参考: vbscript ascw返回负数解决办法  vbscript汉字unicode字符串编码解码函数源代码%s=#21462;#26262;#29579;#65292;#28888;#34915;#21462;#26262;#19968;#26426;#25630;#23450;function decode(..

asp Scripting.Dictionary字典示例

评论(0)浏览(20)分类:Asp/VBScript
asp Scripting.Dictionary字典示例  vbscript的Scripting.Dictionary创建了类似于Key索引对应Value值的字典对象,通过Key直接索引到指定的Value。  VBScript中Scripting.Dictionary使用示例如下Dim objDictSet objDict = WSH.CreateObject(Scripting.Dictionary) ' .Add(key, value) objDict.Add a, value1 objDict.Add b, value2 objDict.Add c, value3 '直..

vbs replace instr函数如何不区分大小写匹配

评论(0)浏览(50)分类:Asp/VBScript
vbs replace instr函数如何不区分大小写匹配  除了使用正则表达式外,其实replace和instr的参数中也可以设置不区分大小写字母匹配的参数,默认是省略的,对字母大小写敏感。Replace函数一共有六个参数,其中三个必须三个可选:Replace(expression,find,replacewith[,start[,count[,compare]]])  compare参数表示比较方式,平时我们都省略了,那样是按二进制比较,区分大小写的,还可以..

asp时间戳和时间对象相互转换

评论(0)浏览(29)分类:Asp/VBScript
asp时间戳和时间对象相互转换  asp时间戳和时间对象相互转换源代码'把标准时间转换为UNIX时间戳Function ToUnixTime(strTime, intTimeZone) If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0 ToUnixTime = DateAdd(h,-intTimeZone,strTime) ToUnixTime = Dat..

asp读写文件示例

评论(0)浏览(18)分类:Asp/VBScript
asp读写文件示例  asp读出文件放入表单的textarea容器中,修改后写回原文件中。注意如果文件编码不是系统默认的ansi,调用opentextfile方法时加上编码。参考Scripting.FileSystemObject的OpenTextFile方法参数说明asp检测文件编码asp读写文件示例源代码%set fso=server.CreateObject(scripting.filesystemobject) if request.querystring(action)=update then..

asp使用CDO.Message组件发邮件示例

评论(0)浏览(180)分类:Asp/VBScript
asp使用CDO.Message组件发邮件示例asp使用CDO.Message组件发邮件示例-远程Server需要身份验证 Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBa..

asp抓阄随机分配号码源代码

评论(0)浏览(25)分类:Asp/VBScript
asp抓阄随机分配号码源代码  asp抓阄随机分配号码,vbscript随机分配某个数组内的项,得到不重复的循序号。运行本代码需要使用IE浏览器script language=vbscript charset=utf-8Function rndint(byval MinNum,byval MaxNum)'asp生成整数之间的随机数函数 dim tmp if MaxNumMinNum then'交换大小值,防止传递时大小搞反 tmp=MinNum:MinNum=MaxNum:MaxNum=tmp..

asp redim preserve示例

评论(0)浏览(10)分类:Asp/VBScript
asp redim preserve示例asp中REDIM的功能是动态定义数组长度  动态数组里面的一个语句,只能出现在过程里面,可以多次使用。可以改变数组大小,和维数格式:REDIM [Preserve] 数组名(下标1[下标2....])Preserve 保留动态数组的内容(不用的话,每次执行REDIM语句,当前存储的语句会全部丢失)例如:Dim DynArray() '定义数组DynArray()为动态数组REDIM Preserv..

VB6 StrConv函数ASP的实现方法

评论(0)浏览(209)分类:Asp/VBScript
VB6 StrConv函数ASP的实现方法ASP 如何实现 VB 的 StrConv 函数来对字符串进行 Unicode 转换 ( vbFromUnicode / vbUnicode )  VB6 的StrConv 函数说明 :传回一特定转换后的 Variant (String)。语法:StrConv(string, conversion, LCID)  StrConv 函数参数说明参数说明string必要引数。为欲转换的字串运算式。conversion必要引数:为Integer。其值的和决定转换的型态。LC..

asp检查网址是否可用

评论(0)浏览(21)分类:Asp/VBScript
asp检查网址是否可用  asp如何检查某个网址是否有效或者无效(http状态码不为200)  源代码如下%sub checkurl(url) set xhr=server.CreateObject(Microsoft.XMLHTTP) xhr.open GET,url,fal