第2页_热门博文_Asp/VBScript_Web后台开发

asp将字符串内容转换为2进制数据

2012-9-29评论(0)浏览(462)分类：Asp/VBScript

　　asp如何将字符串内容转换为2进制数据，要实现字符串到2进制的转换，可以使用adodb.stream对象写入字符串，然后设置stream的type为1，即指定或返回的数据类型为2进制，然后就可以读取2进制数据流了。　　asp如何将字符串内容转换为2进制数据流源代码如下function TextToBinary(text) dim bindata,stream set stream=server.CreateObject(ad..

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

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

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..

vbscript语句中“&H”专用于16进制数表示

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

近段时间在做一个asp的项目，由于数据库里面的字段采用字母“h”开头，在sql语言时就出现了莫名其妙的错误，经过反复的检查，也没查出有错误的地方，整整给折腾了我一天的时间。原来在vbscript语句中“H”专用于16进制数表示的。在使用“”这个符号用于字串连接时，应该在两侧加上一个空格，虽然不加空格在多数情况下运行是正常的，但那是不正..

asp同一个网站存在不同编码页面跳转出现乱码解决办法

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

　　症状：同一个asp站点，当不同页面使用了不同的编码时，如果从一个页面转到另外一个不同编码的页面，出现乱码。　　环境：2个不同的都用meta标签指定了编码，page指令同时指定了codepage为对应的编码号。gb2312编码的asp文件存储编码为ansi，utf-8编码的asp文件存储编码为utf-8。　　如果环境设置好，同上面说的，一般是不会出现乱码的。　　..

sp_cursoropen返回空结果集导致获取不到sp_cursorfetch数据集解决办法

2016-4-29评论(0)浏览(401)分类：Asp/VBScript

　　今天修改一个asp程序，使用了存储过程，存储过程中使用sp_cursoropen/sp_cursorfetch来获取构造的sql语句获取分页数据，发现总记录数能获取到，但是就是无法获取到返回的记录集合。在SQL Server Management Studio执行存储过程，sql为asp输出的sql语句，发现尽然出现了2个结果集，一个是一条记录也没有的，另外一个是有结果的，如下图所示　..

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导出excel文件

2014-7-21评论(0)浏览(386)分类：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...

javascript/vbscript/asp生成随机数

2012-9-27评论(0)浏览(383)分类：Asp/VBScript

　　由于javascript，vbscript生成的随机数都是0~1之间的小数，如果要生成介于整数之间的随机数时，需要进行一些相关的处理才行，源代码如下。　　javascript生成整数之间的随机数script type=text/javascriptfunction rnd(min,max){ var tmp=min; if(maxmin){min=max;max=tmp;} return Math.floor(Math.random()*(max-min+1)+min);}alert(rn..

ASP执行ping命令获取结果

2012-9-15评论(0)浏览(355)分类：Asp/VBScript

　　功能：asp使用WShShell调用系统的Ping命令，将Ping的结果重定向到一个文本文件中去,再把文本文件显示到网页中　　具体做法如下　　１）首先，建一个.BAT文件(例如：aspping.BAT，保存在d:\web站点下)，这个文件要在ASP中调用，文件内容为：ping -a %1 d:/web/%2.txt　　(%1)是将来要ping的地址，(%2)是存储ping结果的文件.　　以下是ASP执..

asp md5加密算法代码

2015-12-24评论(0)浏览(348)分类：Asp/VBScript

　　asp md5加密算法代码%Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30) Private Function LShift(lValue, iShiftBits) If iShiftBits = 0 Then LShift = lValue Exit Function ElseIf iShiftBits = 31 Then If ..

asp/vbscript解析json字符串生成json对象

2013-4-8评论(0)浏览(332)分类：Asp/VBScript

　　asp/vbscript将json字符解析为json对象的方法，如果asp使用jscript来编写服务器端代码操作json字符串就简单了，vbscript需要MSScriptControl.ScriptControl或者服务器端的jscript来作为中间体才行。　　vbscript将json字符解析为json对象的方法一，使用MSScriptControl.ScriptControl组件，请用IE浏览器运行本示例，会有安全提示，需要点击是..

vbscript 移位操作

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

在C和Java等编程语言中，可以方便地对变量进行移位运算，但是在VB中，却没有内置的移位运算符或者函数。于是，我们得自己动手编写移位的运算函数。原理很简单，每向右移一位，就将被移位的变量的二进制除以2；每向左移一位，就将被移位的变量的二进制乘以2。于是可以写出以下函数：+展开-VBScript'按位左移'PublicFunctionLShift(ByValval,ByVal..

VB获取计算机硬件序列号

2012-1-4评论(0)浏览(318)分类：Asp/VBScript

　　目前比较常见的硬件资源包或：硬盘物理序列号、CPU序列号、网卡MAC地址、BIOS序列号、主板序列号等，下面是使用VB调用 Windows的WMI编写的一段硬件指纹获取的演示程序，直接将其另存为VBS后缀文件即可运行。稍加修改即可应用在共享软件里，实现用注册码对软件进行保护的功能。+展开-VBScriptMsgValue=""SetobjWMIService=GetObject("winmgmt..

asp顶级域名cookie共享设置删除示例

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

　　asp设置顶级域名cookie，实现多个2级域名共享。及如何删除顶级域名cookie源代码如下if request.QueryString(del)=1 then'删除操作，删除顶级域名cookie一定要带上path，domain参数 response.Cookies(rnd)='如果是内存cookie，既未设置过expires的cookie，最好是设置cookie对象值为空，内存cookie无法删除，只能等浏览器关闭后自动删..

asp批量添加修改删除操作示例

2017-3-18评论(0)浏览(309)分类：Asp/VBScript

　　asp批量添加修改删除操作示例，包括js客户端数据有效性验证，服务器端自己添加验证。titleasp批量添加修改删除操作示例/title%if request.Form(op)=update then'表单提交 ids=request.Form(ids) if ids then response.Write 要删除的数据id集合：idsbr '=========数据库删除操作 conn.execute(delete from xxx where id in(..

asp调用Request.Form集合之后，不能再调用BinaryRead

2012-9-19评论(0)浏览(307)分类：Asp/VBScript

错误：使用 Request.Form 集合之后，不能调用 BinaryRead ，使用 Request.Form 集合之后，不能调用 BinaryRead1）Request.form 是用来获取post 提交的字符的2）Request.BinaryRead 获取二进制调用Request.Form后，上载的数据已经被IIS全部处理完了，用BinaryRead当然也就没有数据可读了。两种方法中你只能用一种，如果上传文件，可以用以BinaryR..

vbs使用wmi遍历注册表路径子目录和目录数据

2016-1-11评论(0)浏览(304)分类：Asp/VBScript

　　wmi如何遍历指定注册表路径下的子目录，以及注册表路径右边的名称键值对集合。' 定义常数 (来源 WinReg.h)' 注册表路径常数Const HKEY_CLASSES_ROOT = H80000000Const HKEY_CURRENT_USER = H80000001Const HKEY_LOCAL_MACHINE = H80000002Const HKEY_USERS = H80000003'注册表项目类型常数Const REG_SZ = ..

asp实现WWW-Authenticate basic认证示例

2013-7-30评论(0)浏览(295)分类：Asp/VBScript

　　访问asp网站，使用WWW-Authenticate basic认证机制示例代码。WWW-Authenticate basic认证采用base64编码用户输入的信息，所以需要一个base64解码类，具体看下面贴出的base64.asp文件。　　注意事项，需要设置iis，网站目录安全，身份验证和访问控制，取消集成 Windows身份验证，如下图所示，记得要配置匿名访问用户。　　示例代码如下index...

asp对数组随机取值不重复

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

　　asp对数组随机取值，不重复取同一个数组里面的值。源代码如下Function rndint(byval MaxNum,byval MinNum)'asp生成整数之间的随机数函数 dim tmp if MaxNumMinNum then tmp=MinNum:MinNum=MaxNum:MaxNum=tmp end if Randomize rndint=int(rnd *(MaxNum-MinNum+1)+MinNum)End Function'arr：数组'num：要取的个数funct..

asp动态输出图片

2012-10-13评论(0)浏览(293)分类：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/asp.net生成网站快捷方式

2013-5-14评论(0)浏览(285)分类：Asp.Net/C#/WCF

　　asp.net生成网站快捷方式源代码shortcut.aspx.cs protected void Page_Load(object sender, EventArgs e) { string Shortcut = [InternetShortcut] + Environment.NewLine; Shortcut += URL=http://www.w3dev.cn/ + Environment.NewLine;//注意修改链接地址 Shortcut += IDList= + Environment.NewLine; ..

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

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

　　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..