四、聚集索引的重要性和如何选择聚集索引
在上一节的标题中，笔者写的是：实现小数据量和海量数据的通用分页显示存储过程。这是因为在将本存储过程应用于“办公自动化”系统的实践中时，笔者发现这第三种存储过程在小数据量的情况下，有如下现象：
1、分页速度一般维持在1秒和3秒之间。
2、在查询最后一页时，速度一般为5秒至8秒，哪怕分页总数只有3页或30万页。
虽然在超大容量情况下，这个分页的实现过程是很快的，但在分前几页时，这个1－3秒的速度比起第一种甚至没有经过优化的分页方法速度还要慢，借用户的话说就是“还没有ACCESS数据库速度快”，这个认识足以导致用户放弃使用您开发的系统。
笔者就此分析了一下，原来产生这种现象的症结是如此的简单，但又如此的重要：排序的字段不是聚集索引！
本篇文章的题目是：“查询优化及分页算法方案”。笔者只所以把“查询优化”和“分页算法”这两个联系不是很大的论题放在一起，就是因为二者都需要一个非常重要的东西――聚集索引。
在前面的讨论中我们已经提到了，聚集索引有两个最大的优势：
1、以最快的速度缩小查询范围。
2、以最快的速度进行字段排序。
第1条多用在查询优化时，而第2条多用在进行分页时的数据排序。
而聚集索引在每个表内又只能建立一个，这使得聚集索引显得更加的重要。聚集索引的挑选可以说是实现“查询优化”和“高效分页”的最关键因素。
但要既使聚集索引列既符合查询列的需要，又符合排序列的需要，这通常是一个矛盾。
笔者前面“索引”的讨论中，将fariqi，即用户发文日期作为了聚集索引的起始列，日期的精确度为“日”。这种作法的优点，前面已经提到了，在进行划时间段的快速查询中，比用ID主键列有很大的优势。
但在分页时，由于这个聚集索引列存在着重复记录，所以无法使用max或min来最为分页的参照物，进而无法实现更为高效的排序。而如果将ID主键列作为聚集索引，那么聚集索引除了用以排序之外，没有任何用处，实际上是浪费了聚集索引这个宝贵的资源。
为解决这个矛盾，笔者后来又添加了一个日期列，其默认值为getdate()。用户在写入记录时，这个列自动写入当时的时间，时间精确到毫秒。即使这样，为了避免可能性很小的重合，还要在此列上创建UNIQUE约束。将此日期列作为聚集索引列。
有了这个时间型聚集索引列之后，用户就既可以用这个列查找用户在插入数据时的某个时间段的查询，又可以作为唯一列来实现max或min，成为分页算法的参照物。
经过这样的优化，笔者发现，无论是大数据量的情况下还是小数据量的情况下，分页速度一般都是几十毫秒，甚至0毫秒。而用日期段缩小范围的查询速度比原来也没有任何迟钝。
聚集索引是如此的重要和珍贵，所以笔者总结了一下，一定要将聚集索引建立在：
1、您最频繁使用的、用以缩小查询范围的字段上；
2、您最频繁使用的、需要排序的字段上。
结束语：
希望这篇文章不仅能够给大家的工作带来一定的帮助，也希望能让大家能够体会到分析问题的方法；最重要的是，希望这篇文章能够抛砖引玉，掀起大家的学习和讨论的兴趣，以共同促进。
最后需要说明的是，在试验中，发现用户在进行大数据量查询的时候，对数据库速度影响最大的不是内存大小，而是CPU。在我的P4 2.4机器上试验的时候，查看“资源管理器”，CPU经常出现持续到100%的现象，而内存用量却并没有改变或者说没有大的改变。即使在我们的HP ML 350 G3服务器上试验时，CPU峰值也能达到90%，一般持续在70%左右。
本文的试验数据都是来自我们的HP ML 350服务器。服务器配置：双Inter Xeon 超线程 CPU 2.4G，内存1G，操作系统Windows Server 2003 Enterprise Edition，数据库SQL Server 2000 SP3。
三、实现小数据量和海量数据的通用分页显示存储过程
建立一个web 应用，分页浏览功能必不可少。这个问题是数据库处理中十分常见的问题。经典的数据分页方法是:ADO 纪录集分页法，也就是利用ADO自 带的分页功能（利用游标）来实现分页。但这种分页方法仅适用于较小数据量的情形，因为游标本身有缺点：游标是存放在内存中，很费内存。游标一建立，就将相 关的记录锁住，直到取消游标。游标提供了对特定集合中逐行扫描的手段，一般使用游标来逐行遍历数据，根据取出数据条件的不同进行不同的操作。而对于多表和 大表中定义的游标（大的数据集合）循环很容易使程序进入一个漫长的等待甚至死机。
更重要的是，对于非常大的数据模型而言，分页检索时，如果按照传统的每次都加载整个数据源的方法是非常浪费资源的。现在流行的分页方法一般是检索页面大小的块区的数据，而非检索所有的数据，然后单步执行当前行。
最早较好地实现这种根据页面大小和页码来提取数据的方法大概就是“俄罗斯存储过程”。这个存储过程用了游标，由于游标的局限性，所以这个方法并没有得到大家的普遍认可。
后来，网上有人改造了此存储过程，下面的存储过程就是结合我们的办公自动化实例写的分页存储过程：
Create procedure pagination1
(@pagesize int, --页面大小，如每页存储20条记录
@pageindex int --当前页码
)
as
set nocount on
begin
declare @indextable table(id int identity(1,1),nid int) --定义表变量
declare @PageLowerBound int --定义此页的底码
declare @PageUpperBound int --定义此页的顶码
set @PageLowerBound=(@pageindex-1)*@pagesize
set @PageUpperBound=@PageLowerBound+@pagesize
set rowcount @PageUpperBound
insert into @indextable(nid) select gid from TGongwen where fariqi >dateadd(day,-365,getdate()) order by fariqi desc
select O.gid,O.mid,O.title,O.fadanwei,O.fariqi from TGongwen O,@indextable t where O.gid=t.nid
and t.id>@PageLowerBound and t.id<=@PageUpperBound order by t.id
end
set nocount off
以上存储过程运用了SQL SERVER的最新技术――表变量。应该说这个存储过程也是一个非常优秀的分页存储过程。当然，在这个过程中，您也可以把其中的表变量写成临时表： Create TABLE #Temp。但很明显，在SQL SERVER中，用临时表是没有用表变量快的。所以笔者刚开始使用这个存储过程时，感觉非常的不错，速度也比原来的ADO的好。但后来，我又发现了比此方 法更好的方法。
笔者曾在网上看到了一篇小短文《从数据表中取出第n条到第m条的记录的方法》，全文如下：
从publish 表中取出第 n 条到第 m 条的记录：
Select TOP m-n+1 *
FROM publish
Where (id NOT IN
(Select TOP n-1 id
FROM publish))
id 为publish 表的关键字
我当时看到这篇文章的时候，真的是精神为之一振，觉得思路非常得好。等到后来，我在作办公自动化系统（ASP.NET+ C#＋SQL SERVER） 的时候，忽然想起了这篇文章，我想如果把这个语句改造一下，这就可能是一个非常好的分页存储过程。于是我就满网上找这篇文章，没想到，文章还没找到，却找 到了一篇根据此语句写的一个分页存储过程，这个存储过程也是目前较为流行的一种分页存储过程，我很后悔没有争先把这段文字改造成存储过程：
Create PROCEDURE pagination2
(
@SQL nVARCHAR(4000), --不带排序语句的SQL语句
@Page int, --页码
@RecsPerPage int, --每页容纳的记录数
@ID VARCHAR(255), --需要排序的不重复的ID号
@Sort VARCHAR(255) --排序字段及规则
)
AS
DECLARE @Str nVARCHAR(4000)
SET @Str='Select TOP '+CAST(@RecsPerPage AS VARCHAR(20))+' * FROM ('+@SQL+') T Where T.'+@ID+'NOT IN
(Select TOP '+CAST((@RecsPerPage*(@Page-1)) AS VARCHAR(20))+' '+@ID+' FROM ('+@SQL+') T9 orDER BY '+@Sort+') orDER BY '+@Sort
PRINT @Str
EXEC sp_ExecuteSql @Str
GO
其实，以上语句可以简化为：
Select TOP 页大小 *
FROM Table1
Where (ID NOT IN
(Select TOP 页大小*页数 id
FROM 表
orDER BY id))
orDER BY ID
但这个存储过程有一个致命的缺点，就是它含有NOT IN字样。虽然我可以把它改造为：
Select TOP 页大小 *
FROM Table1
Where not exists
(select * from (select top (页大小*页数) * from table1 order by id) b where b.id=a.id )
order by id
即，用not exists来代替not in，但我们前面已经谈过了，二者的执行效率实际上是没有区别的。
既便如此，用TOP 结合NOT IN的这个方法还是比用游标要来得快一些。
虽然用not exists并不能挽救上个存储过程的效率，但使用SQL SERVER中的TOP关键字却是一个非常明智的选择。因为分页优化的最终目的就是避免产生过大的记录集，而我们在前面也已经提到了TOP的优势，通过TOP 即可实现对数据量的控制。
在分页算法中，影响我们查询速度的关键因素有两点：TOP和NOT IN。TOP可以提高我们的查询速度，而NOT IN会减慢我们的查询速度，所以要提高我们整个分页算法的速度，就要彻底改造NOT IN，同其他方法来替代它。
我们知道，几乎任何字段，我们都可以通过max(字段)或min(字段)来提取某个字段中的最大或最小值，所以如果这个字段不重复，那么就可以利用这些 不重复的字段的max或min作为分水岭，使其成为分页算法中分开每页的参照物。在这里，我们可以用操作符“>”或“<”号来完成这个使命， 使查询语句符合SARG形式。如：
Select top 10 * from table1 where id>200
于是就有了如下分页方案：
select top 页大小 *
from table1
where id>
(select max (id) from
(select top ((页码-1)*页大小) id from table1 order by id) as T
)
order by id
在选择即不重复值，又容易分辨大小的列时，我们通常会选择主键。下表列出了笔者用有着1000万数据的办公自动化系统中的表，在以GID（GID是主 键，但并不是聚集索引。）为排序列、提取gid,fariqi,title字段，分别以第1、10、100、500、1000、1万、10万、25万、 50万页为例，测试以上三种分页方案的执行速度：（单位：毫秒）
页 码
方案1
方案2
方案3
1
60
30
76
10
46
16
63
100
1076
720
130
500
540
12943
83
1000
17110
470
250
1万
24796
4500
140
10万
38326
42283
1553
25万
28140
128720
2330
50万
121686
127846
7168
从上表中，我们可以看出，三种存储过程在执行100页以下的分页命令时，都是可以信任的，速度都很好。但第一种方案在执行分页1000页以上后，速度就 降了下来。第二种方案大约是在执行分页1万页以上后速度开始降了下来。而第三种方案却始终没有大的降势，后劲仍然很足。
在确定了第三 种分页方案后，我们可以据此写一个存储过程。大家知道SQL SERVER的存储过程是事先编译好的SQL语句，它的执行效率要比通过WEB页面传来的SQL语句的执行效率要高。下面的存储过程不仅含有分页方案，还 会根据页面传来的参数来确定是否进行数据总数统计。
-- 获取指定页的数据
Create PROCEDURE pagination3
@tblName varchar(255), -- 表名
@strGetFields varchar(1000) = '*', -- 需要返回的列
@fldName varchar(255)='', -- 排序的字段名
@PageSize int = 10, -- 页尺寸
@PageIndex int = 1, -- 页码
@doCount bit = 0, -- 返回记录总数, 非 0 值则返回
@OrderType bit = 0, -- 设置排序类型, 非 0 值则降序
@strWhere varchar(1500) = '' -- 查询条件 (注意: 不要加 where)
AS
declare @strSQL varchar(5000) -- 主语句
declare @strTmp varchar(110) -- 临时变量
declare @strOrder varchar(400) -- 排序类型
if @doCount != 0
begin
if @strWhere !=''
set @strSQL = "select count(*) as Total from [" + @tblName + "] where "+@strWhere
else
set @strSQL = "select count(*) as Total from [" + @tblName + "]"
end
--以上代码的意思是如果@doCount传递过来的不是0，就执行总数统计。以下的所有代码都是@doCount为0的情况
else
begin
if @OrderType != 0
begin
set @strTmp = "<(select min"
set @strOrder = " order by [" + @fldName +"] desc"
--如果@OrderType不是0，就执行降序，这句很重要！
end
else
begin
set @strTmp = ">(select max"
set @strOrder = " order by [" + @fldName +"] asc"
end
if @PageIndex = 1
begin
if @strWhere != ''
set @strSQL = "select top " + str(@PageSize) +" "+@strGetFields+ " from [" + @tblName + "] where " + @strWhere + " " + @strOrder
else
set @strSQL = "select top " + str(@PageSize) +" "+@strGetFields+ " from ["+ @tblName + "] "+ @strOrder
--如果是第一页就执行以上代码，这样会加快执行速度
end
else
begin
--以下代码赋予了@strSQL以真正执行的SQL代码
set @strSQL = "select top " + str(@PageSize) +" "+@strGetFields+ " from ["
+ @tblName + "] where [" + @fldName + "]" + @strTmp + "(["+ @fldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " ["+ @fldName + "] from [" + @tblName + "]" + @strOrder + ") as tblTmp)"+ @strOrder
if @strWhere != ''
set @strSQL = "select top " + str(@PageSize) +" "+@strGetFields+ " from ["
+ @tblName + "] where [" + @fldName + "]" + @strTmp + "(["
+ @fldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " ["
+ @fldName + "] from [" + @tblName + "] where " + @strWhere + " "
+ @strOrder + ") as tblTmp) and " + @strWhere + " " + @strOrder
end
end
exec (@strSQL)
GO
上面的这个存储过程是一个通用的存储过程，其注释已写在其中了。
在大数据量的情况下，特别是在查询最后几页的时候，查询时间一般不会超过9秒；而用其他存储过程，在实践中就会导致超时，所以这个存储过程非常适用于大容量数据库的查询。
笔者希望能够通过对以上存储过程的解析，能给大家带来一定的启示，并给工作带来一定的效率提升，同时希望同行提出更优秀的实时数据分页算法。
二、改善SQL语句
很多人不知道SQL语句在SQL SERVER中是如何执行的，他们担心自己所写的SQL语句会被SQL SERVER误解。比如：
select * from table1 where name='zhangsan' and tID > 10000
和执行:
select * from table1 where tID > 10000 and name='zhangsan'
一些人不知道以上两条语句的执行效率是否一样，因为如果简单的从语句先后上看，这两个语句的确是不一样，如果tID是一个聚合索引，那么后一句仅仅从表 的10000条以后的记录中查找就行了；而前一句则要先从全表中查找看有几个name='zhangsan'的，而后再根据限制条件条件tID> 10000来提出查询结果。
事实上，这样的担心是不必要的。SQL SERVER中有一个“查询分析优化器”，它可以计算出where子句中的搜索条件并确定哪个索引能缩小表扫描的搜索空间，也就是说，它能实现自动优化。
虽然查询优化器可以根据where子句自动的进行查询优化，但大家仍然有必要了解一下“查询优化器”的工作原理，如非这样，有时查询优化器就会不按照您的本意进行快速查询。
在查询分析阶段，查询优化器查看查询的每个阶段并决定限制需要扫描的数据量是否有用。如果一个阶段可以被用作一个扫描参数（SARG），那么就称之为可优化的，并且可以利用索引快速获得所需数据。
SARG的定义：用于限制搜索的一个操作，因为它通常是指一个特定的匹配，一个值得范围内的匹配或者两个以上条件的AND连接。形式如下：
列名 操作符 <常数 或 变量>
或
<常数 或 变量> 操作符列名
列名可以出现在操作符的一边，而常数或变量出现在操作符的另一边。如：
Name=’张三’
价格>5000
5000<价格
Name=’张三’ and 价格>5000
如果一个表达式不能满足SARG的形式，那它就无法限制搜索的范围了，也就是SQL SERVER必须对每一行都判断它是否满足Where子句中的所有条件。所以一个索引对于不满足SARG形式的表达式来说是无用的。
介绍完SARG后，我们来总结一下使用SARG以及在实践中遇到的和某些资料上结论不同的经验：
1、Like语句是否属于SARG取决于所使用的通配符的类型
如：name like ‘张%’ ，这就属于SARG
而：name like ‘%张’ ,就不属于SARG。
原因是通配符%在字符串的开通使得索引无法使用。
2、or 会引起全表扫描
Name=’张三’ and 价格>5000 符号SARG，而：Name=’张三’ or 价格>5000 则不符合SARG。使用or会引起全表扫描。
3、非操作符、函数引起的不满足SARG形式的语句
不满足SARG形式的语句最典型的情况就是包括非操作符的语句，如：NOT、!=、<>、!<、!>、NOT EXISTS、NOT IN、NOT LIKE等，另外还有函数。下面就是几个不满足SARG形式的例子：
ABS(价格)<5000
Name like ‘%三’
有些表达式，如：
Where 价格*2>5000
SQL SERVER也会认为是SARG，SQL SERVER会将此式转化为：
Where 价格>2500/2
但我们不推荐这样使用，因为有时SQL SERVER不能保证这种转化与原始表达式是完全等价的。
4、IN 的作用相当与OR
语句：
Select * from table1 where tid in (2,3)
和
Select * from table1 where tid=2 or tid=3
是一样的，都会引起全表扫描，如果tid上有索引，其索引也会失效。
5、尽量少用NOT
6、exists 和 in 的执行效率是一样的
很多资料上都显示说，exists要比in的执行效率要高，同时应尽可能的用not exists来代替not in。但事实上，我试验了一下，发现二者无论是前面带不带not，二者之间的执行效率都是一样的。因为涉及子查询，我们试验这次用SQL SERVER自带的pubs数据库。运行前我们可以把SQL SERVER的statistics I/O状态打开。
（1）select title,price from titles where title_id in (select title_id from sales where qty>30)
该句的执行结果为：
表 'sales'。扫描计数 18，逻辑读 56 次，物理读 0 次，预读 0 次。
表 'titles'。扫描计数 1，逻辑读 2 次，物理读 0 次，预读 0 次。
（2）select title,price from titles where exists (select * from sales where sales.title_id=titles.title_id and qty>30)
第二句的执行结果为：
表 'sales'。扫描计数 18，逻辑读 56 次，物理读 0 次，预读 0 次。
表 'titles'。扫描计数 1，逻辑读 2 次，物理读 0 次，预读 0 次。
我们从此可以看到用exists和用in的执行效率是一样的。
7、用函数charindex()和前面加通配符%的LIKE执行效率一样
前面，我们谈到，如果在LIKE前面加上通配符%，那么将会引起全表扫描，所以其执行效率是低下的。但有的资料介绍说，用函数charindex()来代替LIKE速度会有大的提升，经我试验，发现这种说明也是错误的：
select gid,title,fariqi,reader from tgongwen where charindex('刑侦支队',reader)>0 and fariqi>'2004-5-5'
用时：7秒，另外：扫描计数 4，逻辑读 7155 次，物理读 0 次，预读 0 次。
select gid,title,fariqi,reader from tgongwen where reader like '%' + '刑侦支队' + '%' and fariqi>'2004-5-5'
用时：7秒，另外：扫描计数 4，逻辑读 7155 次，物理读 0 次，预读 0 次。
8、union并不绝对比or的执行效率高
我们前面已经谈到了在where子句中使用or会引起全表扫描，一般的，我所见过的资料都是推荐这里用union来代替or。事实证明，这种说法对于大部分都是适用的。
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi='2004-9-16' or gid>9990000
用时：68秒。扫描计数 1，逻辑读 404008 次，物理读 283 次，预读 392163 次。
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi='2004-9-16'
union
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where gid>9990000
用时：9秒。扫描计数 8，逻辑读 67489 次，物理读 216 次，预读 7499 次。
看来，用union在通常情况下比用or的效率要高的多。
但经过试验，笔者发现如果or两边的查询列是一样的话，那么用union则反倒和用or的执行速度差很多，虽然这里union扫描的是索引，而or扫描的是全表。
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi='2004-9-16' or fariqi='2004-2-5'
用时：6423毫秒。扫描计数 2，逻辑读 14726 次，物理读 1 次，预读 7176 次。
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi='2004-9-16'
union
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi='2004-2-5'
用时：11640毫秒。扫描计数 8，逻辑读 14806 次，物理读 108 次，预读 1144 次。
9、字段提取要按照“需多少、提多少”的原则，避免“select *”
我们来做一个试验：
select top 10000 gid,fariqi,reader,title from tgongwen order by gid desc
用时：4673毫秒
select top 10000 gid,fariqi,title from tgongwen order by gid desc
用时：1376毫秒
select top 10000 gid,fariqi from tgongwen order by gid desc
用时：80毫秒
由此看来，我们每少提取一个字段，数据的提取速度就会有相应的提升。提升的速度还要看您舍弃的字段的大小来判断。
10、count(*)不比count(字段)慢
某些资料上说：用*会统计所有列，显然要比一个世界的列名效率低。这种说法其实是没有根据的。我们来看：
select count(*) from Tgongwen
用时：1500毫秒
select count(gid) from Tgongwen
用时：1483毫秒
select count(fariqi) from Tgongwen
用时：3140毫秒
select count(title) from Tgongwen
用时：52050毫秒
从以上可以看出，如果用count(*)和用count(主键)的速度是相当的，而count(*)却比其他任何除主键以外的字段汇总速度要快，而且字 段越长，汇总的速度就越慢。我想，如果用count(*)， SQL SERVER可能会自动查找最小字段来汇总的。当然，如果您直接写count(主键)将会来的更直接些。
11、order by按聚集索引列排序效率最高
我们来看：（gid是主键，fariqi是聚合索引列）
select top 10000 gid,fariqi,reader,title from tgongwen
用时：196 毫秒。 扫描计数 1，逻辑读 289 次，物理读 1 次，预读 1527 次。
select top 10000 gid,fariqi,reader,title from tgongwen order by gid asc
用时：4720毫秒。 扫描计数 1，逻辑读 41956 次，物理读 0 次，预读 1287 次。
select top 10000 gid,fariqi,reader,title from tgongwen order by gid desc
用时：4736毫秒。 扫描计数 1，逻辑读 55350 次，物理读 10 次，预读 775 次。
select top 10000 gid,fariqi,reader,title from tgongwen order by fariqi asc
用时：173毫秒。 扫描计数 1，逻辑读 290 次，物理读 0 次，预读 0 次。
select top 10000 gid,fariqi,reader,title from tgongwen order by fariqi desc
用时：156毫秒。 扫描计数 1，逻辑读 289 次，物理读 0 次，预读 0 次。
从以上我们可以看出，不排序的速度以及逻辑读次数都是和“order by 聚集索引列” 的速度是相当的，但这些都比“order by 非聚集索引列”的查询速度是快得多的。
同时，按照某个字段进行排序的时候，无论是正序还是倒序，速度是基本相当的。
12、高效的TOP
事实上，在查询和提取超大容量的数据集时，影响数据库响应时间的最大因素不是数据查找，而是物理的I/0操作。如：
select top 10 * from (
select top 10000 gid,fariqi,title from tgongwen
where neibuyonghu='办公室'
order by gid desc) as a
order by gid asc
这条语句，从理论上讲，整条语句的执行时间应该比子句的执行时间长，但事实相反。因为，子句执行后返回的是10000条记录，而整条语句仅返回10条语 句，所以影响数据库响应时间最大的因素是物理I/O操作。而限制物理I/O操作此处的最有效方法之一就是使用TOP关键词了。TOP关键词是SQL SERVER中经过系统优化过的一个用来提取前几条或前几个百分比数据的词。经笔者在实践中的应用，发现TOP确实很好用，效率也很高。但这个词在另外一 个大型数据库ORACLE中却没有，这不能说不是一个遗憾，虽然在ORACLE中可以用其他方法（如：rownumber）来解决。在以后的关于“实现千 万级数据的分页显示存储过程”的讨论中，我们就将用到TOP这个关键词。
到此为止，我们上面讨论了如何实现从大容量的数据库中快速地查询出您所需要的数据方法。当然，我们介绍的这些方法都是“软”方法，在实践中，我们还要考虑各种“硬”因素，如：网络性能、服务器的性能、操作系统的性能，甚至网卡、交换机等。
declare @i int
set @i=1
while @i<=250000
begin
insert into Tgongwen(fariqi,neibuyonghu,reader,title) values('2004-2-5','通信科','通信科,办公室,王局长,刘局长,张局长,admin,刑侦支队,特勤支队,交巡警支队,经侦支队, 户政科,治安支队,外事科','这是最先的25万条记录')
set @i=@i+1
end
GO
declare @i int
set @i=1
while @i<=250000
begin
insert into Tgongwen(fariqi,neibuyonghu,reader,title) values('2004-9-16','办公室','办公室,通信科,王局长,刘局长,张局长,admin,刑侦支队,特勤支队,交巡警支队,经侦支队,户政科,外事科','这是中间的25万条记录')
set @i=@i+1
end
GO
declare @h int
set @h=1
while @h<=100
begin
declare @i int
set @i=2002
while @i<=2003
begin
declare @j int
set @j=0
while @j<50
begin
declare @k int
set @k=0
while @k<50
begin
insert into Tgongwen(fariqi,neibuyonghu,reader,title) values(cast(@i as varchar(4))+'-8-15 3:'+cast(@j as varchar(2))+':'+cast(@j as varchar(2)),'通信科','办公室,通信科,王局长,刘局长,张局长,admin,刑侦支队,特勤支队,交巡警支队,经侦支队,户政科,外事科','这是最后的50万条记录')
set @k=@k+1
end
set @j=@j+1
end
set @i=@i+1
end
set @h=@h+1
end
GO
declare @i int
set @i=1
while @i<=9000000
begin
insert into Tgongwen(fariqi,neibuyonghu,reader,title) values('2004-5-5','通信科','通信科,办公室,王局长,刘局长,张局长,admin,刑侦支队,特勤支队,交巡警支队,经侦支队, 户政科,治安支队,外事科','这是最后添加的900万条记录')
set @i=@i+1000000
end
GO
通过以上语句，我们创建了25万条由于2004年2月5日发布的记录，25万条由办公室于2004年9月6日发布的记录，2002年和2003年各100个 2500条相同日期、不同分秒的记录（共50万条），还有由通信科于2004年5月5日发布的900万条记录，合计1000万条。
一、因情制宜，建立“适当”的索引
建立“适当”的索引是实现查询优化的首要前提。
索引（index）是除表之外另一重要的、用户定义的存储在物理介质上的数据结构。当根据索引码的值搜索数据时，索引提供了对数据的快速访问。事实上，没有索引,数据库也能根据Select语句成功地检索到结果，但随着表变得越来越大，使用“适当”的索引的效果就越来越明显。注意，在这句话中，我们用了 “适当”这个词，这是因为，如果使用索引时不认真考虑其实现过程，索引既可以提高也会破坏数据库的工作性能。
（一）深入浅出理解索引结构
实际上，您可以把索引理解为一种特殊的目录。微软的SQL SERVER提供了两种索引：聚集索引（clustered index，也称聚类索引、簇集索引）和非聚集索引（nonclustered index，也称非聚类索引、非簇集索引）。下面，我们举例来说明一下聚集索引和非聚集索引的区别：
其实，我们的汉语字典的正文本身就是一个聚集索引。比如，我们要查“安”字，就会很自然地翻开字典的前几页，因为“安”的拼音是“an”，而按照拼音排序汉字的字典是以英文字母“a”开头并以“z”结尾的，那么“安”字就自然地排在字典的前部。如果您翻完了所有以“a”开头的部分仍然找不到这个字，那么就说明您的字典中没有这个字；同样的，如果查“张”字，那您也会将您的字典翻到最后部分，因为“张”的拼音是“zhang”。也就是说，字典的正文部分本身就是一个目录，您不需要再去查其他目录来找到您需要找的内容。
我们把这种正文内容本身就是一种按照一定规则排列的目录称为“聚集索引”。
如果您认识某个字，您可以快速地从自动中查到这个字。但您也可能会遇到您不认识的字，不知道它的发音，这时候，您就不能按照刚才的方法找到您要查的字，而需要去根据“偏旁部首”查到您要找的字，然后根据这个字后的页码直接翻到某页来找到您要找的字。但您结合“部首目录”和“检字表”而查到的字的排序并不是真正的正文的排序方法，比如您查“张”字，我们可以看到在查部首之后的检字表中“张”的页码是672页，检字表中“张”的上面是“驰”字，但页码却是63页， “张”的下面是“弩”字，页面是390页。很显然，这些字并不是真正的分别位于“张”字的上下方，现在您看到的连续的“驰、张、弩”三字实际上就是他们在非聚集索引中的排序，是字典正文中的字在非聚集索引中的映射。我们可以通过这种方式来找到您所需要的字，但它需要两个过程，先找到目录中的结果，然后再翻到您所需要的页码。
我们把这种目录纯粹是目录，正文纯粹是正文的排序方式称为“非聚集索引”。
通过以上例子，我们可以理解到什么是“聚集索引”和“非聚集索引”。
进一步引申一下，我们可以很容易的理解：每个表只能有一个聚集索引，因为目录只能按照一种方法进行排序。
（二）何时使用聚集索引或非聚集索引
下面的表总结了何时使用聚集索引或非聚集索引（很重要）。
动作描述
使用聚集索引
使用非聚集索引
列经常被分组排序
应
应
返回某范围内的数据
应
不应
一个或极少不同值
不应
不应
小数目的不同值
应
不应
大数目的不同值
不应
应
频繁更新的列
不应
应
外键列
应
应
主键列
应
应
频繁修改索引列
不应
应
事实上，我们可以通过前面聚集索引和非聚集索引的定义的例子来理解上表。如：返回某范围内的数据一项。比如您的某个表有一个时间列，恰好您把聚合索引建立在了该列，这时您查询2004年1月1日至2004年10月1日之间的全部数据时，这个速度就将是很快的，因为您的这本字典正文是按日期进行排序的，聚类索引只需要找到要检索的所有数据中的开头和结尾数据即可；而不像非聚集索引，必须先查到目录中查到每一项数据对应的页码，然后再根据页码查到具体内容。
（三）结合实际，谈索引使用的误区
理论的目的是应用。虽然我们刚才列出了何时应使用聚集索引或非聚集索引，但在实践中以上规则却很容易被忽视或不能根据实际情况进行综合分析。下面我们将根据在实践中遇到的实际问题来谈一下索引使用的误区，以便于大家掌握索引建立的方法。
1、主键就是聚集索引
这种想法笔者认为是极端错误的，是对聚集索引的一种浪费。虽然SQL SERVER默认是在主键上建立聚集索引的。
通常，我们会在每个表中都建立一个ID列，以区分每条数据，并且这个ID列是自动增大的，步长一般为1。我们的这个办公自动化的实例中的列Gid就是如此。此时，如果我们将这个列设为主键，SQL SERVER会将此列默认为聚集索引。这样做有好处，就是可以让您的数据在数据库中按照ID进行物理排序，但笔者认为这样做意义不大。
显而易见，聚集索引的优势是很明显的，而每个表中只能有一个聚集索引的规则，这使得聚集索引变得更加珍贵。
从我们前面谈到的聚集索引的定义我们可以看出，使用聚集索引的最大好处就是能够根据查询要求，迅速缩小查询范围，避免全表扫描。在实际应用中，因为ID 号是自动生成的，我们并不知道每条记录的ID号，所以我们很难在实践中用ID号来进行查询。这就使让ID号这个主键作为聚集索引成为一种资源浪费。其次，让每个ID号都不同的字段作为聚集索引也不符合“大数目的不同值情况下不应建立聚合索引”规则；当然，这种情况只是针对用户经常修改记录内容，特别是索引项的时候会负作用，但对于查询速度并没有影响。
在办公自动化系统中，无论是系统首页显示的需要用户签收的文件、会议还是用户进行文件查询等任何情况下进行数据查询都离不开字段的是“日期”还有用户本身的“用户名”。
通常，办公自动化的首页会显示每个用户尚未签收的文件或会议。虽然我们的where语句可以仅仅限制当前用户尚未签收的情况，但如果您的系统已建立了很长时间，并且数据量很大，那么，每次每个用户打开首页的时候都进行一次全表扫描，这样做意义是不大的，绝大多数的用户1个月前的文件都已经浏览过了，这样做只能徒增数据库的开销而已。事实上，我们完全可以让用户打开系统首页时，数据库仅仅查询这个用户近3个月来未阅览的文件，通过“日期”这个字段来限制表扫描，提高查询速度。如果您的办公自动化系统已经建立的2年，那么您的首页显示速度理论上将是原来速度8倍，甚至更快。
在这里之所以提到“理论上”三字，是因为如果您的聚集索引还是盲目地建在ID这个主键上时，您的查询速度是没有这么高的，即使您在“日期”这个字段上建立的索引（非聚合索引）。下面我们就来看一下在1000万条数据量的情况下各种查询的速度表现（3个月内的数据为25万条）：
（1）仅在主键上建立聚集索引，并且不划分时间段：
Select gid,fariqi,neibuyonghu,title from tgongwen
用时：128470毫秒（即：128秒）
（2）在主键上建立聚集索引，在fariq上建立非聚集索引：
select gid,fariqi,neibuyonghu,title from Tgongwen
where fariqi> dateadd(day,-90,getdate())
用时：53763毫秒（54秒）
（3）将聚合索引建立在日期列（fariqi）上：
select gid,fariqi,neibuyonghu,title from Tgongwen
where fariqi> dateadd(day,-90,getdate())
用时：2423毫秒（2秒）
虽然每条语句提取出来的都是25万条数据，各种情况的差异却是巨大的，特别是将聚集索引建立在日期列时的差异。事实上，如果您的数据库真的有1000万容量的话，把主键建立在ID列上，就像以上的第1、2种情况，在网页上的表现就是超时，根本就无法显示。这也是我摒弃ID列作为聚集索引的一个最重要的因素。
得出以上速度的方法是：在各个select语句前加：declare @d datetime
set @d=getdate()
并在select语句后加：
select [语句执行花费时间(毫秒)]=datediff(ms,@d,getdate())
2、只要建立索引就能显著提高查询速度
事实上，我们可以发现上面的例子中，第2、3条语句完全相同，且建立索引的字段也相同；不同的仅是前者在fariqi字段上建立的是非聚合索引，后者在此字段上建立的是聚合索引，但查询速度却有着天壤之别。所以，并非是在任何字段上简单地建立索引就能提高查询速度。
从建表的语句中，我们可以看到这个有着1000万数据的表中fariqi字段有5003个不同记录。在此字段上建立聚合索引是再合适不过了。在现实中，我们每天都会发几个文件，这几个文件的发文日期就相同，这完全符合建立聚集索引要求的：“既不能绝大多数都相同，又不能只有极少数相同”的规则。由此看来，我们建立“适当”的聚合索引对于我们提高查询速度是非常重要的。
3、把所有需要提高查询速度的字段都加进聚集索引，以提高查询速度
上面已经谈到：在进行数据查询时都离不开字段的是“日期”还有用户本身的“用户名”。既然这两个字段都是如此的重要，我们可以把他们合并起来，建立一个复合索引（compound index）。
很多人认为只要把任何字段加进聚集索引，就能提高查询速度，也有人感到迷惑：如果把复合的聚集索引字段分开查询，那么查询速度会减慢吗？带着这个问题，我们来看一下以下的查询速度（结果集都是25万条数据）：（日期列fariqi首先排在复合聚集索引的起始列，用户名neibuyonghu排在后列）
（1）select gid,fariqi,neibuyonghu,title from Tgongwen where fariqi>'2004-5-5'
查询速度：2513毫秒
（2）select gid,fariqi,neibuyonghu,title from Tgongwen where fariqi>'2004-5-5' and neibuyonghu='办公室'
查询速度：2516毫秒
（3）select gid,fariqi,neibuyonghu,title from Tgongwen where neibuyonghu='办公室'
查询速度：60280毫秒
从以上试验中，我们可以看到如果仅用聚集索引的起始列作为查询条件和同时用到复合聚集索引的全部列的查询速度是几乎一样的，甚至比用上全部的复合索引列还要略快（在查询结果集数目一样的情况下）；而如果仅用复合聚集索引的非起始列作为查询条件的话，这个索引是不起任何作用的。当然，语句1、2的查询速度一样是因为查询的条目数一样，如果复合索引的所有列都用上，而且查询结果少的话，这样就会形成“索引覆盖”，因而性能可以达到最优。同时，请记住：无论您是否经常使用聚合索引的其他列，但其前导列一定要是使用最频繁的列。
（四）其他书上没有的索引使用经验总结
1、用聚合索引比用不是聚合索引的主键速度快
下面是实例语句：（都是提取25万条数据）
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi='2004-9-16'
使用时间：3326毫秒
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where gid<=250000
使用时间：4470毫秒
这里，用聚合索引比用不是聚合索引的主键速度快了近1/4。
2、用聚合索引比用一般的主键作order by时速度快，特别是在小数据量情况下
select gid,fariqi,neibuyonghu,reader,title from Tgongwen order by fariqi
用时：12936
select gid,fariqi,neibuyonghu,reader,title from Tgongwen order by gid
用时：18843
这里，用聚合索引比用一般的主键作order by时，速度快了3/10。事实上，如果数据量很小的话，用聚集索引作为排序列要比使用非聚集索引速度快得明显的多；而数据量如果很大的话，如10万以上，则二者的速度差别不明显。
3、使用聚合索引内的时间段，搜索时间会按数据占整个数据表的百分比成比例减少，而无论聚合索引使用了多少个
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi>'2004-1-1'
用时：6343毫秒（提取100万条）
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi>'2004-6-6'
用时：3170毫秒（提取50万条）
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi='2004-9-16'
用时：3326毫秒（和上句的结果一模一样。如果采集的数量一样，那么用大于号和等于号是一样的）
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi>'2004-1-1' and fariqi<'2004-6-6'
用时：3280毫秒
4 、日期列不会因为有分秒的输入而减慢查询速度
下面的例子中，共有100万条数据，2004年1月1日以后的数据有50万条，但只有两个不同的日期，日期精确到日；之前有数据50万条，有5000个不同的日期，日期精确到秒。
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi>'2004-1-1' order by fariqi
用时：6390毫秒
select gid,fariqi,neibuyonghu,reader,title from Tgongwen where fariqi<'2004-1-1' order by fariqi
用时：6453毫秒
（五）其他注意事项
“水可载舟，亦可覆舟”，索引也一样。索引有助于提高检索性能，但过多或不当的索引也会导致系统低效。因为用户在表中每加进一个索引，数据库就要做更多的工作。过多的索引甚至会导致索引碎片。
所以说，我们要建立一个“适当”的索引体系，特别是对聚合索引的创建，更应精益求精，以使您的数据库能得到高性能的发挥。
当然，在实践中，作为一个尽职的数据库管理员，您还要多测试一些方案，找出哪种方案效率最高、最为有效。
今天用DB类写个新闻系统（点击查看DB类）
添加新闻主要代码
<form action="news_add_up.asp?tabname=news" onSubmit="return isok(this)" method="post" name="upload" id="upload">
<table width="100%" border="0" class="df">
<tr>
<td><div align="right">标题：</div></td>
<td><div align="left">
<input name="Title" type="text" id="Title" size="80">
</div></td>
</tr>
<tr>
<td><div align="right">时间：</div></td>
<td><div align="left">
<input name="time" type="text" id="time" value="<%=date()%>">
</div></td>
</tr>
<tr>
<td><div align="right">作者：</div></td>
<td><div align="left">
<input name="Author" type="text" id="Author">
</div></td>
</tr>
<tr>
<td><div align="right">序号：</div></td>
<td><div align="left">
<input name="list" type="text" id="list" value="0" size="10">
</div></td>
</tr>
<tr>
<td><div align="right">内容：</div></td>
<td><div align="left">
<textarea name="Content" cols="75" rows="25" id="Content"></textarea>
</div></td>
</tr>
<tr>
<td><div align="right"></div></td>
<td><div align="left">
<input name="formSubmit" type="submit" id="formSubmit" value="提交">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
注：input 名称和数据库名称一样如果不要让添加的数据库在名称中包含form。如formSubmit
news_add_up.asp主要代码
<!--#include file="db.asp" -->
<%
server_back=Request.ServerVariables("HTTP_REFERER")
set mydb=new db
id=request.QueryString("id")
tabname=request.QueryString("tabname")
mydb.AddEditRS tabname,id
mydb.close
response.write "<script language=JavaScript>"&chr(13)&"alert('操作成功!!!');"&chr(13)&"location.href='"&server_back&"';"&" </script>"
%>
这样就可以添加新闻了！修改就不再写了，和这个类似action="news_add_up.asp?tabname=news&id=ID号"，主要是让input的名称和表中的字段名称一样就行~！
conn.asp
<%
dim conn,ps
set Conn=Server.CreateObject("ADODB.Connection")
PS="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=tradesina;User ID=***;Password=***;"
'PS="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(data)
conn.open PS
%>
db-publuc.js
function gotopage(pagenum)
{
var surl,ssearch,turl,last,page;
surl = self.location.href;
ssearch = self.location.search.substring(1);
if (ssearch.indexOf("page") != -1)
{
last = surl.lastIndexOf("=");
turl = surl.substring(0,last+1) + pagenum;
}
else if (surl.indexOf("?") != -1)
{
turl = surl + "&page=" + pagenum;
}
else
{
turl = surl + "?page=" + pagenum;
}
self.location = turl;
}
function select_all(isCked)
{
var ck=document.getElementsByName("option") //.getElementsByTagName("input");//意思是找到页面上所有 <input > 节点
for(var i=0 ;i<ck.length;i++)
{
if(ck[i].type=="checkbox")
if(ck[i]!=isCked)
{
ck[i].checked=!ck[i].checked;
}
}
}
function del_selected(del_page)
{
var s = false; //用来记录是否存在被选中的复选框
var Newsid, n=0;
var strid, strurl;
var nn = document.getElementsByName("option"); //返回复选框Cate的数量
for (j=0; j<nn.length; j++)
{
if (nn[j].checked)
{
n = n + 1;
s = true;
logid = nn[j].value; //转换为字符串
//生成要删除新闻编号的列表
if(n==1)
{
strid = logid;
}
else
{
strid = strid + "," + logid;
}
}
}
if(!s)
{
alert("请选择要删除的记录项目!");
return false;
}
if (confirm("确定要删除删除的项目吗？"))
{
window.open(del_page+"&id="+ strid,"","alwaysRaised=yes,resizable=auto,minimizebutton=yes,width=200,height=120");
}
}
//=============================================================
// 函 数 名：confirmdel
// 功能描述：弹出对话框确定是否要删除文件
// 输入参数：delfile，删除时跳转的页名
// 返 回 值：无
// 创建日期：2005-9-16
// 修改日期：2005-9-16
// 作 者：李瑞斌
// 附加说明：
//==============================================================
function confirmdel(delfile){
if (confirm("真的要删除这条记录?"))
open(delfile,"","alwaysRaised=yes,resizable=auto,minimizebutton=yes,width=200,height=120");
}
function log_isok(theform)
{
if (theform.username.value=="")
{
alert("Please input your E-mail address.");
theform.username.focus();
return (false);
}
if (theform.pass1.value=="")
{
alert("Please input your password.");
theform.pass1.focus();
return (false);
}
if (theform.pass1.value!="")
{
theform.pass.value=MD5(theform.pass1.value);
}
return (true);
}
db.asp
<%
'Option Explicit
Response.CodePage=65001%>
<% Response.Charset="UTF-8" %>
<script type="text/javascript" language="javascript" src="images/db-publuc.js"></script>
<!--#include file="Global_variables.asp" -->
<!--#include file="conn.asp" -->
<%
'on error resume next
Class DB
dim CurrentPage,zpage,rscount
dim rs
dim MaxPerPage
dim odic,DbSql
dim delImage
'=============================================================
' 函 数 名：Close
' 功能描述：关闭Conn链接
' 输入参数：无
' 返 回 值：无
' 创建日期：2011-9-29
' 修改日期：2011-9-29
' 作 者：李瑞斌
' 附加说明：
'==============================================================
Public sub Close()
rsClose()
if TypeName(conn)<>"Nothing" then '判断conn是否注销
if conn.State=1 then '判断conn是否关闭
conn.Close
end if
set conn=nothing
end if
end sub
'=============================================================
' 函 数 名：rsClose
' 功能描述：关闭rs链接
' 输入参数：无
' 返 回 值：无
' 创建日期：2011-9-29
' 修改日期：2011-9-29
' 作 者：李瑞斌
' 附加说明：
'==============================================================
Public sub rsClose()
if TypeName(rs)<>"Nothing" then '判断rs是否注销
if rs.State=1 then '判断RS是否关闭
rs.close
end if
set rs=nothing
end if
end sub
'=============================================================
' 函 数 名：ExecNonSql
' 功能描述：执行无返回值的数据库操作
' 输入参数：sqlstr，查询的SQL字符串
' 返 回 值：无
' 创建日期：2005-9-16
' 修改日期：2011-9-29
' 作 者：李瑞斌
' 附加说明：
'==============================================================
Public property get ExecNonSql(ByVal sqlstr)
conn.execute sqlstr
End property
'=============================================================
' 函 数 名：Exec
' 功能描述：执行返回数据库记录集
' 输入参数：sqlstr，查询的SQL字符串
' 返 回 值：当recordset对象rs 有记录时返回 true 否则返回 Fslse
' 创建日期：2005-9-16
' 修改日期：2011-9-29
' 作 者：李瑞斌
' 附加说明：无法使用分页
'==============================================================
Public property get Exec(ByVal sqlstr)
set rs=conn.execute(sqlstr)
if rs.eof then
Exec=False
else
Exec=true
end if
End property
'=============================================================
' 函 数 名：ExecSql
' 功能描述：执行查询操作,rs只读
' 输入参数：sqlstr，查询的SQL字符串
' 返 回 值：当recordset对象rs 有记录时返回 true 否则返回 Fslse
' 创建日期：2005-9-16
' 修改日期：2011-9-29
' 作 者：李瑞斌
' 附加说明：主要用于翻页
'==============================================================
Public property get ExecSql(ByVal sqlstr)
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,1
if rs.eof then
ExecSql=False
else
ExecSql=true
end if
End property
'=============================================================
' 函 数 名：ExecSqlWrite
' 功能描述：执行查询操作,rs可写
' 输入参数：sqlstr，查询的SQL字符串
' 返 回 值：当recordset对象rs 有记录时返回 true 否则返回 Fslse
' 创建日期：2005-9-16
' 修改日期：2005-9-16
' 作 者：李瑞斌
' 附加说明：
'==============================================================
Public property get ExecSqlWrite(ByVal sqlstr)
set rs=server.CreateObject("adodb.recordset")
'response.write sqlstr
rs.open sqlstr,conn,1,3
if rs.eof then
ExecSqlWrite=False
else
ExecSqlWrite=true
end if
End property
'=============================================================
' 函 数 名：AddEditRS
' 功能描述：向指定表中添加、修改记录。如rs_id不为空则修改记录
' 输入参数：tabname,表名；rs_id 记录ID
' 返 回 值：无
' 创建日期：2005-9-16
' 修改日期：2011-9-29
' 作 者：
' 附加说明：
'==============================================================
Public function AddEditRS(ByVal tabname,ByVal rs_id)
set odic=server.CreateObject("Scripting.Dictionary")
for each okey in request.Form
odic.add okey,trim(request.Form.item(okey))
next
'odic.Remove "Submit"
if rs_id="" then
DbSql="select top 1 * from ["&tabname&"]"
else
DbSql="select top 1 * from ["&tabname&"] where id="&rs_id
end if
ExecSqlwrite(DbSql)
with rs
if rs_id="" then .AddNew
for each Okey in odic
okey1=LCase(okey)
if instr(okey1,"form")=0 then
'response.write (okey)&"---"&odic.item(okey)&"</br>"
.Fields(Okey)=odic.item(okey)
end if
next
.update
end with
call rsClose()
end function
'=============================================================
' 函 数 名：delRecord
' 功能描述：删除指定表的记录.如果全局变量delImage为True，则删除该记录的相应图片
' 输入参数：tabname,表名；id 记录id
' 返 回 值：无
' 创建日期：2005-9-16
' 修改日期：2005-9-16
' 作 者：李瑞斌
' 附加说明：
'==============================================================
Public function delRecord(ByVal tabname,ByVal id)
dim sql
sql="select * from ["&tabname&"] where id="
if id="" then
response.Write "请选择所要删除的项目"
response.End()
end if
z=split(id,",")
c=0
sql=sql&z(c)
for c=1 to ubound(z)
sql=sql&" or id="&z(c)
next
ExecSqlWrite(sql)
if delImage=true then spe_id=rs("spe_id")
do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
if delImage=true then
delRsImg id,spe_id
end if
end function
'=============================================================
' 函 数 名：delRsImg
' 功能描述：删除Image_up（图片表）中有相关表中的指定图片记录
' 输入参数：id 记录id
' 返 回 值：无
' 创建日期：2005-9-16
' 修改日期：2005-9-16
' 作 者：李瑞斌
' 附加说明：
'==============================================================
Public function delRsImg(ByVal id,ByVal spe_id)
dim sql
dim delfile,fso,f2
sql="Select * from Image_up where spe_id="&spe_id&" and (Lin_type="
if id="" then
response.Write "请选择所要删除的项目"
response.End()
end if
z=split(id,",")
sql=sql&z(c)
for c=1 to ubound(z)
sql=sql&" or Lin_type="&z(c)
next
sql=sql&")"
if ExecSqlWrite(sql) then
'删除图片
do while not rs.eof
delfile="../up_image/"&rs("Up_Path")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f2 = fso.GetFile(Server.mappath(delfile))
f2.delete
rs.delete
rs.movenext
loop
end if
end function
'=============================================================
' 函 数 名：delImg
' 功能描述：删除Image_up（图片表）中的指定图片记录
' 输入参数：id 记录id
' 返 回 值：无
' 创建日期：2005-9-16
' 修改日期：2005-9-16
' 作 者：李瑞斌
' 附加说明：
'==============================================================
Public function delImg(ByVal id)
dim sql
dim delfile,fso,f2
sql="Select * from Image_up where id="
if id="" then
response.Write "请选择所要删除的项目"
response.End()
end if
z=split(id,",")
sql=sql&z(c)
for c=1 to ubound(z)
sql=sql&" or id="&z(c)
next
if ExecSqlWrite(sql) then
'删除图片
do while not rs.eof
delfile="../up_image/"&rs("Up_Path")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f2 = fso.GetFile(Server.mappath(delfile))
f2.delete
rs.delete
rs.movenext
loop
end if
end function
'=============================================================
' 函 数 名：delspace
' 功能描述：将多个空格转换成一个字符
' 输入参数：strData，要转化的字符串；str_replacewith 要替换的字符
' 返 回 值：转换后的文章
' 创建日期：2006-8-31
' 修改日期：2008-8-31
' 作 者：李瑞斌
' 附加说明：
'==============================================================
Public property get delspace(ByVal strData,ByVal str_replacewith)
dim newstrData
set newstrData =new RegExp
newstrData.Global = True
newstrData.Pattern = "([\s\t/]+)"
formatData= newstrData.Replace(strData,str_replacewith)
end property
'=============================================================
' 函 数 名：RemoveHTML
' 功能描述：删除文章的格式
' 输入参数：strHTML，带格式的文章
' 返 回 值：转换后的文章
' 创建日期：2006-9-18
' 修改日期：2006-9-18
' 作 者：互联网 http://community.csdn.net/Expert/topic/5025/5028754.xml?temp=.243313
' 附加说明：
'==============================================================
Public property get RemoveHTML(ByVal strHTML)
Dim objRegExp, Match1, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match1 in Matches
strHtml=Replace(strHTML,Match1.Value,"")
Next
Set objRegExp = Nothing
RemoveHTML=strHTML
End property
'=============================================================
' 函 数 名：FilterHTML
' 功能描述：截取后显示多少个字符
' 输入参数：str，文章；strlen返回的字符个数
' 返 回 值：转换后的文章
' 创建日期：2006-9-18
' 修改日期：2006-9-18
' 作 者：互联网 http://community.csdn.net/Expert/topic/5025/5028754.xml?temp=.243313
' 附加说明：
'==============================================================
Public property get FilterHTML(ByVal str,ByVal strlen)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
l=Len(str)
t=0
For i=1 to l
c=Abs(Asc(Mid(str,i,1)))
If c>255 Then
t=t+2
Else
t=t+1
End If
If t>=strlen Then
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
FilterHTML=cutStr
End property
'=============================================================
' 函 数 名：fullstr
' 功能描述：将提交表单中的回车空格转换成html代码，同时过滤"'"
' 输入参数：str，要转换的字符串
' 返 回 值：strTemp，转换后的字符串
' 创建日期：2005-9-24
' 修改日期：2005-9-24
' 作 者：崔朝普
' 附加说明：
'==============================================================
Public property get fullstr(ByVal str)
dim strTemp
if isnull(str) then
strTemp=str
else
strTemp=server.htmlencode(str)
strTemp=replace(strTemp,chr(10),"<br>")
strTemp=replace(strTemp," "," ")
strTemp=replace(strTemp,chr(9),"    ")
end if
fullstr=strTemp
end property
'=============================================================
' 函 数 名：j_mail
' 功能描述：用jmail发送邮件
' 输入参数：email:发送邮件地址，Subject:发送的标题，HTMLBody:发送的html格式的内容，Body：文件内容
' 返 回 值：无
' 创建日期：2008-8-21
' 修改日期：2008-8-21
' 作 者：李瑞斌
' 附加说明：
'==============================================================
sub j_mail(ByVal email,ByVal Subject,ByVal HTMLBody,ByVal Body)
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "utf-8" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
' 发送者信息（可用变量方式赋值）
JMail.From = Global_mail ' 发送者地址
JMail.FromName = Global_mail_FromName ' 发送者姓名
JMail.Subject =Subject ' 邮件主题
' 身份验证
JMail.MailServerUserName = Global_mail ' 身份验证的用户名
JMail.MailServerPassword = Global_mail_pwd ' 身份验证的密码
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(email)
' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_????有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (filename, True)
' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = HTMLBody
' 邮件主体（文本部分）
JMail.Body = Body
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
if JMail.Send(Global_mail_stmp) then
j_mail=true
else
j_mail=false
end if
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
end sub
'===========================================
' 函 数 名：GetUrl
' 功能描述：获取当前Url参数的函数
' 输入参数：无
' 返 回 值：当前的URL地址
' 创建日期：2005-9-16
' 修改日期：2005-9-16
' 作 者：
' 附加说明：用在循环前面
'===========================================
Public property get GetUrl()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
Servername = CStr(Request.ServerVariables("Server_Name"))
qs=Request.QueryString
if qs<>"" then
GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
else
GetUrl ="http://"& Servername & ScriptAddress
end if
End property
'=============================================================
' 函 数 名：DB_Page
' 功能描述：分页大小设置
' 输入参数：n，每页的大小
' 返 回 值：无
' 创建日期：2005-9-16
' 修改日期：2005-9-16
' 作 者：
' 附加说明：用在循环前面
'==============================================================
Public function DB_Page(ByVal n)
MaxPerPage=n
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage,i
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request.QueryString("page"))
checkpage=instr(1,text,mid(request.QueryString("page"),i,1))
if checkpage=0 then
exit for
end if
next
zpage=Rs.PageCount
If checkpage<>0 then
If NOT IsEmpty(request.QueryString("page")) Then
CurrentPage=Cint(request.QueryString("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > zpage Then CurrentPage = zpage
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
end function
'=============================================================
' 函 数 名：pagelist
' 功能描述：根据传入的SQL语句设置分页
' 输入参数：n，每页的大小
' 返 回 值：无
' 创建日期：2008-9-6
' 修改日期：2011-9-29
' 作 者：
' 附加说明：用在循环前面
'==============================================================
sub pagelist(ByVal sql,ByVal n, ByVal f)
if (not isnull(f)) or f then
dim page_sql
dim t
page_sql=LCase(sql)
page_sql=left(page_sql,InStr(page_sql,"order by")-1)
page_sql="select count(*) as num "& Right(page_sql,len(page_sql)-Instr(page_sql,"from")+1)
dim rs_page
set rs_page=conn.Execute(page_sql)
rscount=rs_page(0) '总记录数
rs_page.close
set rs_page=nothing
'得到总页数
zpage=rscount\n
if rscount mod n>0 then zpage=zpage+1
'取得页数,并判断用户输入的是否数字类型的数据,如不是将以第一页显示
If IsNumeric(request.QueryString("page"))<>0 then
If NOT IsEmpty(request.QueryString("page")) Then
CurrentPage=Cint(request.QueryString("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > zpage Then CurrentPage = zpage
Else
CurrentPage= 1
End If
Else
CurrentPage=1
End if
sql=Replace(sql,"select", "select top " & n*CurrentPage)
if ExecSql(sql) then
Rs.PageSize=n
rs.AbsolutePage=CurrentPage
end if
else
if ExecSql(sql) then
Rs.PageSize=n
zpage=Rs.PageCount
rscount=Rs.recordcount '总记录数
If IsNumeric(request.QueryString("page"))<>0 then
If NOT IsEmpty(request.QueryString("page")) Then
CurrentPage=Cint(request.QueryString("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > zpage Then CurrentPage = zpage
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
rs.AbsolutePage=CurrentPage
end if
end if
end sub
'=============================================================
' 函 数 名：show_Page_all
' 功能描述：显示上一页、下一页，并显示全选和删除所选择
' 输入参数：del_page，删除所选择时跳转的页名
' 返 回 值：无
' 创建日期：2005-9-16
' 修改日期：2005-9-16
' 作 者：
' 附加说明：用在循环前面
'==============================================================
function show_page_all(ByVal del_page)
%>
<style type="text/css">
<!--
.db {
font-size: 9pt;
color: #000000;
}
-->
</style>
<table width="100%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="23%" style="font-size: 9pt">全选/反选
<input name="all1" type="checkbox" id="selectall" value="true" onClick="select_all(this)">
<a style="cursor:hand;" onClick="del_selected('<%=del_page%>')" class="hei">删除所选择</a>
</td>
<td width="67%" align="center" style="font-size: 9pt"> <%
If CurrentPage = 1 Then
Response.Write("第一页 ")
Else
Response.Write(" <a href=javascript:gotopage(1) class=hei>第一页</a> ")
End If
If CurrentPage = 1 Then
Response.Write(" 上一页 ")
Else
Response.Write(" <a href=javascript:gotopage("& CurrentPage-1 & ") class=hei>上一页</a> ")
End If
If CurrentPage = zpage Then
Response.Write(" 下一页 ")
Else
Response.Write(" <a href=javascript:gotopage("& CurrentPage+1 & ") class=hei>下一页</a> ")
End If
If CurrentPage = zpage Then
Response.Write(" 最后一页 ")
Else
Response.Write(" <a href=javascript:gotopage("&zpage &") class=hei>最后一页</a> ")
End If
response.Write " <font color=red>"&rs.PageSize&"</font>条/页 共<font color=red>"&rscount&"</font>条记录"
response.Write " <font color=red>"&CurrentPage&"</font>/<font color=red>"&zpage&"</font>页"
%>
</td>
<td width="10%" height="33">
<% if rs.pagesize> 0 then %>
<select size="1" name="gopage" onChange="gotopage(this.value)">
<% for i=1 to zpage %>
<option value="<%=i%>"<%if i=CurrentPage then response.Write " selected"%>><%=i%></option>
<%next%>
</select>
<% end if %></td>
</tr>
</table>
<%
end function
'=============================================================
' 函 数 名：show_Page_small
' 功能描述：只显示上一页，下一页
' 输入参数：
' 返 回 值：无
' 创建日期：2005-9-23
' 修改日期：2005-9-23
' 作 者：
' 附加说明：用在循环前面
'==============================================================
function show_page_small()
If CurrentPage = 1 Then
Response.Write(" 上一页 ")
Else
Response.Write(" <a href=javascript:gotopage("& CurrentPage-1 & ") class=hei>上一页</a> ")
End If
If CurrentPage = zpage Then
Response.Write(" 下一页 ")
Else
Response.Write(" <a href=javascript:gotopage("& CurrentPage+1 & ") class=hei>下一页</a> ")
End If
end function
'=============================================================
' 函 数 名：show_Page
' 功能描述：显示上一页，下一页
' 输入参数：无
' 返 回 值：无
' 创建日期：2005-9-16
' 修改日期：2005-9-16
' 作 者：
' 附加说明：用在循环前面
'==============================================================
function show_page()
%>
<table width="90%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="67%" align="center"><%
If CurrentPage = 1 Then
Response.Write("第一页 ")
Else
Response.Write(" <a href=javascript:gotopage(1) class=hei>第一页</a> ")
End If
If CurrentPage = 1 Then
Response.Write(" 上一页 ")
Else
Response.Write(" <a href=javascript:gotopage("& CurrentPage-1 & ") class=hei>上一页</a> ")
End If
If CurrentPage = zpage Then
Response.Write(" 下一页 ")
Else
Response.Write(" <a href=javascript:gotopage("& CurrentPage+1 & ") class=hei>下一页</a> ")
End If
If CurrentPage = zpage Then
Response.Write(" 最后一页 ")
Else
Response.Write(" <a href=javascript:gotopage("&zpage &") class=hei>最后一页</a> ")
End If
response.Write " <font color=red>"&rs.PageSize&"</font>条/页 共<font color=red>"&rscount&"</font>条记录"
response.Write " <font color=red>"&CurrentPage&"</font>/<font color=red>"&zpage&"</font>页"
%>
</td>
<td width="10%" height="33">
<% if rs.pagesize> 0 then %>
<select size="1" name="gopage" onChange="gotopage(this.value)">
<% for i=1 to zpage %>
<option value="<%=i%>"<%if i=CurrentPage then response.Write " selected"%>><%=i%></option>
<%next%>
</select>
<% end if %></td>
</tr>
</table>
<%
end function
'===========================================
' 函 数 名：getpage
' 功能描述：根据页码生成当前页的翻页地址
' 输入参数：页码
' 返 回 值：当前页的翻页地址
' 创建日期：2008-9-6
' 修改日期：2011-9-29
' 作 者：李瑞斌
' 附加说明：
'===========================================
Function getpage(ByVal httppage)
server_back=geturl()
if instr(server_back,"?")>1 then
if instr(server_back,"page")>1 then
server_back=left( server_back,instr(server_back,"page")-1)
pagestr="page="&httppage
getpage=server_back&pagestr
else
getpage=server_back&"&page="&httppage
end if
else
getpage=server_back&"?page="&httppage
end if
End Function
'=============================================================
' 函 数 名：show_page_num_en
' 功能描述：显示分页列表
' 输入参数：pagenum显示分页的个数
' 返 回 值：无
' 创建日期：2008-9-6
' 修改日期：2011-9-29
' 作 者：
' 附加说明：
'==============================================================
'英文显示翻页
'按pagenum显示页数
sub show_page_num_en(ByVal pagenum)
If CurrentPage <> 1 Then
Response.Write(" <a class='catalink' href="&getpage(CurrentPage-1 )&" class=hei><<< Previous</a> ")
End If
if CurrentPage=zpage then
i= CurrentPage-pagenum
else
i=CurrentPage-cint(pagenum/2)
end if
if i<=0 then i=1
k=CurrentPage+cint(pagenum/2)
if k> zpage then k=zpage
if k<pagenum then k=pagenum
do while (i<=zpage and i<=k)
if i=CurrentPage then
response.Write(" <a class='catalink' href="&getpage(i)&"><span style='color:#ff0000;'>"&i&"</span></a> ")
else
response.Write(" <a class='catalink' href="&getpage(i)&">"&i&"</a> ")
end if
i=i+1
loop
If CurrentPage <> zpage Then
Response.Write(" <a href="&getpage(CurrentPage+1)&" class='catalink'>Next >>></a> ")
End If
end sub
'=============================================================
' 函 数 名：show_page_num_all
' 功能描述：显示所有分页列表
' 输入参数：pagenum显示分页的个数
' 返 回 值：无
' 创建日期：2008-9-6
' 修改日期：2011-9-29
' 作 者：
' 附加说明：
'==============================================================
sub show_page_num_all()
If CurrentPage <> 1 Then
Response.Write(" <a class='catalink' href="&getpage(CurrentPage-1 )&" class=hei><<< Previous</a> ")
else
Response.Write(" <a class='catalink' href="&getpage(CurrentPage)&" class=hei><<< Previous</a> ")
End If
i=1
do while (i<=zpage)
if i=CurrentPage then
response.Write(" <a class='catalink' href="&getpage(i)&"><span style='color:#ff0000;'>"&i&"</span></a> ")
else
response.Write(" <a class='catalink' href="&getpage(i)&">"&i&"</a> ")
end if
i=i+1
loop
If CurrentPage <> zpage Then
Response.Write(" <a href="&getpage(CurrentPage+1)&" class='catalink'>Next >>></a> ")
else
Response.Write(" <a href="&getpage(CurrentPage)&" class='catalink'>Next >>></a> ")
End If
end sub
End Class
%>
以后会写这个类的用法，如有高手请指点。
GetRows 方法
将 Recordset 对象的多个记录复制到数组中。
语法
array = recordset.GetRows( Rows, Start, Fields )
返回值
返回二维数组。
参数
Rows 可选，长整型表达式，指定要检索记录数。默认值为 adGetRowsRest (-1)。
Start 可选，字符串或长整型，计算得到在 GetRows 操作开始处的记录的书签。也可使用下列 BookmarkEnum 值。
常量 说明
AdBookmarkCurrent 从当前记录开始。
AdBookmarkFirst 从首记录开始。
AdBookmarkLast 从尾记录开始。
Fields 可选，变体型，代表单个字段名、顺序位置、字段名数组或顺序位置号。ADO 仅返回这些字段中的数据。
说明
使用 GetRows 方法可将记录从 Recordset 复制到二维数组中。第一个下标标识字段，第二个则标识记录号。当 GetRows 方法返回数据时数组变量将自动调整到正确大小。
如果不指定 Rows 参数的值，GetRows 方法将自动检索 Recordset 对象中的所有记录。如果请求的记录比可用记录多，则 GetRows 仅返回可用记录数。
如果 Recordset 对象支持书签，则可以通过传送该记录的 Bookmark 属性值，来指定 GetRows 方法将从哪个记录开始检索数据。
如要限制 GetRows 调用返回的字段，则可以在 Fields 参数中传送单个字段名/编号或者字段名/编号数组。
在调用 GetRows 后，下一个未读取的记录成为当前记录，或者如果没有更多的记录，则 EOF 属性设置为 True。
GetString方法
查询数据库显示表格时,我们常用Do While()...Loop 或者是For...Next循环来显示表格,这样当我们要查询大量数据时,势必会比较慢。这时，我们就可以用记录集对象提供的GetString()方法(ADO必须升级到2.0)。
语法
Str=objRecordset.GetString(format,n,coldel,rowdel,nullexpr)
参数说明:
objRecordset:已打开的记录集对象;
format:可选,一般取默认值(默认值为2)
n:可选,显示记录的数量，默认值为全部显示
coldel:可选,列界定符
rowdel:可选,行界定符
nullexpr:可选,该参数用于填充空字段!
有了GetString方法,我们就可以仅用一个Response.Write来显示所有的输出了，它就象是能判断Recordset是否为EOF的DO ... LOOP循环。
用这个方法，可以自动的循环输出字符串,就不用再去while或for循环了,只要建立了RS对象，并且执行了相应操作，不管那是返回一条或者多条记录，甚至是空记录，getstring照样工作。
要从Recordset的结果里生成HTML表格，我们只需关心GetString的5个参数中的3个：coldel(分隔记录集的列的HTML代码)，rowdel(分隔记录集的行的HTML代码)，和nullexpr(当前记录为空时应生成的HTML代码)。
<TABLE Border=1>
<TR><TD>
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %>
</TABLE>
这样写的HTML结果如下：
<TABLE Border=1>
<TR>
<TD>row1, field1 value</TD>
<TD>row1, field2 value</TD>
</TR>
<TR>
<TD>row2, field1 value</TD>
<TD>row2, field2 value</TD>
</TR>
</TABLE>
这里有个BUG了，再看看生成下拉选单：
<%
Set RS = conn.Execute("Select theValue,theText FROM selectOptionsTable orDER BY theText")
optSuffix = "</OPTION>" & vbNewLine
valPrefix = "<OPTION Value='"
valSuffix = "'>"
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" )
' Next line is the key to it!
opts = Left( opts, Len(opts)-Len(valPrefix) )
Response.Write "<Select ...>" & vbNewLine
Response.Write valPrefix & opts
Response.Write "</Select>"
%>
如果想建立一个正确的表格的话，解决那个BUG，只要这样做就可以了：
<%
Set RS = conn.Execute("Select * FROM table")
tdSuffix = "</TD>" & vbNewLine & "<TD>
trPrefix = "<TR>" & vbNewLine & "<TD>"
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" )
' Next line is the key to it!
opts = Left( opts, Len(opts)-Len(trPrefix) )
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine
Response.Write trPrefix & opts
Response.Write "</TABLE>" & vbNewLine
%>
------------------------------------------------------------------------
再介绍一个完全不同的办法：
<%
SQL = "Select '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table orDER BY text"
Set RS = conn.Execute(SQL)
Response.Write "<Select>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</Select>"
%>
你用过吗。。。
看到了吗？可以直接从查询中返回结果。
再进一步，您可以这样做：
<%
SQL = "Select '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table orDER BY text"
Set RS = conn.Execute(SQL)
Response.Write "<Select>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</Select>"
%>
下面是一份完整的示例：
Script Output:
711855 Wednesday 23 3/23/2005 1:33:37 AM
711856 Wednesday 23 3/23/2005 1:23:00 AM
711857 Wednesday 23 3/23/2005 1:26:34 AM
711858 Wednesday 23 3/23/2005 1:33:53 AM
711859 Wednesday 23 3/23/2005 1:30:36 AM
ASP完整代码如下：
<%
' Selected constants from adovbs.inc:
Const adClipString = 2
' Declare our variables... always good practice!
Dim cnnGetString ' ADO connection
Dim rstGetString ' ADO recordset
Dim strDBPath ' Path to our Access DB (*.mdb) file
Dim strDBData ' String that we dump all the data into
Dim strDBDataTable ' String that we dump all the data into
' only this time we build a table
' MapPath to our mdb file's physical path.
strDBPath = Server.MapPath("db_scratch.mdb")
' Create a Connection using OLE DB
Set cnnGetString = Server.CreateObject("ADODB.Connection")
' This line is for the Access sample database:
'cnnGetString.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
' We're actually using SQL Server so we use this line instead.
' Comment this line out and uncomment the Access one above to
' play with the script on your own server.
cnnGetString.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _
& "Initial Catalog=samples;User Id=samples;Password=password;" _
& "Connect Timeout=15;Network Library=dbmssocn;"
' Execute a simple query using the connection object.
' Store the resulting recordset in our variable.
Set rstGetString = cnnGetString.Execute("Select * FROM scratch")
' Now this is where it gets interesting... Normally we'd do
' a loop of some sort until we ran into the last record in
' in the recordset. This time we're going to get all the data
' in one fell swoop and dump it into a string so we can
' disconnect from the DB as quickly as possible.
strDBData = rstGetString.GetString()
' Since I'm doing this twice for illustration... I reposition
' at the beginning of the RS before the second call.
rstGetString.MoveFirst
' This time I ask for everything back in HTML table format:
strDBDataTable = rstGetString.GetString(adClipString, -1, _
&"</td><td>", "</td></tr>" & vbCrLf & "<tr><td>", " ")
' Because of my insatiable desire for neat HTML, I actually
' truncate the string next. You see, GetString only has
' a parameter for what goes between rows and not a seperate
' one for what to place after the last row. Because of the
' way HTML tables are built, this leaves us with an extra
' <tr><td> after the last record. GetString places the
' whole delimiter at the end since it doesn't have anything
' else to place there and in many situations this works fine.
' With HTML it's a little bit weird. Most developers simply
' close the row and move on, but I couldn't bring myself to'
leave the extra row... especially since it would have a
' different number of cells then all the others.
' What can I say... these things tend to bother me. ;)
strDBDataTable = Left(strDBDataTable, Len(strDBDataTable) - Len("<tr><td>"))
' Some notes about .GetString:
' The Method actually takes up to 5 optional arguments:
' 1. StringFormat - The format in which to return the
' recordset text. adClipString is the only
' valid value.
' 2. NumRows - The number of rows to return. Defaults
' to -1 indicating all rows.
' 3. ColumnDelimiter - The text to place in between the columns.
' Defaults to a tab character
' 4. RowDelimiter - The text to place in between the rows
' Defaults to a carriage return
' 5. NullExpr - Expression to use if a NULL value is
' returned. Defaults to an empty string.
' Close our recordset and connection and dispose of the objects.
' Notice that I'm able to do this before we even worry about
' displaying any of the data!
rstGetString.Close
Set rstGetString = Nothing
cnnGetString.Close
Set cnnGetString = Nothing
' Display the table of the data. I really don't need to do
' any formatting since the GetString call did most everything
' for us in terms of building the table text.
Response.Write "<table border=""1"">" & vbCrLf
Response.Write "<tr><td>"
Response.Write strDBDataTable
Response.Write "</table>" & vbCrLf
' FYI: Here's the output format you get if you cann GetString
' without any parameters:
Response.Write vbCrLf & "<p>Here's the unformatted version:</p>" & vbCrLf
Response.Write "<pre>" & vbCrLf
Response.Write strDBDataResponse.Write "</pre>" & vbCrLf
' That's all folks!
%>
获取客户端的IP地址,代码如下:
/// <summary>
/// 获取客户端IP地址
/// </summary>
/// <returns></returns>
public string GetClientIP()
{
string userIP = Request.ServerVariables["HTTP_X_FORWARDED_FOR"];
if (userIP == null)
userIP = Request.ServerVariables["REMOTE_ADDR"];
return userIP;
}
名词解释: ServerVariables -- 服务器变量
Request.ServerVariables("Url")
返回服务器地址
Request.ServerVariables("Path_Info")
客户端提供的路径信息
Request.ServerVariables("Appl_Physical_Path")
与应用程序元数据库路径相应的物理路径
Request.ServerVariables("Path_Translated")
通过由虚拟至物理的映射后得到的路径
Request.ServerVariables("Script_Name")
执行脚本的名称
Request.ServerVariables("Query_String")
查询字符串內容
Request.ServerVariables("Http_Referer")
请求的字符串內容
Request.ServerVariables("Server_Port")
接受请求的服务器端口号
Request.ServerVariables("Remote_Addr")
发出请求的远程主机的IP地址
Request.ServerVariables("Remote_Host")
发出请求的远程主机名称
Request.ServerVariables("Local_Addr")
返回接受请求的服务器地址
Request.ServerVariables("Http_Host")
返回服务器地址
Request.ServerVariables("Server_Name")
服务器的主机名、DNS地址或IP地址
Request.ServerVariables("Request_Method")
提出请求的方法比如GET、HEAD、POST等等
Request.ServerVariables("Server_Port_Secure")
如果接受请求的服务器端口为安全端口时，则为1，否则为0
Request.ServerVariables("Server_Protocol")
服务器使用的协议的名称和版本
Request.ServerVariables("Server_Software")
应答请求并运行网关的服务器软件的名称和版本
Request.ServerVariables("All_Http")
客户端发送的所有HTTP标头，前缀HTTP_
Request.ServerVariables("All_Raw")
客户端发送的所有HTTP标头,其结果和客户端发送时一样，没有前缀HTTP_
Request.ServerVariables("Appl_MD_Path")
应用程序的元数据库路径
Request.ServerVariables("Content_Length")
客户端发出內容的长度
Request.ServerVariables("Https")
如果请求穿过安全通道（SSL），则返回ON如果请求来自非安全通道，则返回OFF
Request.ServerVariables("Instance_ID")
IIS实例的ID号
Request.ServerVariables("Instance_Meta_Path")
响应请求的IIS实例的元数据库路径
Request.ServerVariables("Http_Accept_Encoding")
返回內容如：gzip,deflate
Request.ServerVariables("Http_Accept_Language")
返回內容如：en-us
Request.ServerVariables("Http_Connection")
返回內容：Keep-Alive
Request.ServerVariables("Http_Cookie")
返回內容如：nVisiT%
2DYum=125;ASPSESSIONIDCARTQTRA=FDOBFFABJGOECBBKHKGPFIJI;ASPSESSIONIDCAQQTSRB=LKJJPLABABILLPCOGJGAMKAM;ASPSESSIONIDACRRSSRA=DK
HHHFBBJOJCCONPPHLKGHPB
Request.ServerVariables("Http_User_Agent")
返回內容：Mozilla/4.0(compatible;MSIE6.0;WindowsNT5.1;SV1)
Request.ServerVariables("Https_Keysize")
安全套接字层连接关键字的位数，如128
Request.ServerVariables("Https_Secretkeysize")
服务器验证私人关键字的位数如1024
Request.ServerVariables("Https_Server_Issuer")
服务器证书的发行者字段
Request.ServerVariables("Https_Server_Subject")
服务器证书的主题字段
Request.ServerVariables("Auth_Password")
当使用基本验证模式时，客户在密码对话框中输入的密码
Request.ServerVariables("Auth_Type")
是用户访问受保护的脚本时，服务器用於检验用户的验证方法
Request.ServerVariables("Auth_User")
代证的用户名
Request.ServerVariables("Cert_Cookie")
唯一的客户证书ID号
Request.ServerVariables("Cert_Flag")
客户证书标誌，如有客户端证书，则bit0为0如果客户端证书验证无效，bit1被设置为1
Request.ServerVariables("Cert_Issuer")
用户证书中的发行者字段
Request.ServerVariables("Cert_Keysize")
安全套接字层连接关键字的位数，如128
Request.ServerVariables("Cert_Secretkeysize")
服务器验证私人关键字的位数如1024
Request.ServerVariables("Cert_Serialnumber")
客户证书的序列号字段
Request.ServerVariables("Cert_Server_Issuer")
服务器证书的发行者字段
Request.ServerVariables("Cert_Server_Subject")
服务器证书的主题字段
Request.ServerVariables("Cert_Subject")
客户端证书的主题字段
Request.ServerVariables("Content_Type")
客户发送的form內容或HTTPPUT的数据类型
Request.ServerVariables("HTTP_X_FORWARDED_FOR")
可以获得位于代理（网关）后面的直接IP，当然必须这个代理支持
一些被隐藏起来的Request.ServerVariables参数：
Request.ServerVariables("NUMBER_OF_PROCESSORS")
Request.ServerVariables("OS")
Request.ServerVariables("WINDIR")
Request.ServerVariables("TEMP")
Request.ServerVariables("TMP")
Request.ServerVariables("ComSpec")
Request.ServerVariables("Os2LibPath")
Request.ServerVariables("Path")
Request.ServerVariables("PATHEXT")
Request.ServerVariables("PROCESSOR_ARCHITECTURE")
Request.ServerVariables("PROCESSOR_IDENTIFIER")
Request.ServerVariables("PROCESSOR_LEVEL")
Request.ServerVariables("PROCESSOR_REVISION")
本机ip:<%=request.servervariables("remote_addr")%>
服务器名:<%=Request.ServerVariables("SERVER_NAME")%>
服务器IP:<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口:<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间:<%=now%>
IIS版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%>
脚本超时时间:<%=Server.ScriptTimeout%>
本文件路径:<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服务器解译引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器操作系统:<%=Request.ServerVariables("OS")%>
支持的文件类型：<%=Request.ServerVariables("HTTP_Accept")%>
访问的文件路径：<%=Request.ServerVariables("HTTP_url")%>
用户代理的信息：<%=Request.ServerVariables("HTTP_USER_AGENT")%>
最近做一个网站，要求A库中的AA表导入到另一个B库中的AA表中。并且不能重复导入。因为A.AA中70多万条记录，而且以后可以会有添加新记录。所不可能一次性导完。所以又在B库中建立一个表用于记录导入过的记录。刚开始用 not in 来实现。在但发现在实现过程中经常超时。在网上找了半天。发现下面的文章。
原文如下：
用IN写出来的SQL的优点是比较容易写及清晰易懂，这比较适合现代软件开发的风格。
但是用IN的SQL性能总是比较低的，从SQL执行的步骤来分析用IN的SQL与不用IN的SQL有以下区别：
SQL试图将其转换成多个表的连接，如果转换不成功则先执行IN里面的子查询，再查询外层的表记录，如果转换成功则直接采用多个表的连接方式查询。由此可见用IN的SQL至少多了一个转换的过程。一般的SQL都可以转换成功，但对于含有分组统计等方面的SQL就不能转换了。 推荐在业务密集的SQL当中尽量不采用IN操作符
NOT IN 此操作是强列推荐不使用的，因为它不能应用表的索引。推荐用NOT EXISTS 或(外连接+判断为空)方案代替
在数据库中有两个表，一个是当前表Info(id,PName,remark,impdate,upstate)，一个是备份数据表bakInfo(id,PName,remark,impdate,upstate)，将当前表数据备份到备份表去，就涉及到not in 和in 操作了：
首先，添加10万条测试数据
使用not in 和in操作：
| SET STATISTICS TIME ON GO --备份数据 insert into bakInfo(id,PName,remark,impdate,upstate) select id,PName,remark,impdate,upstate from dbo.Info where id not in(select id from dbo.bakInfo) GO SET STATISTICS TIME OFF |
此操作执行时间：
SQL Server 分析和编译时间:
CPU 时间 = 0 毫秒，占用时间 = 3 毫秒。
SQL Server 执行时间:
CPU 时间 = 453 毫秒，占用时间 = 43045 毫秒。
(100000 行受影响)
SQL Server 分析和编译时间:
CPU 时间 = 0 毫秒，占用时间 = 1 毫秒。
--更改当前表状态
update Info set upstate=1 where id in(select id from dbo.bakInfo)
此操作执行时间：
SQL Server 分析和编译时间:
CPU 时间 = 62 毫秒，占用时间 = 79 毫秒。
SQL Server 执行时间:
CPU 时间 = 188 毫秒，占用时间 = 318 毫秒。
(100000 行受影响)
SQL Server 分析和编译时间:
CPU 时间 = 0 毫秒，占用时间 = 1 毫秒。
--删除当前表数据
delete from Info where upstate=1 and id in(select id from dbo.bakInfo)
此操作执行时间：
SQL Server 分析和编译时间:
CPU 时间 = 183 毫秒，占用时间 = 183 毫秒。
SQL Server 执行时间:
CPU 时间 = 187 毫秒，占用时间 = 1506 毫秒。
(100000 行受影响)
SQL Server 分析和编译时间:
CPU 时间 = 0 毫秒，占用时间 = 1 毫秒。
使用join连接替代方案：
| SET STATISTICS TIME ON GO --备份数据 insert into bakInfo(id,PName,remark,impdate,upstate) select id,PName,remark,impdate,upstate from (SELECT Info.id,Info.PName, Info.remark, Info.impdate,Info.upstate, bakInfo.id AS bakID FROM Info left JOIN bakInfo ON Info.id = bakInfo.id ) as t where t.bakID is null and t.upstate=0 GO SET STATISTICS TIME OFF; |
此操作执行时间：
SQL Server 分析和编译时间:
CPU 时间 = 247 毫秒，占用时间 = 247 毫秒。
SQL Server 执行时间:
CPU 时间 = 406 毫秒，占用时间 = 475 毫秒。
(100000 行受影响)
SQL Server 分析和编译时间:
CPU 时间 = 0 毫秒，占用时间 = 1 毫秒。
--更改当前表状态
| update Info set upstate=1 FROM Info INNER JOIN bakInfo ON Info.id = bakInfo.id |
此操作执行时间：
SQL Server 分析和编译时间:
CPU 时间 = 4 毫秒，占用时间 = 4 毫秒。
SQL Server 执行时间:
CPU 时间 = 219 毫秒，占用时间 = 259 毫秒。
(100000 行受影响)
SQL Server 分析和编译时间:
CPU 时间 = 0 毫秒，占用时间 = 1 毫秒。
--删除当前表数据
| delete from Info FROM Info INNER JOIN bakInfo ON Info.id = bakInfo.id where Info.upstate=1 |
此操作执行时间：
SQL Server 分析和编译时间:
CPU 时间 = 177 毫秒，占用时间 = 177 毫秒。
SQL Server 执行时间:
CPU 时间 = 219 毫秒，占用时间 = 550 毫秒。
(100000 行受影响)
SQL Server 分析和编译时间:
CPU 时间 = 0 毫秒，占用时间 = 1 毫秒。
可以看出使用join方案比使用not in 和in执行时间要短很多了
1.弹出对话框.点击转向指定页面
Response.Write("<script>window.location ='http://www.msproject.cn/index.asp'</script>");
2.弹出对话框
Response.Write("<script language='javascript'>alert('产品添加成功！')</script >");
3.删除文件
pub.util.DeleteFile(HttpContext.Current.Server.MapPath("../file/")+filename);
4.绑定下拉列表框datalist
this.dealincode.DataSource=dv;
this.dealincode.DataTextField="content";
this.dealincode.DataValueField="code";
this.dealincode.DataBind();
this.dealincode.Items.FindByValue(dv[0]["dealincode"].ToString()).Selected=true;
5.时间去秒显示
6.标题带链接
7.修改转向
8.弹出确定按钮
9.输出数据格式化 "{0:F2}" 是格式 F2表示小数点后剩两位
10.提取动态网页内容
WebRequest req = WebRequest.Create(uri);
WebResponse resp = req.GetResponse();
Stream str = resp.GetResponseStream();
StreamReader sr = new StreamReader(str,System.Text.Encoding.Default);
string t = sr.ReadToEnd();
this.Response.Write(t.ToString());
11.获取" . "后面的字符
12. 打开新的窗口并传送参数：
传送参数：
接收参数：
string b = Request.QueryString("id1");
12.为按钮添加对话框
button.attributes.add("onclick","if(confirm(’are you sure...?’)){return true;}else{return false;}")
13.删除表格选定记录
string deleteCmd = "Delete from Employee where emp_id = " + intEmpID.ToString()
14.删除表格记录警告
{
switch(e.Item.ItemType)
{
case ListItemType.Item :
case ListItemType.AlternatingItem :
case ListItemType.EditItem:
TableCell myTableCell;
myTableCell = e.Item.Cells[14];
LinkButton myDeleteButton ;
myDeleteButton = (LinkButton)myTableCell.Controls[0];
myDeleteButton.Attributes.Add("onclick","return confirm(’您是否确定要删除这条信息’);");
break;
default:
break;
}
}
15.点击表格行链接另一页
{
//点击表格打开
if (e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)
e.Item.Attributes.Add("onclick","window.open(’Default.aspx?id=" + e.Item.Cells[0].Text + "’);");
}
双击表格连接到另一页
在itemDataBind事件中
{
string orderItemID =e.item.cells[1].Text;
e.item.Attributes.Add("ondblclick", "location.href=’../ShippedGrid.aspx?id=" + orderItemID + "’");
}
双击表格打开新一页
{
string orderItemID =e.item.cells[1].Text;
e.item.Attributes.Add("ondblclick", "open(’../ShippedGrid.aspx?id=" + orderItemID + "’)");
}
16.表格超连接列传递参数
＜%# DataBinder.Eval(Container.DataItem, "数据字段1")%＞’ & name=’＜%# DataBinder.Eval(Container.DataItem, "数据字段2")%＞’ /＞
17.表格点击改变颜色
{
e.Item.Attributes.Add("onclick","this.style.backgroundColor=’#99cc00’;
this.style.color=’buttontext’;this.style.cursor=’default’;");
}
写在DataGrid的_ItemDataBound里
{
e.Item.Attributes.Add("onmouseover","this.style.backgroundColor=’#99cc00’;
this.style.color=’buttontext’;this.style.cursor=’default’;");
e.Item.Attributes.Add("onmouseout","this.style.backgroundColor=’’;this.style.color=’’;");
}
18.关于日期格式
日期格式设定
我觉得应该在itembound事件中
e.items.cell["你的列"].text=DateTime.Parse(e.items.cell["你的列"].text.ToString("yyyy-MM-dd"))
不要使用Response.Redirect,而应该使用Server.Transfer
e.g
protected void Application_Error(Object sender, EventArgs e) {
if (Server.GetLastError() is HttpUnhandledException)
Server.Transfer("MyErrorPage.aspx");
//其余的非HttpUnhandledException异常交给ASP.NET自己处理就okay了 :)
}
Redirect会导致post－back的产生从而丢失了错误信息，所以页面导向应该直接在服务器端执行，这样就可以在错误处理页面得到出错信息并进行相应的处理
20.清空Cookie
Response.Cookies("UserName").Expires = 0
21.自定义异常处理
using System;
using System.Diagnostics;
namespace MyAppException
{
/// ＜summary＞
/// 从系统异常类ApplicationException继承的应用程序异常处理类。
/// 自动将异常内容记录到Windows NT/2000的应用程序日志
/// ＜/summary＞
public class AppException:System.ApplicationException
{
public AppException()
{
if (ApplicationConfiguration.EventLogEnabled)LogEvent("出现一个未知错误。");
}
public AppException(string message)
{
LogEvent(message);
}
public AppException(string message,Exception innerException)
{
LogEvent(message);
if (innerException != null)
{
LogEvent(innerException.Message);
}
}
//日志记录类
using System;
using System.Configuration;
using System.Diagnostics;
using System.IO;
using System.Text;
using System.Threading;
namespace MyEventLog
{
/// ＜summary＞
/// 事件日志记录类，提供事件日志记录支持
/// ＜remarks＞
/// 定义了4个日志记录方法 (error, warning, info, trace)
/// ＜/remarks＞
/// ＜/summary＞
public class ApplicationLog
{
/// ＜summary＞
/// 将错误信息记录到Win2000/NT事件日志中
/// ＜param name="message"＞需要记录的文本信息＜/param＞
/// ＜/summary＞
public static void WriteError(String message)
{
WriteLog(TraceLevel.Error, message);
}
/// ＜summary＞
/// 将警告信息记录到Win2000/NT事件日志中
/// ＜param name="message"＞需要记录的文本信息＜/param＞
/// ＜/summary＞
public static void WriteWarning(String message)
{
WriteLog(TraceLevel.Warning, message);
}
/// ＜summary＞
/// 将提示信息记录到Win2000/NT事件日志中
/// ＜param name="message"＞需要记录的文本信息＜/param＞
/// ＜/summary＞
public static void WriteInfo(String message)
{
WriteLog(TraceLevel.Info, message);
}
/// ＜summary＞
/// 将跟踪信息记录到Win2000/NT事件日志中
/// ＜param name="message"＞需要记录的文本信息＜/param＞
/// ＜/summary＞
public static void WriteTrace(String message)
{
WriteLog(TraceLevel.Verbose, message);
}
/// ＜summary＞
/// 格式化记录到事件日志的文本信息格式
/// ＜param name="ex"＞需要格式化的异常对象＜/param＞
/// ＜param name="catchInfo"＞异常信息标题字符串.＜/param＞
/// ＜retvalue＞
/// ＜para＞格式后的异常信息字符串，包括异常内容和跟踪堆栈.＜/para＞
/// ＜/retvalue＞
/// ＜/summary＞
public static String FormatException(Exception ex, String catchInfo)
{
StringBuilder strBuilder = new StringBuilder();
if (catchInfo != String.Empty)
{
strBuilder.Append(catchInfo).Append("\r\n");
}
strBuilder.Append(ex.Message).Append("\r\n").Append(ex.StackTrace);
return strBuilder.ToString();
}
/// ＜summary＞
/// 实际事件日志写入方法
/// ＜param name="level"＞要记录信息的级别（error,warning,info,trace).＜/param＞
/// ＜param name="messageText"＞要记录的文本.＜/param＞
/// ＜/summary＞
private static void WriteLog(TraceLevel level, String messageText)
{
try
{
EventLogEntryType LogEntryType;
switch (level)
{
case TraceLevel.Error:
LogEntryType = EventLogEntryType.Error;
break;
case TraceLevel.Warning:
LogEntryType = EventLogEntryType.Warning;
break;
case TraceLevel.Info:
LogEntryType = EventLogEntryType.Information;
break;
case TraceLevel.Verbose:
LogEntryType = EventLogEntryType.SuccessAudit;
break;
default:
LogEntryType = EventLogEntryType.SuccessAudit;
break;
}
EventLog eventLog = new EventLog("Application", ApplicationConfiguration.EventLogMachineName, ApplicationConfiguration.EventLogSourceName );
//写入事件日志
eventLog.WriteEntry(messageText, LogEntryType);
}
catch {} //忽略任何异常
}
} //class ApplicationLog
}
22.Panel 横向滚动，纵向自动扩展
23.回车转换成Tab
(1)
if(event.keyCode==13 && event.srcElement.type!=’button’ && event.srcElement.type!=’submit’ && event.srcElement.type!=’reset’ && event.srcElement.type!=’’&& event.srcElement.type!=’textarea’);
event.keyCode=9;
＜/script＞
(2) //当在有keydown事件的控件上敲回车时，变为tab
{
webcontrol.Attributes .Add ("onkeydown", "if(event.keyCode==13) event.keyCode=9");
}
24.DataGrid超级连接列
25.DataGrid行随鼠标变色
{
if (e.Item.ItemType!=ListItemType.Header)
{
e.Item.Attributes.Add( "onmouseout","this.style.backgroundColor=\""+e.Item.Style["BACKGROUND-COLOR"]+"\"");
e.Item.Attributes.Add( "onmouseover","this.style.backgroundColor=\""+ "#EFF3F7"+"\"");
}
}
26.模板列
＜ITEMTEMPLATE＞
＜ASP LABEL text=’＜%# DataBinder.Eval(Container.DataItem, "ArticleID")%＞’ runat="server" width="80%" id="lblColumn" /＞
＜/ITEMTEMPLATE＞
＜/ASP:TEMPLATECOLUMN＞
＜ASP:TEMPLATECOLUMN headertext="选中"＞
＜HEADERSTYLE wrap="False" horiz＞＜/HEADERSTYLE＞
＜ITEMTEMPLATE＞
＜ASP:CHECKBOX id="chkExport" runat="server" /＞
＜/ITEMTEMPLATE＞
＜EDITITEMTEMPLATE＞
＜ASP:CHECKBOX id="chkExportON" runat="server" enabled="true" /＞
＜/EDITITEMTEMPLATE＞
＜/ASP:TEMPLATECOLUMN＞
后台代码
{
//改变列的选定，实现全选或全不选。
CheckBox chkExport ;
if( CheckAll.Checked)
{
foreach(DataGridItem oDataGridItem in MyDataGrid.Items)
{
chkExport = (CheckBox)oDataGridItem.FindControl("chkExport");
chkExport.Checked = true;
}
}
else
{
foreach(DataGridItem oDataGridItem in MyDataGrid.Items)
{
chkExport = (CheckBox)oDataGridItem.FindControl("chkExport");
chkExport.Checked = false;
}
}
}
27.数字格式化
＜%#Container.DataItem("price","{0:￥#,##0.00}")%＞
int i=123456;
string s=i.ToString("###,###.00");
28.日期格式化
【aspx页面内：＜%# DataBinder.Eval(Container.DataItem,"Company_Ureg_Date")%＞
显示为： 2004-8-11 19:44:28
我只想要：2004-8-11 】
应该如何改？
【格式化日期】
取出来,一般是
【日期的验证表达式】
A.以下正确的输入格式： [2004-2-29], [2004-02-29 10:29:39 pm], [2004/12/31]
^((\d{2}(([02468][048])|([13579][26]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|([1-2][0-9])))))|(\d{2}(([02468][1235679])|([13579][01345789]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|(1[0-9])|(2[0-8]))))))(\s(((0?[1-9])|(1[0-2]))\:([0-5][0-9])((\s)|(\:([0-5][0-9])\s))([AM|PM|am|pm]{2,2})))?$
B.以下正确的输入格式：[0001-12-31], [9999 09 30], [2002/03/03]
^\d{4}[\-\/\s]?((((0[13578])|(1[02]))[\-\/\s]?(([0-2][0-9])|(3[01])))|(((0[469])|(11))[\-\/\s]?(([0-2][0-9])|(30)))|(02[\-\/\s]?[0-2][0-9]))$
【大小写转换】
HttpUtility.HtmlEncode(string);
HttpUtility.HtmlDecode(string);
29.如何设定全局变量
Global.asax中
Application_Start()事件中
添加Application[属性名] ＝ xxx;
就是你的全局变量
30.怎样作到HyperLinkColumn生成的连接后，点击连接，打开新窗口？
HyperLinkColumn有个属性Target,将器值设置成"_blank"即可.(Target="_blank")
【ASPNETMENU】点击菜单项弹出新窗口
在你的menuData.xml文件的菜单项中加入URLTarget="_blank"，如：
＜MenuData ImagesBaseURL="images/"＞
＜MenuGroup＞
＜MenuItem Label="内参信息" URL="Infomation.aspx" ＞
＜MenuGroup ID="BBC"＞
＜MenuItem Label="公告信息" URL="Infomation.aspx" URLTarget="_blank" LeftIcon="file.gif"/＞
＜MenuItem Label="编制信息简报" URL="NewInfo.aspx" LeftIcon="file.gif" /＞
最好将你的aspnetmenu升级到1.2版
31.读取DataGrid控件TextBox值
{
TextBox tb = (TextBox)dgi.FindControl("yourTextBoxId");
tb.Text....
}
33.在DataGrid中有3个模板列包含Textbox分别为 DG_ShuLiang (数量) DG_DanJian(单价) DG_JinE(金额)分别在5.6.7列，要求在录入数量及单价的时候自动算出金额即:数量*单价=金额还要求录入时限制为 数值型.我如何用客户端脚本实现这个功能?
＜ItemTemplate＞
＜asp:TextBox id="ShuLiang" runat=’server’ Text=’＜%# DataBinder.Eval(Container.DataItem,"DG_ShuLiang")%＞’
/＞
＜asp:RegularExpressionValidator id="revS" runat="server" C ErrorMessage="must be integer" Validati /＞
＜/ItemTemplate＞
＜/asp:TemplateColumn＞
＜asp:TemplateColumn HeaderText="单价"＞
＜ItemTemplate＞
＜asp:TextBox id="DanJian" runat=’server’ Text=’＜%# DataBinder.Eval(Container.DataItem,"DG_DanJian")%＞’
/＞
＜asp:RegularExpressionValidator id="revS2" runat="server" C ErrorMessage="must be numeric" Validati /＞
＜/ItemTemplate＞
＜/asp:TemplateColumn＞
＜asp:TemplateColumn HeaderText="金额"＞
＜ItemTemplate＞
＜asp:TextBox id="JinE" runat=’server’ Text=’＜%# DataBinder.Eval(Container.DataItem,"DG_JinE")%＞’ /＞
＜/ItemTemplate＞
＜/asp:TemplateColumn＞＜script language="javascript"＞
function DoCal()
{
var e = event.srcElement;
var row = e.parentNode.parentNode;
var txts = row.all.tags("INPUT");
if (!txts.length || txts.length ＜ 3)
return;
var q = txts[txts.length-3].value;
var p = txts[txts.length-2].value;
if (isNaN(q) || isNaN(p))
return;
q = parseInt(q);
p = parseFloat(p);
txts[txts.length-1].value = (q * p).toFixed(2);
}
＜/script＞
34.datagrid选定比较底下的行时，为什么总是刷新一下，然后就滚动到了最上面，刚才选定的行因屏幕的关系就看不到了。
page.smartNavigation=true
35.在Datagrid中修改数据，当点击编辑键时，数据出现在文本框中，怎么控制文本框的大小 ?
{
for(int i=0;i＜e.Item.Cells.Count-1;i++)
if(e.Item.ItemType==ListItemType.EditType)
{
e.Item.Cells.Attributes.Add("Width", "80px")
}
}
36.对话框
private static string ScriptEnd = "＜/script＞";
public static void ConfirmMessageBox(string PageTarget,string Content)
{
string C+Content+"’);"+"if(retValue){window.location=’"+PageTarget+"’;}";
ConfirmContent=ScriptBegin + ConfirmContent + ScriptEnd;
Page ParameterPage = (Page)System.Web.HttpContext.Current.Handler;
ParameterPage.RegisterStartupScript("confirm",ConfirmContent);
//Response.Write
(strScript);
}
37. 将时间格式化：string aa=DateTime.Now.ToString("yyyy年MM月dd日");
1.1 取当前年月日时分秒
currentTime=System.DateTime.Now;
1.2 取当前年
int 年= DateTime.Now.Year;
1.3 取当前月
int 月= DateTime.Now.Month;
1.4 取当前日
int 日= DateTime.Now.Day;
1.5 取当前时
int 时= DateTime.Now.Hour;
1.6 取当前分
int 分= DateTime.Now.Minute;
1.7 取当前秒
int 秒= DateTime.Now.Second;
1.8 取当前毫秒
int 毫秒= DateTime.Now.Millisecond;
38．自定义分页代码：
先定义变量 ：
public static int curPageIndex=1; //当前页面
下一页：
if(DataGrid1.CurrentPageIndex ＜ (DataGrid1.PageCount - 1))
{
DataGrid1.CurrentPageIndex += 1;
curPageIndex+=1;
}
bind(); // DataGrid1数据绑定函数
上一页：
if(DataGrid1.CurrentPageIndex ＞0)
{
DataGrid1.CurrentPageIndex += 1;
curPageIndex-=1;
}
bind(); // DataGrid1数据绑定函数
直接页面跳转：
int a=int.Parse(JumpPage.Value.Trim());//JumpPage.Value.Trim()为跳转值
if(a＜DataGrid1.PageCount)
{
this.DataGrid1.CurrentPageIndex=a;
}
bind();
39．DataGrid使用：
添加删除确认：
{
foreach(DataGridItem di in this.DataGrid1.Items)
{
if(di.ItemType==ListItemType.Item||di.ItemType==ListItemType.AlternatingItem)
{
((LinkButton)di.Cells[8].Controls[0]).Attributes.Add("onclick","return confirm(’确认删除此项吗?’);");
}
}
}
样式交替：
if (itemType == ListItemType.Item )
{
e.Item.Attributes["onmouseout"] = "javascript:this.style.backgroundColor=’#FFFFFF’;";
e.Item.Attributes["onmouseover"] = "javascript:this.style.backgroundColor=’#d9ece1’;cursor=’hand’;" ;
}
else if( itemType == ListItemType.AlternatingItem)
{
e.Item.Attributes["onmouseout"] = "javascript:this.style.backgroundColor=’#a0d7c4’;";
e.Item.Attributes["onmouseover"] = "javascript:this.style.backgroundColor=’#d9ece1’;cursor=’hand’;" ;
}
添加一个编号列：
DataColumn dc=dt.Columns.Add("number",System.Type.GetType("System.String"));
for(int i=0;i＜dt.Rows.Count;i++)
{
dt.Rows["number"]=(i+1).ToString();
}
DataGrid1.DataSource=dt;
DataGrid1.DataBind();
DataGrid1中添加一个CheckBox，页面中添加一个全选框
private void CheckBox2_CheckedChanged(object sender, System.EventArgs e)
{
foreach(DataGridItem thisitem in DataGrid1.Items)
{
((CheckBox)thisitem.Cells[0].Controls[1]).Checked=CheckBox2.Checked;
}
}
将当前页面中DataGrid1显示的数据全部删除
{
if(((CheckBox)thisitem.Cells[0].Controls[1]).Checked)
{
string strloginid= DataGrid1.DataKeys[thisitem.ItemIndex].ToString();
Del (strloginid); //删除函数
}
}
40．当文件在不同目录下，需要获取数据库连接字符串（如果连接字符串放在Web.config，然后在Global.asax中初始化）
在Application_Start中添加以下代码：
AppSettings["ConnStr"].ToString();
41． 变量.ToString()
字符型转换 转为字符串
12345.ToString("C"); //生成 ￥12,345.00
12345.ToString("e"); //生成 1.234500e+004
12345.ToString("f4"); //生成 12345.0000
12345.ToString("x"); //生成 3039 (16进制)
12345.ToString("p"); //生成 1,234,500.00%
42、变量.Substring(参数1,参数2);
截取字串的一部分，参数1为左起始位数，参数2为截取几位。 如：string s1 = str.Substring(0,2);
43．在自己的网站上登陆其他网站：(如果你的页面是通过嵌套方式的话，因为一个页面只能有一个FORM，这时可以导向另外一个页面再提交登陆信息)
＜!--
function gook(pws)
{
frm.submit();
}
//--＞
＜/SCRIPT＞ ＜body leftMargin="0" topMargin="0" marginwidth="0" marginheight="0"＞
＜form name="frm" action=" http://www.51aspx.com/ " method="post"＞
＜tr＞
＜td＞
＜input id="f_user" type="hidden" size="1" name="f_user" runat="server"＞
＜input id="f_domain" type="hidden" size="1" name="f_domain" runat="server"＞
＜input class="box" id="f_pass" type="hidden" size="1" name="pwshow" runat="server"＞
＜INPUT id="lng" type="hidden" maxLength="20" size="1" value="5" name="lng"＞
＜INPUT id="tem" type="hidden" size="1" value="2" name="tem"＞
＜/td＞
＜/tr＞
＜/form＞
文本框的名称必须是你要登陆的网页上的名称，如果源码不行可以用vsniffer 看看。
下面是获取用户输入的登陆信息的代码：
name=Request.QueryString["EmailName"];
try
{
int a=name.IndexOf("@",0,name.Length);
f_user.Value=name.Substring(0,a);
f_domain.Value=name.Substring(a+1,name.Length-(a+1));
f_pass.Value=Request.QueryString["Psw"];
}
catch
{
Script.Alert("错误的邮箱!");
Server.Transfer("index.aspx");
}
44.datagrid分页中如果删除时出现超出索引
{
int int_PageLess; //定义页面跳转的页数
//如果当前页是最后一页
if(dg.CurrentPageIndex == dg.PageCount-1)
{
//如果就只有一页
if(dg.CurrentPageIndex == 0)
{
//删除后页面停在当前页
dg.CurrentPageIndex = dg.PageCount-1;
}
else
{
//如果最后一页只有一条记录
if((dg.Items.Count % dg.PageSize == 1) || dg.PageSize == 1)
{
//把最后一页最后一条记录删除后，页面应跳转到前一页
int_PageLess = 2;
}
else //如果最后一页的记录数大于1，那么在最后一页删除记录后仍然停在当前页
{
int_PageLess = 1;
}
dg.CurrentPageIndex = dg.PageCount - int_PageLess;
}
}
}
45.警告窗口
/**//// <summary>
/// 服务器端弹出alert对话框
/// </summary>
/// <param name="str_Message">提示信息,例子："不能为空!"</param>
/// <param name="page">Page类</param>
{
page.RegisterStartupScript("","<script>alert('"+str_Message+"');</script>");
}
36.重载此警告窗口,使某控件获得焦点
/// 服务器端弹出alert对话框，并使控件获得焦点
/// </summary>
/// <param name="str_Ctl_Name">获得焦点控件Id值,比如：txt_Name</param>
/// <param name="str_Message">提示信息,例子："请输入您姓名!"</param>
/// <param name="page">Page类</param>
public void Alert(string str_Ctl_Name,string str_Message,Page page)
{
page.RegisterStartupScript("","<script>alert('"+str_Message+"');document.forms(0)."+str_Ctl_Name+".focus(); document.forms(0)."+str_Ctl_Name+".select();</script>");
}
47.确认对话框
/// 服务器端弹出confirm对话框
/// </summary>
/// <param name="str_Message">提示信息,例子："您是否确认删除!"</param>
/// <param name="btn">隐藏Botton按钮Id值,比如：btn_Flow</param>
/// <param name="page">Page类</param>
public void Confirm(string str_Message,string btn,Page page)
{
page.RegisterStartupScript("","<script> if (confirm('"+str_Message+"')==true){document.forms(0)."+btn+".click();}</script>");
}
48.重载确认对话框，点击确定触发一个隐藏按钮事件，点击取消触发一个隐藏按钮事件
/// 服务器端弹出confirm对话框,询问用户准备转向那些操作，包括“确定”和“取消”时的操作
/// </summary>
/// <param name="str_Message">提示信息，比如："成功增加数据,单击\"确定\"按钮填写流程,单击\"取消\"修改数据"</param>
/// <param name="btn_Redirect_Flow">"确定"按钮id值</param>
/// <param name="btn_Redirect_Self">"取消"按钮id值</param>
/// <param name="page">Page类</param>
public void Confirm(string str_Message,string btn_Redirect_Flow,string btn_Redirect_Self,Page page)
{
page.RegisterStartupScript("","<script> if (confirm('"+str_Message+"')==true){document.forms(0)."+btn_Redirect_Flow+".click();}else{document.forms(0)."+btn_Redirect_Self+".click();}</script>");
}
49.获得焦点
/// 使控件获得焦点
/// </summary>
/// <param name="str_Ctl_Name">获得焦点控件Id值,比如：txt_Name</param>
/// <param name="page">Page类</param>
public void GetFocus(string str_Ctl_Name,Page page)
{
page.RegisterStartupScript("","<script>document.forms(0)."+str_Ctl_Name+".focus(); document.forms(0)."+str_Ctl_Name+".select();</script>");
}
50.子窗体返回主窗体
///名称：redirect
///功能：子窗体返回主窗体
///参数：url
///返回值：空
///</summary>
public void redirect(string url,Page page)
{
if ( Session["IfDefault"]!=(object)"Default")
{
page.RegisterStartupScript("","<script>window.top.document.location.href='"+url+"';</script>");
}
}
51.判断是否为数字
/// 名称：IsNumberic
/// 功能：判断输入的是否是数字
/// 参数：string oText：源文本
/// 返回值： bool true:是 false:否
/// </summary>
public bool IsNumberic(string oText)
{
try
{
int var1=Convert.ToInt32 (oText);
return true;
}
catch
{
return false;
}
}
获得字符串实际长度（包括中文字符）
public int StringLength(string oString)
{
byte[] strArray=System.Text .Encoding.Default .GetBytes (oString);
int res=strArray.Length ;
return res;
}