asp导出excel文件

评论(0)浏览(292)分类:Asp/VBScript
asp导出excel文件  由于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加密源代码

评论(0)浏览(185)分类:Asp/VBScript
asp sha1加密源代码  在百度找的几个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过滤条件后如何对记录集分页

评论(0)浏览(112)分类:Asp/VBScript
执行特殊自定义asp过滤条件后如何对记录集分页  asp取出recordset后,如果需要执行特殊自定义的asp过滤语句,满足条件后再输出对应的记录,而这个asp过滤条件无法融合到sql语句中时,此时asp要如何对记录集进行正确的分页操作?  要对需要执行特殊自定义asp过滤的记录集进行分页操作,不能使用asp提供的默认分页操作,如rs.pagesize,rs.recordcount,rs.pagecount,rs.absolutepage这种..

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

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

asp操作json对象示例

评论(0)浏览(142)分类:Asp/VBScript
asp操作json对象示例  本示例通过服务器端的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地址

评论(0)浏览(85)分类: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网站使用utf-8编码注意事项

评论(0)浏览(798)分类:Asp/VBScript
asp网站使用utf-8编码注意事项  中文window操作系统,asp默认的编码为gb2312。如果asp网站想将编码改为utf-8,需要注意asp文件也要存储为utf-8编码,要不会乱码。  asp网站使用utf-8编码需要注意如下步骤1)用page指令申明codepage为65001%@ language=vbscript codepage=65001 %  这个申明需要出现在asp文件中服务器端代码的第一个位置,其他html代码可以在page指令之前..

使用adodb.stream读写2进制值数据

评论(0)浏览(418)分类:Asp/VBScript
使用adodb.stream读写2进制值数据  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进制自动增长序号

评论(0)浏览(70)分类:Asp/VBScript
asp/vbscript 36进制自动增长序号  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

评论(0)浏览(184)分类:Asp/VBScript
MSXML2.DOMDocument加载xml文件系统错误: -2146697209  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获取当前为星期几

评论(0)浏览(82)分类:Asp/VBScript
asp获取当前为星期几  asp有函数weekday获取日期所在周的星期几(数字),weekdayname返回星期几名称。  测试代码如下,请使用IE运行本示例script language=vbscriptd=nowxqj=weekday(d)msgbox xqj'输出数字,星期日为1,星期一为2...依次类推,星期六为7msgbox weekdayname(xqj)/script

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

评论(0)浏览(147)分类:Asp/VBScript
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文件获取当前的路径

评论(0)浏览(180)分类:Asp/VBScript
vbs文件获取当前的路径currentpath = createobject(Scripting.FileSystemObject).GetFolder(.).Path或者currentpath = createobject(Scripting.FileSystemObject).GetFile(Wscript.ScriptFullName).ParentFolder.Path

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

评论(0)浏览(155)分类:Asp/VBScript
asp时间戳和时间对象相互转换  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读写文件示例

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

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

评论(0)浏览(308)分类:Asp/VBScript
asp使用CDO.Message组件发邮件示例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..

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

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

asp replace函数

评论(0)浏览(152)分类:Asp/VBScript
asp replace函数Replace语法Replace(expression, find, replacewith[, compare[, count[, start]]])Replace 函数参数expression:必选。 字符串表达式 包含要替代的子字符串。find: 必选。被搜索的子字符串。replacewith :必选。用于替换的子字符串。start: 可选。expression 中开始搜索子字符串的位置。如果省略,默认值为 1。在和count 关联时必须用count ..

asp解码chrw/chr编码文件还原为源代码

评论(0)浏览(771)分类:Asp/VBScript
asp解码chrw/chr编码文件还原为源代码  将asp函数的参数通过chrw编码加密后,如后解码chrw内容。下面的解码函数,原来很简单,用正则提取内容中的chrw串,然后eval动态执行获取的chrw串得到内容,再执行替换即可。注意事项参考源代码里面的注释,注意将源代码保存为vbs格式的文件后执行,如果是asp文件,需要将createobject修改为server.createobject  asp chrw编码解密文件源代..

asp实现WWW-Authenticate basic认证示例

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

asp.net/asp Response IsClientConnected属性

评论(0)浏览(56)分类:Asp/VBScript
asp.net/asp Response IsClientConnected属性  Response IsClientConnected 属性可以在asp/asp.net运行之时,判断客气端是否断开连接,返回true or false。这样避免用户在访问执行时间比较长的页面时,因为用户的重新刷新或关闭页面,服务端程序还在继续执行,导致服务器资源没有被即时释放。IsClientConnected相关说明:IsClientConnected 属性只读,它指示自上次调用 Response.Write 之..

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

