第2页_Asp/VBScript_Web后台开发

asp抽奖程序算法

2015-3-9评论(0)浏览(203)分类：Asp/VBScript

　　asp抽奖程序算法，需要记录抽奖了多少次的自己注意保存数据结构到数据库中，需要导入json2.asp这个文件，其实内容就是json2.js这个文件，然后用script language=javascript runat=server括起变为服务器端代码即可。!--#include file=json2.asp--script language=javascript runat=server $prize_arr = [//prizeNum：此奖项总数　　use：已..

ASP代码发生错误显示信息乱码解决办法

2015-1-8评论(0)浏览(1189)分类：Asp/VBScript

　　asp网站使用utf-8编码时，如果asp发生错误，显示的错误信息是乱码，需要切换浏览器浏览编码为gb2312才会显示正确的错误信息。因为IIS的错误信息输出默认使用的是gb2312编码。　　有２种解决办法，让asp错误信息不显示乱码1）自己写代码来容错，不使用IIS默认的错误代码页。（适用于无法管理IIS的用户）On Error Resume Next'在可能出错第..

recordset/connection的close方法并没有立即释放数据库链接

2014-11-13评论(0)浏览(782)分类：Asp/VBScript

　　asp创建的adodb.connection或者adodb.recordset对象直接打开数据库链接字符串时，当关闭connection或者recordset，创建的数据库链接并没有立即释放，大概经过1分钟左右才会自动释放。这个是有连接池控制，每个链接有一个存活期限，可以通过链接字符串（Connection Lifetime）配置存活期限，如果没有设置过，默认为60秒（asp设置Connection L..

asp，asp.net和php如何添加301跳转

2014-11-10评论(0)浏览(145)分类：Asp.Net/C#/WCF

　　asp添加301跳转响应头Response.Status = 301 Moved PermanentlyResponse.AddHeader location, http://yourdomain　　asp.net添加301跳转响应头Response.StatusCode = 301;Response.Status = 301 Moved Permanently;Response.AddHeader(location, http://yourdomain); 　　php加301跳转响应头header('HTTP/1.1 301 Moved Permanently'..

NetBox打包asp文件为可执行文件exe

2014-11-7评论(0)浏览(390)分类：Asp/VBScript

　　NetBox打包asp文件为可执行文件exe示例。　　将下面内容存为.box后缀的文件，然后放到你的网站根目录下。Dim httpdShell.Service.RunService NBWeb, NetBox Web Server, NetBox Http Server Sample'- Service Event Sub OnServiceStart()Set httpd = NetBox.CreateObject(NetBox.HttpServer)If httpd.Create(, 8080) = 0 ThenSet host =..

asp批量读写更新文件utf-8编码文件示例

2014-11-6评论(0)浏览(268)分类：Asp/VBScript

　　asp批量处理文件，asp读utf-8文件，asp写utf-8文件示例代码，asp adodb.stream读写utf-8文件示例。asp批量处理目录文件示例代码小提示：如果更新的是ansi编码的文件，只需要scripting.filesystemobject对象的opentextfile打开textstream数据流进行读写即可。如果是utf-8，只能使用adodb.stream进行操作，因为scripting.filesystemobject的ch..

ASP TextStream 对象

2009-7-8评论(0)浏览(248)分类：Asp/VBScript

TextStream 对象用于访问文本文件的内容。实例读文件本例演示如何使用 FileSystemObject 的 OpenTextFile 方法来创建一个 TextStream 对象。TextStream 对象的 ReadAll 方法会从已打开的文本文件中取得内容。读文本文件中的一个部分本例演示如何仅仅读取一个文本流文件的部分内容。读文本文件中的一行本例演示如何从一个文本流文件中读取一行内容..

asp读取局域网共享文件

2014-11-5评论(0)浏览(234)分类：Asp/VBScript

　　asp如何读取局域网共享的文件内容，其实很简单，和读取本机上的文件一样，通过scripting.filesystemobject来读取，只是路径不能用server.mappath进行转换，而是使用通常访问别人共享的路径，如\\共享计算机名或者ip地址\目录\文件　　asp读取局域网共享文件源代码如下%set fso=server.CreateObject(scripting.filesystemobject)set ts=fso.O..

asp动态输出图片

2012-10-13评论(0)浏览(294)分类：Asp/VBScript

　　asp可以使用adodb.stream读取图片文件后动态输出。通过动态输出图片对象，就可以统计图片访问的次数或者对图片引用来源进行判断，做一些简单的图片防盗链功能之类的。　　如img src=readimg.asp?img=文件名/readimg.aspfunction getMIME(v) if instr(v,.gif)0 then geMIME=image/gif elseif instr(v,.png)0 then geMIME=image/png ..

