原创博文_Asp/VBScript_Web后台开发

asp删除数组中指定的项目

2018-5-18评论(0)浏览(241)分类：Asp/VBScript

　　asp删除数组中指定的项目，vbs删除数组中指定的项目。vbs没有和js一样的splice方法可以删除项，所以要删除某个项，需要将删除项的后续值依次替换，然后ReDim Preserve重新定义数组长度进行删除操作。　　asp删除数组中指定的项目源代码如下function removeItem(arr,v)'通过数组指查找后匹配删除 dim arrl,finditem:finditem=-1 arrl=u..

asp使用request.Cookies Response.Cookies 错误 '80004005'

2018-3-21评论(0)浏览(198)分类：Asp/VBScript

　　asp中就简单的一句测试语句Response.Write request.Cookies(bbc)会出现错误，错误 '80004005'。网上找的一直没解决，也和cookie没多大关系。　　测试后发现原来登录状态时生成了一个cookie值包含等号，并且在第一位cookie，删除这个cookie后使用Response.Cookies 获取值就不会报错误 '80004005'。　　我日。。。。如果cooki..

asp，asp.net，php生成guid的办法

2009-7-10评论(0)浏览(255)分类：Asp.Net/C#

asp-VBScriptFunctiongetGUID()DimTypeLibSetTypeLib=Server.CreateObject(Scriptlet.TypeLib)getGUID=replace(replace(TypeLib.Guid,{,),},)SetTypeLib=NothingEndFunctionasp.net-C#stringGUID=System.Guid.NewGuid().ToString();js，使用acx，仅ie有效果-JavaScriptfunctionGUID(){varTypeLib=newActiveXObject(Scriptlet.TypeLib);returnTyp..

asp/asp.net生成网站快捷方式

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

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

vbscript创建网站桌面快捷方式

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

vbscript创建网站桌面快捷方式源代码如下，将下面的代码保存为vbs，双击运行即可创建本站的桌面快捷方式Set WshShell = WScript.CreateObject(WScript.Shell)strDesktop = WshShell.SpecialFolders(Desktop)'特殊文件夹桌面'在桌面创建一个网站的快捷方式set oShellLink = WshShell.CreateShortcut(strDesktop \编程设计网.lnk)'创..

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

2012-9-29评论(0)浏览(328)分类：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..

C#/vbscript/JS如何加密保护HTML/javascript源代码

2012-10-8评论(1)浏览(1217)分类：JavaScript/Ajax开发技巧

　　本文通过将源代码进行unicode转换后进行混淆加密，对HTML或者javascript源代码进行加密，将内容转换为一些看似乱码的内容，然后通过客户端的JS脚本反相解析回来。　　HTML/javascript源代码加密混淆算法1）ASCII编码内可见字符【33~126】，33~79进行+47操作操作，80~126进行-47操作2）ASCII编码内部可见字符【0~32,127】，【128~133】，不操..

utf-8 asp页面如何共享gb2312编码页面cookie

2013-3-15评论(0)浏览(538)分类：Asp/VBScript

　　在gb2312编码asp页面生成的cookie，编码是用gb2312编码的，这样在utf-8的页面中获取到的内容是通过gb2312编码的，会得到乱码。　　解决办法就是cookie内容存储用utf-8编码过的字符串，这样在utf-8编码的页面获取到这些utf-8编码后，解码还原成内容就行了。　　小提示：gb2312的asp页面coolie存储gb2312编码过的字符串也行，但是在utf-8页面解..

asp检查网址是否可用

2013-9-23评论(0)浏览(269)分类：Asp/VBScript

　　asp如何检查某个网址是否有效或者无效（http状态码不为200）　　源代码如下%sub checkurl(url) set xhr=server.CreateObject(Microsoft.XMLHTTP) xhr.open GET,url,false on error resume next xhr.send if err0 then response.Write font color=redurl发生错误：err.Description/fontbr/ err.Clear elseif xhr.status=200 then..

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

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

　　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 MSXML2.ServerXMLHTTP异步请求示例

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

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

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

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

　　本示例实现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顶级域名cookie共享设置删除示例

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

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

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

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