评论(0)浏览(354)分类:Asp/VBScript
asp同一个网站存在不同编码页面跳转出现乱码解决办法  症状:同一个asp站点,当不同页面使用了不同的编码时,如果从一个页面转到另外一个不同编码的页面,出现乱码。  环境:2个不同的都用meta标签指定了编码,page指令同时指定了codepage为对应的编码号。gb2312编码的asp文件存储编码为ansi,utf-8编码的asp文件存储编码为utf-8。  如果环境设置好,同上面说的,一般是不会出现乱码的。  ..

asp recordset bookmark属性

评论(0)浏览(26)分类:Asp/VBScript
asp recordset bookmark属性asp recordset bookmark属性   返回唯一标识 Recordset 对象中当前记录的书签,或者将 Recordset 对象的当前记录设置为由有效书签所标识的记录。 设置或返回计算有效书签的变体型表达式。 详细说明  使用 Bookmark 属性可保存当前记录的位置并随时返回到该记录。书签只能在支持书签功能的 Recordset 对象中使用。  打开 Recordset 对象时,..

upload_5xsoft asp无组件文件上传类库

评论(1)浏览(660)分类:Asp/VBScript
upload_5xsoft asp无组件文件上传类库  upload_5xsoft无组件文件上传类库源代码和示例,增加了一个小功能,获取文件扩展名称。  测试代码test.htmlform method=post action=save.asp enctype=multipart/form-data名称:input type=text name=name /input type=submit value=提交 /br /文件:input type=file name=file //formsave.asp!--#include file=upload_5xsoft.asp--%set up..

asp gb2312/utf-8编码和解码

评论(0)浏览(987)分类:Asp/VBScript
asp gb2312/utf-8编码和解码  整理网上的asp编码和解码函数,添加了如何在utf-8编码页面中解码gb2312编码的函数。  asp编码,此函数可以将字符串编码为指定编码的url编码,可以在任何编码的asp页面中使用dim iSourceCode'网站默认编码iSourceCode=Session.CodePage'得到当前页面指定的编码'sStr:要编码的字符串'iTargetCode:指定的编码Function UrlE..

asp连接mssqlserver不同实例

评论(0)浏览(165)分类:Asp/VBScript
asp连接mssqlserver不同实例  今天安装了sqlserver2005,给sqlserver2005起了实例名称sql2005,asp要连接sqlserver2005和默认的mssqlserver2000【默认实例名称】,需要修改驱动字符串中的server项目,将mssqlserver的实例名称加上,如果不加上就会连接到默认的mssqlserver实例【mssqlserver2000,而不是sqlserver2005的sql2005】。  驱动字符串如下面所示'********..

asp正则submatches分组

评论(0)浏览(107)分类:Asp/VBScript
asp正则submatches分组s=test1,test2fasdfasfafsa%response.write aaa%dfafadfafafafa%for i=0 to 1:response.write ddd:next%fdsfdfdsfsd_ dddddd22222aaaaaa%aaa=888%换行set rx=new RegExp'创建正则表达式rx.Global=true'全局匹配rx.Pattern=%([\s\S]+?)%'正则表达式set mc=rx.Execute(s)'执行匹配response.write 共有mc.count项for each m in mc..

asp数字分页导航示例

评论(0)浏览(134)分类:Asp/VBScript
asp数字分页导航示例  一个asp生成数字分页导航的示例代码,可以指定每次显示多少个数字导航,效果点击这里查看dim CurrentPage'当前页dim CurrentPageKey'页码键名称dim TotalRecord'总记录数dim TotalPage'总页数dim PageSize'每页显示多少条dim NumberPageSize'显示多少个页码dim pms'查询的其他参数 function getguider() dim n..

去掉asp now方法中的am,pm内容

评论(0)浏览(180)分类:Asp/VBScript
去掉asp now方法中的am,pm内容  调用asp的now方法时如果得到的内容附带了am/pm字符串,那么写入数据库时会导致asp程序出错,出现这个问题一般是系统时区设置的问题,可以通过如下方法解决now方法返回am/pm字符串问题。  开始,设置,控制面板,选择区域和语言选项,在区域选项中选择自定义,选择时间标签,将时间格式设置为HH:mm:ss,设置为24小时制时间,将下面的AM符号..

asp修改access数据库密码

评论(0)浏览(128)分类:Asp/VBScript
asp修改access数据库密码  asp/vbscript如何修改access数据库密码。asp/vbscript修改access数据库密码的sql语句语法很简单,如下,但是链接字符串一定要设置正确,要不会提示错误。需要增加原始的密码,并且要以独占的方式打开access数据库ALTER USER 或 DATABASE 语句 :更改现有用户或数据库的密码。 语法ALTER DATABASE PASSWORD newpassword oldpasswordALTER USE..