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

asp对数组随机取值不重复

2012-9-29评论(0)浏览(206)分类：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连接mssqlserver不同实例

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

　　今天安装了sqlserver2005，给sqlserver2005起了实例名称sql2005，asp要连接sqlserver2005和默认的mssqlserver2000【默认实例名称】，需要修改驱动字符串中的server项目，将mssqlserver的实例名称加上，如果不加上就会连接到默认的mssqlserver实例【mssqlserver2000，而不是sqlserver2005的sql2005】。　　驱动字符串如下面所示'********..

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

2013-11-22评论(0)浏览(204)分类：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

asp动态输出图片

2012-10-13评论(0)浏览(204)分类：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 ..

服务器端xmlhttp

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

+展开-VBScriptFunctionPostHttpPage(RefererUrl,PostUrl,PostData)DimxmlHttpDimRetStrSetxmlHttp=server.CreateObject("Msx"&"ml2.XM"&"LHT"&"TP")xmlHttp.Open"POST",PostUrl,FalseXmlHTTP.setRequestHeader"Content-Length",Len(PostData)xmlHttp.setRequestHeader"Content-Type","application/x-www-form-urlencoded"xmlHttp.setRequestHea..

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

2013-12-16评论(0)浏览(202)分类：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)..

vbs文件获取当前的路径

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

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

adodb.stream对象的方法/属性

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

Cancel 方法使用方法如下 Object.Cancel 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。Close 方法使用方法如下 Object.Close ：关闭对像CopyTo 方法使用方法如下 Object.CopyTo(destStream,[CharNumber]) 说明：将对像的数据复制，destStream指向要复制的对像，CharNumber为可选参数，指要复制的字节数，不选为全部复制。Flush 方法..

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

2013-10-30评论(0)浏览(200)分类：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..

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

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

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

asp读取局域网共享文件

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

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

asp sqlserver2000 [Microsoft][ODBC SQL Server Driver][DBNETLIB]一般性网络错误。请检查网络文档

2012-5-22评论(0)浏览(190)分类：Asp/VBScript

　　今天访问一个本地的asp程序时，在连接SqlServer2000数据库出现下面的错误Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'[Microsoft][ODBC SQL Server Driver][DBNETLIB]一般性网络错误。请检查网络文档。　　这个程序没改动过，以前都是可以运行的。最近好像安装了什么软件还是配置过什么了，导致出现这个错误。网上找..

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

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

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内置对象类型属性介绍

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

　　ASP内置对象Request，Request.Form，Request.Form(id)类型，.item, .items, .count, .content属性介绍　　测试这些对象类型和是否包含.item, .items, .count, .content属性源代码 % On Error Resume Next Dim i,biName,arrBI,AI biName = ObjectContext, _ Server, _ Application, _ Application.Contents, _ ..

asp获取当前为星期几

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

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

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

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

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

adodb.connection openschema使用说明

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

adodb.connection openschema使用语法+展开-VBScriptsetconnection=server.createobject("adodb.connection")Setrecordset=connection.OpenSchema(Querytype,[Restrictions],[SchmeID])adodb.connection openschema返回值返回包含模式信息的 Recordset 对象。Recordset 将以只读、静态游标打开。adodb.connection openschema参数说明Querytype：..

asp访问ad目录通过ldap

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

转载自：http://forums.aspfree.com/code-bank-54/asp-code-query-ad-ldap-169652.htmlthe following code let's you query a domain AD to get users details.I've split the query into two parts, so if you want to get more than one users details and want different info for each user you can add another sub and get what i..

asp base64编码/解码函数

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

　　asp实现的base64编码和解码函数使用方法!--#include file=base64.inc--%'---------------------------------------------------------------------------------str=我爱你tandyencodestr=encode64(str) '编码response.write encodestr hrresponse.write decode64(encodestr) hr '解码%　　asp实现的base64编码和解码函数源代码..

ASP获取存储过程Return返回值和Output输出

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

1，ASP获取存储过程获取Return返回值存储过程代码--存储过程Create PROCEDURE MYSQL @a int, @b intAS return @a + @bGOasp代码Set conn = Server.CreateObject(ADODB.Connection)conn.open Driver={SQL Server};server=192.168.1.69;uid=sa;pwd=sa;database=union_5k3g;Set MyCommand = Server.CreateObject(ADODB.Command)MyCommand...

Cookie在IE浏览器跨域不能存储读取解决方案

2011-2-18评论(0)浏览(166)分类：Asp.Net/C#/WCF

最近在做一个Banner切换的功能，用coolie存储切换到的Banner位置，用script标签来加载生成Banner的页面。由于平时用Firefox调试JavaScript，所以测试的时候还是使用Firefox，结果正确，按循序切换。当换IE浏览器来查看效果的时候，发现IE只能显示第一个Banner，不能按循序切换。发现跨域生成的cookie被IE浏览器给拦截了，晕。。。后面网上查找了..

asp根据访问者ip地址获取天气预报信息

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

根据访问用户IP地址自动获取天气预报下载中的asp版本代码的更新+展开 -HTML%@language="vbscript"codepage="936"%%functionRemoveHTML(str)dimr:setr=newRegExp:r.ignorecase=true:r.global=true:r.pattern="[^]+"RemoveHTML=r.replace(str,"")r.pattern="\s*"RemoveHTML=r.replace(RemoveHTML,"")setr=nothingendfunctionfunctiongetip()dimipi..

asp操作json对象示例

2014-3-11评论(0)浏览(165)分类：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查询access数据库中的表

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

　　可以通过adodb.connection openschema方法进行查询access数据库中存在的表，下面为源代码+展开-VBScriptConstadSchemaTables=20'asp中没有定义adodb.connectionopenschema参数一的枚举变量值，要自己定义setconn=server.CreateObject("adodb.connection")conn.Open"provider=microsoft.jet.oledb.4.0;datasource="&server.MapPath("acc.mdb"..

asp连接mysql读取数据

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

　　asp想要连接mysql数据库，首先需要安装MySQL ODBC 3.51驱动。　　连接字符串如下set conn = server.createobject(adodb.connection)Conn.Open DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;DATABASE=Shops;USER=root;PASSWORD=xxx;参数解析SERVER ：服务器地址，如127.0.0.1DATABASE：要链接的数据库 shopsUSER：服务器登录用户名PAS..