Google [站内搜索]

分类: Web编程预览模式: 普通 | 列表

ASP计算中英文混合字符串的长度

有的时候需要计算出中英文混合字符串的长度,下边提供一个思路:

<%
Dim str,i,n
str="我是china"

查看更多...

分类:Web编程 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 7864

读取ACCESS库中所有表及其字段名称

公司有一套ASP+ACCESS的后台程序,我要尽快了解,在了解其数据库结构的时候对着ACCESS非常的不直观,便想将所有表名称及其字段名称打印出来,输出这些内容便成问题,有没有办法用ASP将这些内容输出到一个页面呢?搜索了相关资料后总算是实现了,下边是程序:

<%
Dim conn,rs,rs2,sqlstr,t_count,table_name,i
On error resume next

查看更多...

分类:Web编程 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 3875

什么时候需要事务处理

昨天对事务处理进行了深入的了解一番,之后突然冒出一个问题:什么时候需要事务处理?众所周知,使用事务处理能使一系列操作"同生共死",在很在程度上保证了程序的可用性,但却不能因此而滥用,如下程序:

<%
Dim conn,sqlstr
Set conn=server.createobject("ADODB.connection")

查看更多...

分类:Web编程 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 4695

Javascript、VBscript和C#中使用正则表达式

一、Javascript中使用正则表达式

创建:
    var reg=/正则文本/[ig];
    reg=new RegExp("正则文本",[ig]);

查看更多...

分类:Web编程 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 5219

ASP常见错误

故障:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。

解决:

查看更多...

分类:Web编程 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 3801

将一个表中的数据追加到另一个表

1.把表B中的字段,插入到表A中;

Insert INTO 表A(字段名1, 字段名2, ……) Select 字段名1, 字段名2, …… FROM 表B

2.把表B复制一份为A

查看更多...

分类:Web编程 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 4308

将记录集分N行显示,每行显示M个

将符合条件的记录读取出来保存于一个记录集中,然后分N行显示,每行显示M个记录,以前我总是这么写:

<table>
<%
Dim i,j

查看更多...

分类:Web编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 8539

On Error 语句

On Error 语句的作用是:启用或禁用错误处理程序。一般用法如下:

On Error Resume Next
On Error GoTo 0

查看更多...

分类:Web编程 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 3955

在Asp中如何快速优化分页的技巧

近日一直在研究如何才能写出高效的分页算法,大概整理了一下,思路如下:

首先数据库里需要有一个自动编号字段(ID)。然后第一次访问的时候,取出所有记录,定制好每页的记录数PageSize,计算出页数,然后根据页数建立一个一维数组PageId(PageCount),PageId(0)保存记录初试条件,然后对应每个元素保存每页对应的ID边界码。
ID边界码:
如果数据库记录ID记录序列如下 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16假设需要按照ID 顺序排序的话 ,PageSize = 5, Pagecount = 4 ,PageId(4),数组PageId的值分别为PageId(0) = 1, PageId(1) = 5, PageId(2) = 10, PageId(3) = 15, PageId(4) = 16,当访问第 i 页的时候就直接找 [PageId(i-1) , PageId(i))之间的记录,这样可以保证每次取的记录都只是PageSize 条记录。

查看更多...

分类:Web编程 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 3887
Function ToLink(Str)
Dim RE '正则表达式对象
Dim strContent
If IsNull(Str) Then Str=""
Set RE = New RegExp '创建正则表达式对象

查看更多...

分类:Web编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 7601