adodb.recordset获取多个数据结果集

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

　　asp的adodb.recordset如何获取支持返回多个数据库数据结果的数据集合，如ms sqlserver支持一次返回多个数据结合，adodb.recordset如何获取多个结果集合。　　平常用adodb.recordset时一般只返回一个结果结合，直接遍历recordset即可。如下sConnectString = DRIVER={sql server};SERVER=localhost; _ DATABASE=northwind;UI..

容联云通讯码短信验证码asp示例

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

　　容联云通讯码短信验证码asp示例，其他语言示例查看官网：http://www.yuntongxun.com/activity/smsDemo#tiyan　　sms.asp，容联云通讯码短信验证码发送asp源代码其他类库下载md5.aspaspJSON1.17.aspbase64.asp!--#include file=md5.asp--!--#include file=aspJSON1.17.asp--!--#include file=base64.asp--%'=========容联云通讯配置开始=..

asp files集合如何通过索引访问对象

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

　　asp的files集合不是数组，所以无法通过索引访问files集合中的项目，也没有提供相关方法进行访问。　　解决办法：遍历files对象后将文件名存入数组中。　　asp files集合如何通过索引访问对象源代码如下% set fso=server.CreateObject(scripting.filesystemobject) folder=Server.MapPath(.) set fd=fso.GetFolder(folder) set f..

asp生成utf-8编码静态文件

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

　　asp生成utf-8编码的静态html文件。Scripting.filesystemobject的createTextFile只能指定为unicode，所以asp要生成utf-8编码的静态文件，需要使用adodb.stream来生成，adodb.stream可以指定任何编码。'asp生成指定编码静态html页面过程源代码Sub WriteToTextFile(FileUrl,byval Str,CharSet) set stm=Server.CreateObject(adodb.stream) ..

asp如何在64位系统运行

2015-6-28评论(0)浏览(705)分类：Asp/VBScript

　　asp程序在32位系统（x86）运行正确，但是运行在64位系统出现下面的错误ADODB.Connection 错误 '800a0e7a'未找到提供程序。该程序可能未正确安装。/index.asp，行 3　　需要设置iis程序池以32位应用程序模型来运行。　　找到网站使用程序池，右键此程序池，然后高级设置　　在弹出窗口将启用３２位应用程序为true即可解决此错误。

iis7+ asp页面错误如何显示具体错误信息

2015-6-27评论(0)浏览(225)分类：Asp/VBScript

　　win7安装了iis7+以上时，asp发生错误时，默认发送到客户端的错误信息是在iis7+中定义好的，如下面这个错误An error occurred on the server when processing the URL. Please contact the system administrator.If you are the system administrator please click here to find out more about this error.　　iis7+要显示asp具体的错误信息..

asp变量和变量直接字符串比较区别注意事项

2015-5-7评论(0)浏览(292)分类：Asp/VBScript

　　asp if语句比较时，变量和变量比较，变量直接和字符串/数字比较时需要注意1）变量和变量比较，类型一起比较，不做转换，类型与值都一样才会返回true2）变量直接和字符串/数字比较，会转换为相同的类型后在比较。3）变量和某个函数的返回值比较，类型一起比较，不做转换DEMO如下%function getString1() getString1=1end functionfunction ge..

设置X-Frame-Options响应头防止网页被框架

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

　　防止某些重要网页被其他网站框架导入，可以给页面增加X-Frame-Options响应头，这样浏览器会依据X-Frame-Options的值来控制iframe框架的页面是否允许加载显示出来，IE下的效果如下（此内容无法再框架中显示。为了帮助保护在此网站中输入的信息安全，此内容的发行者不允许在框架中显示该信息），其他非IE核心浏览器会显示空白内容。　　动态页..

asp抽奖程序算法

2015-3-9评论(0)浏览(195)分类：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)浏览(828)分类：Asp/VBScript

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

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

2014-11-13评论(0)浏览(660)分类：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)浏览(214)分类：Asp.Net/C#

　　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)浏览(398)分类：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)浏览(450)分类：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读取局域网共享文件

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

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