修改默认asp默认上传大小

2014-9-12评论(0)浏览(186)分类：Asp/VBScript

　　默认asp接受的数据大小为200kb，如果你表单的总内容大于200kb（包括提交的文字和文件大小的总和，不单是指文件的大小），需要修改iis的配置，将200kb更改为更加大的值。　　具体操作步骤入下1，先在服务里关闭iis admin service服务。2，.找到 WINDOWS\system32\inetsrv\下的MetaBase.xml，用记事本打开，找到ASPMaxRequestEntityAllowed 把..

asp导出excel文件

2014-7-21评论(0)浏览(387)分类：Asp/VBScript

　　由于excel软件能识别table格式的数据，所以asp只需要输出table格式的html代码，同时设置好contenttype，增加保存为附件的响应头即可将输出的html代码保存为xls文件。　　asp导出excel文件源代码如下%Response.ContentType = application/excelResponse.AddHeader Content-Disposition, attachment;filename=xxxx.xls % table %while not rs...

asp sha1加密源代码

2014-6-26评论(0)浏览(274)分类：Asp/VBScript

　　在百度找的几个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非重复关键字替换

2009-6-2评论(0)浏览(128)分类：Asp/VBScript

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 WinHttp.WinHttpRequest对象方法属性事件api

2013-5-10评论(0)浏览(1385)分类：Asp/VBScript

　　由于微软对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过滤条件后如何对记录集分页

2014-3-31评论(0)浏览(163)分类：Asp/VBScript

　　asp取出recordset后，如果需要执行特殊自定义的asp过滤语句，满足条件后再输出对应的记录，而这个asp过滤条件无法融合到sql语句中时，此时asp要如何对记录集进行正确的分页操作？　　要对需要执行特殊自定义asp过滤的记录集进行分页操作，不能使用asp提供的默认分页操作，如rs.pagesize，rs.recordcount，rs.pagecount，rs.absolutepage这种..

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

2014-3-29评论(0)浏览(510)分类：Asp/VBScript

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

asp执行带参数sql语句

2014-3-28评论(0)浏览(114)分类：Asp/VBScript

　　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对象示例

2014-3-11评论(0)浏览(208)分类：Asp/VBScript

　　本示例通过服务器端的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地址

2014-2-25评论(0)浏览(127)分类：Asp/VBScript

　　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编码注意事项

2014-2-12评论(0)浏览(1101)分类：Asp/VBScript

　　中文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

2014-1-20评论(0)浏览(1134)分类：Asp/VBScript

%'**************************************************'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进制值数据

2014-1-20评论(0)浏览(753)分类：Asp/VBScript

　　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进制自动增长序号

2014-1-3评论(0)浏览(145)分类：Asp/VBScript

　　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

2013-12-16评论(0)浏览(222)分类：Asp/VBScript

　　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获取当前为星期几

2013-12-10评论(0)浏览(279)分类：Asp/VBScript

　　asp有函数weekday获取日期所在周的星期几（数字），weekdayname返回星期几名称。　　测试代码如下，请使用IE运行本示例script language=vbscriptd=nowxqj=weekday(d)msgbox xqj'输出数字，星期日为1，星期一为2...依次类推，星期六为7msgbox weekdayname(xqj)/script

asp file对象属性和方法

2013-11-22评论(0)浏览(110)分类：Asp/VBScript

File 对象　　File 对象用于返回有关指定文件的信息。　　如需操作 File 对象的相关属性和方法，我们需要通过 FileSystemObject 来创建 File 对象的实例。首先，创建一个 FileSystemObject 对象，然后通过 FileSystemObject 对象的 GetFile 方法，或者通过 Folder 对象的 Files 属性来例示此 File 对象。File 对象的属性和方法属性属性描述Attri..

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

2013-11-22评论(0)浏览(240)分类：Asp/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文件获取当前的路径

2013-11-22评论(0)浏览(227)分类：Asp/VBScript

currentpath = createobject(Scripting.FileSystemObject).GetFolder(.).Path或者currentpath = createobject(Scripting.FileSystemObject).GetFile(Wscript.ScriptFullName).ParentFolder.Path

asp Scripting.Dictionary字典示例

2013-11-19评论(0)浏览(86)分类：Asp/VBScript

　　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函数如何不区分大小写匹配

2013-11-13评论(0)浏览(248)分类：Asp/VBScript

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