我们在做项目的时候经常要将数据库的数据导出到excel中，很多asp用户并不知道怎么写。 这里明凯总结了两种方法来导出excel，希望能帮到大家。 方法一：用excel组件< % set rs=server.createobject("adodb.recordset") sql="select * from mkusers" rs.open sql,objconn,1,1 Set ExcelApp =CreateObject("Excel.Application") ExcelApp.Application.Visible = True Set ExcelBook = ExcelApp.Workbooks.Add ExcelBook.WorkSheets(1)...
数组是有序数据的集合。数组中的元素可以不属于同一个数据类型。用一个统一的数组名和下标来唯一地确定数组中的元素，更改其中一个元素并不会影响其它元素。数组的下标是有界的，分为下界和上界。数组可以用Dim、Private、Public或Static来声明，它们的语法格式相同。下面只介绍用Dim声明数组的方法。 1．数组的定义与声明 数组的定义语法如下： Dim 数组名( [[下标下界 To ] 下标上界] ) [As 数据类型] 例如（假设在当前模块中 数...
在HTML编辑器发布过程中，会出现一些自动生成的HTML标签，或者在留言板程序应用过程中，也会出现有人恶意写入一些HTML代码的情况，所以怎么精准的过滤掉某些特定的属性标签和参数呢？下面是代码：<%Function ReplaceText(fString,patrn,replStr)Set regEx = New RegExp 建立正则表达式。regEx.Pattern = patrn 设置模式。regEx.IgnoreCase = True 设置是否区分大小写。regEx.Global = True 设置全局可用性。 ReplaceText =...
一个很常见的 ASP 问题 : “如何定时工作流程执行网页?”, 之所以会问这个问题大部分是因为管理员可能会利用一个 ASP 网页来作数据库维护的动作, 如备份, 在 Windows NT 平台有一个方法可以做工作流程, 那就是 AT 指令 + Schedule 服务,就是计划任务， 但很可惜的是你并没有法度在命令列 (Command-Line) 执行 ASP 网页 。 当然你可以在命令列执行 IE 并告诉它要求执行的网页, 例如: c:\program files\internet explorer\iexplore.e...
近来用ASP程序处理一些数据表单，遇到数字格式化的问题，如数据保留几位小数等问题，经过研究，可以使用ASP的内置函数FormatNumber来实现，下面就具体说说FormatNumber函数使用方法。 FormatNumber函数：返回格式化为数字的表达式。 参数： Expression 必选项。要格式化的表达式。 NumDigitsAfterDecimal 可选项。数值，指示在小数点右侧显示的位数。默认值是 ?1，表示使用计算机的区域设置。 IncludeLeadingD...
ASP+Access2000 1.要获取的ID值字段属性必须设为：自动编号(我们假设字段名为recordID) 2.添加记录格式：Rs.Open table,Cn,1,3 注意模式为：1,3 3.newID = rs.Fields("recordID") 4.newID为刚添加的记录的ID值 ASP+SQL Server 2000 1.要获取的ID值字段属性必须设为：自动编号(我们假设字段名为recordID) 2.添加记录代码模式：代码如下:Cn.Execute"INSERT INTO table(field1,field2,...) VALUES("field1Value","field2Value",...)" ...
今天在给一台新的电脑安装IIS，安装成功，建立虚目录后，运行一个已经在别的机器上的正确的asp文件，就是不成功，提示：Microsoft JET Database Engine (0x80004005) 未指定的错误，于是我又将这个文件放到另一台机器上运行，正常，一点问题没有，但在这台机器上就出问题。这样就排除了asp文件问题了。于是就想到，重装IIS。重装后，还是一样。最后发现是硬盘的分区有问题，那些安装好IIS后就能asp程序的电脑是fat32分区，这台是nt...
有时需要获取远程网站的某些信息，而服务器又限制了GET方式，只能通过POST数据提交，这个时候我们可以通过asp来实现模拟提交post数据，网上有挺多这样的例子的。下面的是我自己写的比较简洁易懂的函数。 首先，需要一个编码设置的函数，因为asp一般为gbk的，而标准的网站现在大都使用utf-8的。所以需要转换。代码如下: function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objs...
测试代码如下，请使用IE运行本示例代码如下: <script language="vbscript"> d=now xqj=weekday(d) msgbox xqj输出数字，星期日为1，星期一为2...依次类推，星期六为7 msgbox weekdayname(xqj) </script>WEEKDAY 用途：返回某日期的星期数。在默认情况下，它的值为1(星期天)到7(星期六)之间的一个整数。 Weekday是Visual Basic和VBS中的一个函数，功能返回代表一星期中某天的整数。 语法代码如下:Dim x x=Weekday(date[,FirstdayOfW...
由于excel软件能识别table格式的数据，所以asp只需要输出table格式的html代码，同时设置好contenttype，增加保存为附件的响应头即可将输出的html代码保存为xls文件。asp导出excel文件源代码如下:代码如下: <% Response.ContentType = "application/excel" Response.AddHeader "Content-Disposition", "attachment;filename=""xxxx.xls""" %> <table> <%while not rs.eof %> <tr><td>你的excel单元格内容，有多个自己增加td</td></t...
首先，我在知道Split这个函数的作用，是把一个字符串按指定的分割符分割成一个字符串数组。 ASP里有这个Split，是这样定义的dim Split(byval source as string ,byval str as string) as string() source是源字符串，str是分隔符 我这里用了VB.net的写法，方便说明返回值的类型和参数的类型。 大家一看就明白怎么用了。 在C#里，我们是这样用的 string[] Split(string source,char[] char) 在这里Char是一个Char[]...
将asp函数的参数通过chrw编码加密后，如何解码chrw内容。下面的解码函数，原来很简单，用正则提取内容中的chrw串，然后eval动态执行获取的chrw串得到内容，再执行替换即可。注意事项参考源代码里面的注释，注意将源代码保存为vbs格式的文件后执行，如果是asp文件，需要将createobject修改为server.createobject。 function readfile(fn)读取编码文件的内容set fso=createobject("scripting.filesystemobject")set ts=fso.OpenTextF...
通过Response.Flush()实现对服务端文件的下载时，会失败，不能正常弹出IE下载框，经过测试发现需要进行如下设置后即可解决。 进入 【工具】--->【Internet选项】--->【安全】--->【可信任站点】 文件下载的自动提示改成启用即可解决问题 当然得把访问的网站加入到信任站点才行。
现在我要把记录中的一个字段在input 中显示出来 写法如下：代码如下: <input name="TypeMPhone" type="text" size="20" maxlength="40" value=<%=name%>>可是出问题了 如果数据库中要显示的字段是：a b c d 而不是abcd 实际运行中在input中只将a显示了出来 解决办法：代码如下: <input name="TypeMPhone" type="text" size="20" maxlength="40" value="<%=name%>">
我们先来看一看 Replace 的详细参数 描述返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。语法Replace(expression, find, replacewith[, compare[, count[, start]]]) Replace 函数的语法有以下参数： 参数 描述 expression 必选项。 字符串表达式 包含要替代的子字符串。 find 必选项。被搜索的子字符串。 replacewith 必选项。用于替换的子字符串。 start 可选项。expression 中开始搜索子字符串的位置。如果省略，...