<![CDATA[多海@1983N.com]]>http://www.1983n.com.cn/PJBlog22008-03-19T15:41:14+08:00<![CDATA[CSS制作VISTA风格工具条]]>DuoHaihttp://www.1983n.com.cn/DuoHai@126.Com2008-03-19T15:41:14+08:002008-03-19T15:41:14+08:00 预览地址：http://www.1983n.com.cn/Code/13/]]>http://www.1983n.com.cn/default.asp?id=64<![CDATA[精妙SQL语句，基础，提升，技巧]]>DuoHaihttp://www.1983n.com.cn/DuoHai@126.Com2008-03-14T17:10:18+08:002008-03-14T17:10:18+08:00 1、说明：创建数据库 Create DATABASE database-name 2、说明：删除数据库 drop database dbname 3、说明：备份sql server --- 创建 备份数据的 device USE master EXEC sp_addumpdevice 'disk', 'testBack', 'c:\mssql7backup\MyNwind_1.dat' --- 开始 备份 BACKUP DATABASE pubs TO testBack 4、说明：创建新表 create table tabname(col1 type1 [not null] [primary key],col2 type2 [not null],..) 根据已有的表创建新表： A：create table tab_new like tab_old (使用旧表创建新表) B：create table tab_new as select col1,col2… from tab_old definition only 5、说明：删除新表 drop table tabname 6、说明：增加一个列 Alter table tabname add column col type 注：列增加后将不能删除。DB2中列加上后数据类型也不能改变，唯一能改变的是增加varchar类型的长度。 7、说明：添加主键： Alter table tabname add primary key(col) 说明：删除主键： Alter table tabname drop primary key(col) 8、说明：创建索引：create [unique] index idxname on tabname(col….) 删除索引：drop index idxname 注：索引是不可更改的，想更改必须删除重新建。 9、说明：创建视图：create view viewname as select statement 删除视图：drop view viewname 10、说明：几个简单的基本的sql语句 选择：select * from table1 where 范围 插入：insert into table1(field1,field2) values(value1,value2) 删除：delete from table1 where 范围 更新：update table1 set field1=value1 where 范围 查找：select * from table1 where field1 like ’%value1%’ ---like的语法很精妙，查资料! 排序：select * from table1 order by field1,field2 [desc] 总数：select count as totalcount from table1 求和：select sum(field1) as sumvalue from table1 平均：select avg(field1) as avgvalue from table1 最大：select max(field1) as maxvalue from table1 最小：select min(field1) as minvalue from table1 11、说明：几个高级查询运算词 A： UNION 运算符 UNION 运算符通过组合其他两个结果表（例如 TABLE1 和 TABLE2）并消去表中任何重复行而派生出一个结果表。当 ALL 随 UNION 一起使用时（即 UNION ALL），不消除重复行。两种情况下，派生表的每一行不是来自 TABLE1 就是来自 TABLE2。 B： EXCEPT 运算符 EXCEPT 运算符通过包括所有在 TABLE1 中但不在 TABLE2 中的行并消除所有重复行而派生出一个结果表。当 ALL 随 EXCEPT 一起使用时 (EXCEPT ALL)，不消除重复行。 C： INTERSECT 运算符 INTERSECT 运算符通过只包括 TABLE1 和 TABLE2 中都有的行并消除所有重复行而派生出一个结果表。当 ALL 随 INTERSECT 一起使用时 (INTERSECT ALL)，不消除重复行。 注：使用运算词的几个查询结果行必须是一致的。 12、说明：使用外连接 A、left outer join： 左外连接（左连接）：结果集几包括连接表的匹配行，也包括左连接表的所有行。 SQL: select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c B：right outer join: 右外连接(右连接)：结果集既包括连接表的匹配连接行，也包括右连接表的所有行。 C：full outer join： 全外连接：不仅包括符号连接表的匹配行，还包括两个连接表中的所有记录。
二、提升
1、说明：复制表(只复制结构,源表名：a 新表名：b) (Access可用) 法一：select * into b from a where 1<>1 法二：select top 0 * into b from a
2、说明：拷贝表(拷贝数据,源表名：a 目标表名：b) (Access可用) insert into b(a, b, c) select d,e,f from b;
3、说明：跨数据库之间表的拷贝(具体数据使用绝对路径) (Access可用) insert into b(a, b, c) select d,e,f from b in ‘具体数据库’ where 条件 例子：..from b in '"&Server.MapPath(".")&"\data.mdb" &"' where..
4、说明：子查询(表名1：a 表名2：b) select a,b,c from a where a IN (select d from b ) 或者: select a,b,c from a where a IN (1,2,3)
5、说明：显示文章、提交人和最后回复时间 select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b
6、说明：外连接查询(表名1：a 表名2：b) select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c
7、说明：在线视图查询(表名1：a ) select * from (Select a,b,c FROM a) T where t.a > 1;
8、说明：between的用法,between限制查询数据范围时包括了边界值,not between不包括 select * from table1 where time between time1 and time2 select a,b,c, from table1 where a not between 数值1 and 数值2
9、说明：in 的使用方法 select * from table1 where a [not] in (‘值1’,’值2’,’值4’,’值6’)
10、说明：两张关联表，删除主表中已经在副表中没有的信息 delete from table1 where not exists ( select * from table2 where table1.field1=table2.field1 )
11、说明：四表联查问题： select * from a left inner join b on a.a=b.b right inner join c on a.a=c.c inner join d on a.a=d.d where .....
12、说明：日程安排提前五分钟提醒 SQL: select * from 日程安排 where datediff('minute',f开始时间,getdate())>5
13、说明：一条sql 语句搞定数据库分页 select top 10 b.* from (select top 20 主键字段,排序字段 from 表名 order by 排序字段 desc) a,表名 b where b.主键字段 = a.主键字段 order by a.排序字段
14、说明：前10条记录 select top 10 * form table1 where 范围
15、说明：选择在每一组b值相同的数据中对应的a最大的记录的所有信息(类似这样的用法可以用于论坛每月排行榜,每月热销产品分析,按科目成绩排名,等等.) select a,b,c from tablename ta where a=(select max(a) from tablename tb where tb.b=ta.b)
16、说明：包括所有在 TableA 中但不在 TableB和TableC 中的行并消除所有重复行而派生出一个结果表 (select a from tableA ) except (select a from tableB) except (select a from tableC)
17、说明：随机取出10条数据 select top 10 * from tablename order by newid()
18、说明：随机选择记录 select newid()
19、说明：删除重复记录 Delete from tablename where id not in (select max(id) from tablename group by col1,col2,...)
20、说明：列出数据库里所有的表名 select name from sysobjects where type='U'
21、说明：列出表里的所有的 select name from syscolumns where id=object_id('TableName')
22、说明：列示type、vender、pcs字段，以type字段排列，case可以方便地实现多重选择，类似select 中的case。 select type,sum(case vender when 'A' then pcs else 0 end),sum(case vender when 'C' then pcs else 0 end),sum(case vender when 'B' then pcs else 0 end) FROM tablename group by type 显示结果： type vender pcs 电脑 A 1 电脑 A 1 光盘 B 2 光盘 A 2 手机 B 3 手机 C 3
23、说明：初始化表table1
TRUNCATE TABLE table1
24、说明：选择从10到15的记录 select top 5 * from (select top 15 * from table order by id asc) table_别名 order by id desc
三、技巧
1、1=1，1=2的使用，在SQL语句组合时用的较多
“where 1=1” 是表示选择全部 “where 1=2”全部不选， 如： if @strWhere !='' begin set @strSQL = 'select count(*) as Total from [' + @tblName + '] where ' + @strWhere end else begin set @strSQL = 'select count(*) as Total from [' + @tblName + ']' end
我们可以直接写成 set @strSQL = 'select count(*) as Total from [' + @tblName + '] where 1=1 安定 '+ @strWhere
4、转移数据库给新用户以已存在用户权限 exec sp_change_users_login 'update_one','newname','oldname' go
5、检查备份集 RESTORE VERIFYONLY from disk='E:\dvbbs.bak'
6、修复数据库 Alter DATABASE [dvbbs] SET SINGLE_USER GO DBCC CHECKDB('dvbbs',repair_allow_data_loss) WITH TABLOCK GO Alter DATABASE [dvbbs] SET MULTI_USER GO
7、日志清除 SET NOCOUNT ON DECLARE @LogicalFileName sysname, @MaxMinutes INT, @NewSize INT
private sub class_initialize() path=request.servervariables("url") path=left(path,instrRev(path,"/")) end sub
private sub class_terminate() end sub
public property get blEmpty '是否为空 if isempty(obj) then blEmpty=true else blEmpty=false end if end property
public property get valid '是否可用(过期) if isempty(obj) or not isDate(expireTime) then valid=false elseif CDate(expireTime)<now then valid=false else valid=true end if end property
public property let name(str) '设置cache名 cacheName=str & path obj=application(cacheName) expireTimeName=str & "expires" & path expireTime=application(expireTimeName) end property
public property let expires(tm) '重设置过期时间 expireTime=tm application.lock application(expireTimeName)=expireTime application.unlock end property
public sub add(var,expire) '赋值 if isempty(var) or not isDate(expire) then exit sub end if obj=var expireTime=expire application.lock application(cacheName)=obj application(expireTimeName)=expireTime application.unlock end sub
public property get value '取值 if isempty(obj) or not isDate(expireTime) then value=null elseif CDate(expireTime)<now then value=null else value=obj end if end property
public sub makeEmpty() '释放application application.lock application(cacheName)=empty application(expireTimeName)=empty application.unlock obj=empty expireTime=empty end sub
public function equal(var2) '比较 if typename(obj)<>typename(var2) then equal=false elseif typename(obj)="Object" then if obj is var2 then equal=true else equal=false end if elseif typename(obj)="Variant()" then if join(obj,"^")=join(var2,"^") then equal=true else equal=false end if else if obj=var2 then equal=true else equal=false end if end if end function end class
set myCache=New Cache myCache.name="BoardJumpList" '定义缓存名 if myCache.valid then '判断是否可用(包括过期，与是否为空值) response.write myCache.value '输出 else ................ BoardJumpList=xxx myCache.add BoardJumpList,dateadd("n",60,now) '写入缓存 xxx.add 内容,过期时间 response.write BoardJumpList '输出 end if myCache.makeEmpty() 释放内存 mycache.DelCahe() 删除缓存
迷城浪子写的 Class Cls_Cache
Rem ==================使用说明==================== Rem = 本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。 Rem = 作用：缓存和缓存管理类 Rem = 公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400 Rem = MaxCount 缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300 Rem = CacheName 缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。 Rem = 属性:Name 定义缓存对象名称，只写属性。 Rem = 属性:value 读取和写入缓存数据。 Rem = 函数：ObjIsEmpty()判断当前缓存是否过期。 Rem = 方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。 Rem ======================== Public Reloadtime,MaxCount,CacheName Private LocalCacheName,CacheData,DelCount Private Sub Class_Initialize() Reloadtime=14400 CacheName="Dvbbs" End Sub Private Sub SetCache(SetName,NewValue) Application.Lock Application(SetName) = NewValue Application.unLock End Sub Private Sub makeEmpty(SetName) Application.Lock Application(SetName) = Empty Application.unLock End Sub Public Property Let Name(ByVal vNewValue) LocalCacheName=LCase(vNewValue) End Property Public Property Let Value(ByVal vNewValue) If LocalCacheName<>"" Then CacheData=Application(CacheName&"_"&LocalCacheName) If IsArray(CacheData) Then CacheData(0)=vNewValue CacheData(1)=Now() Else ReDim CacheData(2) CacheData(0)=vNewValue CacheData(1)=Now() End If SetCache CacheName&"_"&LocalCacheName,CacheData Else Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName." End If End Property Public Property Get Value() If LocalCacheName<>"" Then CacheData=Application(CacheName&"_"&LocalCacheName) If IsArray(CacheData) Then Value=CacheData(0) Else Err.Raise vbObjectError + 1, "DvbbsCacheServer", " The CacheData Is Empty." End If Else Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName." End If End Property Public Function ObjIsEmpty() ObjIsEmpty=True CacheData=Application(CacheName&"_"&LocalCacheName) If Not IsArray(CacheData) Then Exit Function If Not IsDate(CacheData(1)) Then Exit Function If DateDiff("s",CDate(CacheData(1)),Now()) < 60*Reloadtime Then ObjIsEmpty=False End If End Function Public Sub DelCahe(MyCaheName) makeEmpty(CacheName&"_"&MyCaheName) End Sub End Class
迷城浪子 类例子 Set WydCache=New Cls_Cache WydCache.Reloadtime=0.5 '定义过期时间 (以分钟为单会) WydCache.CacheName="pages" '定义缓存名 IF WydCache.ObjIsEmpty() Then ''判断是否可用(包括过期，与是否为空值) Response.write WydCache.Value Else .................. BoardJumpList=xxx WydCache.Value=BoardJumpList '写入内容 Response.write BoardJumpList End if
Private Sub Class_Initialize() PREFIX = "Cached:" PREFIX_LENGTH = 7 End Sub Private Sub Class_Terminate End Sub ' 设置变量 Public Property Let Cache(ByRef Key, ByRef Content) Dim Item(2) Item(0) = 0 Item(1) = Now() IF (IsObject(Content)) Then Set Item(2) = Content Else Item(2) = Content End IF Application.Unlock Application(PREFIX & Key) = Item Application.Lock End Property ' 取出变量 计数器++ Public Property Get Cache(ByRef Key) Dim Item Item = Application(PREFIX & Key) IF (IsArray(Item)) Then IF (IsObject(Item)) Then Set Cache = Item(2) Else Cache = Item(2) End IF Application(PREFIX & Key)(0) = Application(PREFIX & Key)(0) + 1 Else Cache = Empty End IF End Property ' 检查缓存对象是否存在 Public Property Get Exists(ByRef Key) Dim Item Item = Application(PREFIX & Key) IF (IsArray(Item)) Then Exists = True Else Exists = False End IF End Property ' 得到计数器数值 Public Property Get Counter(ByRef Key) Dim Item Item = Application(PREFIX & Key) IF (IsArray(Item)) Then Counter = Item(0) End IF End Property
' 设置计数器时间 Public Property Let dateTime(ByRef Key, ByRef SetdateTime) Dim Item Item = Application(PREFIX & Key) IF (IsArray(Item)) Then Item(1) = SetdateTime End IF End Property ' 得到计数器时间 Public Property Get dateTime(ByRef Key) Dim Item Item = Application(PREFIX & Key) IF (IsArray(Item)) Then dateTime = Item(1) End IF End Property
' 重置计数器 Public Sub ResetCounter() Dim Key Dim Item Application.Unlock For Each Key in Application.Contents IF (Left(Key, PREFIX_LENGTH) = PREFIX) Then Item = Application(Key) Item(0) = 0 Application(Key) = Item End IF Next Application.Lock End Sub ' 删除某以缓存 Public Sub Clear(ByRef Key) Application.Contents.Remove(PREFIX & Key) End Sub ' 清空没有使用的缓存 Public Sub ClearUnused() Dim Key, Keys, KeyLength, KeyIndex For Each Key in Application.Contents IF (Left(Key, PREFIX_LENGTH) = PREFIX) Then IF (Application(Key)(0) = 0) Then Keys = Keys & VBNewLine & Key End IF End IF Next Keys = Split(Keys, VBNewLine) KeyLength = UBound(Keys) Application.Unlock For KeyIndex = 1 To KeyLength Application.Contents.Remove(Keys(KeyIndex)) Next Application.Lock End Sub ' 清空所有缓存 Public Sub ClearAll() Dim Key, Keys, KeyLength, KeyIndex For Each Key in Application.Contents IF (Left(Key, PREFIX_LENGTH) = PREFIX) Then Keys = Keys & VBNewLine & Key End IF Next Keys = Split(Keys, VBNewLine) KeyLength = UBound(Keys) Application.Unlock For KeyIndex = 1 To KeyLength Application.Contents.Remove(Keys(KeyIndex)) Next Application.Lock End Sub
End Class
slightboyn 类例子
Set Wyd=New JayCache Wyd.dateTime("Page")=时 间 If Wyd.Exists("Page") Then Response.write Wyd.Cache("Page") '输出 Else Wyd.Cache("Page")=xxx 写入 Responxe.write xxx End IF Wyd.Clear("page")'删除缓存 ]]>http://www.1983n.com.cn/default.asp?id=62<![CDATA[一个设计总监的观点]]>DuoHaihttp://www.1983n.com.cn/DuoHai@126.Com2008-03-07T17:50:29+08:002008-03-07T17:50:29+08:00 02，不要在名片上印总经理的字样，印设计总监或客户总监会让你的业务开展起来更有余地，客户也会觉得你公司规模看起来还可以。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% set fso=CreateObject("Scripting.FileSystemObject") set f=fso.OpenTextFile(server.mappath("h_index.htm")) content=f.ReadAll f.close set f=nothing set fso=nothing
HTML代码
