悠悠博客 关注Ajax技术与web开发

程序代码 <% '================================================== '函数名：CheckDir2 '作 用：检查文件夹是否存在 '参 数：FolderPath ------文件夹地址 '================================================== Function CheckDir2(byval FolderPath) dim fso folderpath=Server.MapPath("...

此功能一般用来生成姓名的首字母简写，比如说我今天下午写程序的时候就要用，对于国标码的很简单，因为其ANSII编码是按汉字拼音首字母顺序排列的，只要查出汉字的ANSII值，再对比一下范围就可以了。 但是问题是，我用的是UTF-8编码，而UNICODE的汉字编码毫无规则可言，这可愁坏人了，如果用中文的操作系统的话，装了MSSQL，可以从MSSQL的系统表里把这个对应关系select 出来，但是我现在用AC数据库，犯不着去为了查个字母就动MSSQL，所以最需要的还是一张UNICODE的汉字编码对照表。...

下面提到的函数使用类似于冒泡法的原理对一个一维数组进行排序 Function Sort(ary)Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE  KeepChecking = FALSE  For I = 0 to UBound(ary)   If I = UBound(ary) Then Exit For &n...

我们来做一个组件，一个可以生成GUID的组件 全局唯一标志(GUID) 一个GUID可以表示成32个字符的十六进制格式。COM提供了一个名叫CoCreateGuid的系统级函数，可以用它来生成新的GUID。该函数依靠一种类似使用计算机网卡的唯一标志符和系统时钟等信息的算法，来创建一个在时间和空间上都唯一的GUID. 打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC8 Option Explicit Private Type GUID Data1 As Long D...

这个函数，用于在asp中利用ado来现实excel文件中的内容。dddggg [原作] Function SwitchExcelInfo(xlsFileName) Dim xlsStr Dim rs Dim i,j,k Dim ExcelConn Dim ExcelFile Dim objExcelApp Dim objExcelBook Dim bgColor xlsStr = "" ExeclFile = Server.MapPath(xlsFileName) Set o...

sql 存储过程分页 CREATE PROC myx_prPageRecordset @queryStr nvarchar(1000), @keyField nvarchar (200), @pageSize int, @pageNumber int AS BEGIN DECLARE @sqlText AS nvarchar(4000) DECLARE @sqlTable AS nvarchar(4000) SET @sqlTable = 'SELECT TOP ' + CAST((@pageN...

1，调用没有参数的存储过程 <% set conn=server.CreateObject("adodb.connection") set cmd=server.CreateObject("adodb.command") strconn="dsn=pubs;uid=sa;pwd" conn.Open strconn set cmd.ActiveConnection=conn cmd.CommandText="{...

昨天和animator试验了一下，把data.mdb文件改名为data.asp文件后放在wwwroot目录里。然后在IE中输入data.asp路径后，发现IE显示一片空白，右键->察看源文件，跳出记事本，将内容另存为.mdb文件，用ACCESS打开，发现需要密码，也就是说至少文件头被破坏。 然后用Flashget试验下载data.asp文件，并另存为data.mdb文件，发现用ACCESS打开完好无损！！！看来，好一些编程人员在开发的时候都认为，改了mdb后缀为asp就能防下载的概念，是错...

 这个文章好像是利用一种很少见的方法读取access中未知表的表名。确实是比较另类的应用，以前从来没有接触过。原文地址：http://yuhua.yfidc.com/post/358.shtml//...

一、调用方式： Sub Acchelp_Test() '如果是条件是长整型 Call AccHelp_DeleteFldNumRow("表名称", "字段名称", 条件) '如果是条件是文本型 'Call AccHelp_DeleteFldStrRow("表名称", "字段名称", 条件) End Sub 二、两个函数： Public Function AccHelp_DeleteFldStrRow(tblName ...

数据库里有5条记录，随机抽取4条。 Data id DataColumn -------------------------- 1 a 2 b 3 c 4 d 5 e<% '-------------------------数据库连接----------------------- Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=...

Microsoft Access一直是开发功能强大的数据库解决方案的有用的平台。除了Microsoft Office Access 2003中提供的令人兴奋的新开发功能外，Access 2003 Developer Extensions还为开发人员提供所需的工具和资源，帮助他们更快更轻松地创建、测试和部署高级的Access解决方案。　　Access 2003 Developer Extensions是用于Microsoft Office System软件包的新Visual Studio工具的一个...

下面是获取数据表的方法： 方法一：直接用ado的OpenSchema()方法打开adSchemaTables，建立一个schema记录集 <% Const adSchemaTables = 20 adSchemaColumns = 4 dim Conn,db dim ConnStr db="temp.mdb" 'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径 ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0...

刚用的，不错。给大家看看   主要思路: 用一条语句统计(Count)出记录数(而不在查询时获得 RecordCount 属性), 缓存在 Cookies 中, 跳转时就不用再次统计. 使用 ADO 的 AbsolutePage 属性进行页面跳转即可. 为方便调用而写成类, 代码主要地方已有说明硬件环境: AMD Athlon XP 2600+, 256 DDR 软件环境: MS Windows 2000 Advanced Server + IIS 5.0 + Access 2000 ...

在脚本环境中，ADO 允许以服务器端脚本方式显露数据。在此方案中，ADO（脚本语言所使用的基本 OLE DB 提供者）和引用给定数据存储所需的所有其他组件都安装在运行 Internet Information Services (IIS) 的服务器上。在使用 Active Server Pages (ASP) 时，ADO 是可以生成如 HTML 语言的脚本所引用的一个组件。HTML 的内容可以通过 HTTP 传递到客户端 Web 浏览器。通过使用脚本，Web 页可以将操作发送回服务器端脚本，从而...