77家的会客厅²⁰¹⁰

CHECK（检验）

根据所指定的参数不同，用此键字可完成以下功能：
功能                              有效参数值
有效性检验                       AB，ME，MF，M10，M11，M11F，VN，VNE
键盘控制                          ER，FE，LC，RB，RZ
光标控制                          RL，RLTB

键盘控制码                         含义
ER                                    记录结束，等价于AUTO(RA)
FE                                    字段退出检验
LC                                    小写，等价于LOWER
RB                                    右对齐，空格填充；等价于AUTO(RAB)
RZ                                    右对齐，零填充；等价于AUTO(RAZ)....

　　周五的时候，后知后觉地发现原来之前从fckeditor.com订阅的RSS说的是ckeditor3.0b，而不是我看成的ckfinder3.0，当时还在想ckfinder3.0早过了beta了，原来是看错了啊。

　　下完回来简单试了一下，改动的相当大，基本上绝大部分的编辑功能，都做成了plugin的方式，这样，想使用什么功能就加载哪些plugin，不用像fckeditor那么臃肿，大大加快了在浏览器的加载速度，并且cache的方式也明显改善了，基本上fckeditor被人声讨的各个缺点都得到了很大的改观。虽然还在BETA版，不管了，我从来都是FCK系列的FANS，后台就不改了，前台直接改成ckeditor，其实后台不管是因为CKEDITOR现在还只支持前台，后台涉及到文件上传那儿，还没做好和CKFINDER的结合，并且很多功能在beta版里没发布，只有去下载nightly版才有。

　　而Trackback也加上了，一来可以在本站发布BLOG的时候，选择性的发送TrackPing，另一方面，其它博引用本站的时候也可以向本站发送TrackPing，本站可以当做Comment来保存。其实，也是很多博客都有的一个基本功能，只是一直懒于实现，包括之前的asp版本的时候。这个功能实现之后，N3C再在计划内的功能的话，就只有一个了，就是Calendar了，这个的实现想法，还是想和之前的asp版的一样，使用AJAX调用，然后年月的切换也可以异步实现，哪天兴致来了再说吧。

　　我承认，我还是比较懒的，嘿嘿。

<%'---------------读access库中的表名-------------------------
SET  Conn=Server.CreateObject("ADODB.Connection")
Conn.Open  "Driver={Microsoft　Access　Driver  (*.mdb)};DBQ="&　Server.MapPath("库名称")
Set  rstSchema = Conn.OpenSchema(20)
　　
Do　Until  rstSchema.EOF
 Response.Write　"Table　name:"&  rstSchema(2)&　"<　br>　"&  "Table　type:"&　rstSchema(3)&　"<  br>　<　br>　"
 rstSchema.MoveNext
Loop
%>
　　<%'---------------读sql  server库中的表名-------------------------
SET  Conn=Server.CreateObject("ADODB.Connection")
Conn.Open  "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;PWD=密码;"
Set  rstSchema=Conn.OpenSchema(20)
　　
Do　Until  rstSchema.EOF
 Response.Write　"Table　name:"&  rstSchema(2)&　"<　br>　"&  "Table　type:"&　rstSchema(3)&　"<  br>　<　br>　"
 rstSchema.MoveNext
Loop
%>　

　　<%'---------------读oracle库中的表名-------------------------
SET  Conn=Server.CreateObject("ADODB.Connection")
Conn.Open  "Provider=MSDAORA.1;Password=密码;User　ID=用户名;Data  Source=数据源名称"
Set  rstSchema=Conn.OpenSchema(20)
　　
Do　Until  rstSchema.EOF
 Response.Write　"Table　name:"&  rstSchema(2)&　"<　br>　"&  "Table　type:"&　rstSchema(3)&　"<  br>　<　br>　"
 rstSchema.MoveNext
Loop

'Response.Write("所在数据库名:" & rs(0) & "
")
'Response.Write("所有者:" & rs(1) & "
")
'Response.Write("表 名:" & rs(2) & "
")
'Response.Write("表的类型:" & rs(3) & "
")
%>