表格的折行处理.
　　
　　＜table style="TABLE-LAYOUT:fixed" width="200" border="0" cellspacing="0" cellpadding="7" bgcolor="#f7f7f7"＞
　　
　　＜tr＞
　　
　　＜td style="LEFT:0px;WIDTH:100%;WORD-WRAP:break-word"＞
　　
　　dffadfdaqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqsfdffad
　　
　　fdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfd
　　
　　ffadfdasfdffadfdasfdffadfdasfdffadfdasf
　　
　　＜/td＞
　　
　　＜/tr＞
　　
　　＜/table＞
　　
　　此处主要是用css样式进行控制在＜table＞标签中有个style="TABLE-LAYOUT:fixed",其说明如下
　　
　　语法：
　　
　　table-layout:auto|fixed
　　
　　参数：
　　
　　auto:默认的自动算法。布局将基于各单元格的内容。表格在每一单元格读取计算之后才会显示出来。速度很慢
　　
　　fixed:固定布局的算法。在这算法中，水平布局是仅仅基于表格的宽度，表格边框的宽度，单元格间距，列的宽度，而和表格内容无关,此时在＜td＞标签中如果没有WORD-WRAP:break-word样式,表格中的内容将只能显示一部份,具体看表格的宽度了.word-wrap说明如下:
　　
　　语法：
　　
　　word-wrap:normal|break-word
　　
　　参数：
　　
　　normal:允许内容顶开指定的容器边界
　　
　　break-word:内容将在边界内换行。如果需要，词内换行（word-break）也会发生
　　
　　VBSCRIPT标记索引
　　
　　基本运算
　　
　　+数字加法及字符串连接
　　
　　-数字减法
　　
　　*数字乘法
　　
　　/数字除法
　　
　　Mod求余数
　　
　　求商数
　　
　　&字符串连接
　　
　　^次方
　　
　　=相等
　　
　　＜＞不相等
　　
　　＞=大于或等于
　　
　　＞大于
　　
　　＜=小于或等于
　　
　　＜小于
　　
　　Not非
　　
　　And且
　　
　　Or或
　　
　　Xor异或
　　
　　循环及决策
　　
　　if....then若...则...
　　
　　if...then...else若...则...非
　　
　　else if...非若
　　
　　select case...群组选择条件
　　
　　end select
　　
　　for...next计数循环
　　
　　while...wend条件循环(一)
　　
　　do while...loop条件循环(二)
　　
　　do...loop while条件循环(三)
　　
　　do until...loop条件循环(四)
　　
　　do...loop until条件循环(五)
　　
　　数学函数
　　
　　Abs绝对值
　　
　　Sgn正负号
　　
　　Hex转换成十六进制
　　
　　Oct转换成八进制
　　
　　Sqr平方根
　　
　　Int取整数
　　
　　Fix取整数
　　
　　Round取整数
　　
　　Log以e为底的对数
　　
　　Sin正弦函数
　　
　　Cos余弦函数
　　
　　Tan正切函数
　　
　　字符串处理函数
　　
　　Len字符串长度
　　
　　Mid取部分字符串
　　
　　Left从字符串开头取部分字符串
　　
　　Right从字符串结尾取部分字符串
　　
　　Lcase转换成小写
　　
　　Ucase转换成大写
　　
　　Trim清除字符串开头及结尾的空格符
　　
　　Ltrim清除字符串开头空格符
　　
　　Rtrim清除字符串结尾空格符
　　
　　Replace替换字符串部分字符
　　
　　Instr判断是否包含于另一个字符串(从起始搜寻)
　　
　　InstrRev判断是否包含于另一个字符串(从结尾搜寻)
　　
　　Space任意字符数的空格符
　　
　　String任意字符数的任一字符
　　
　　StrReverse反转字符串
　　
　　Split以某字符分割字符串
　　
　　数据类型转换函数
　　
　　Cint转换成整形
　　
　　Cstr转换成字符串
　　
　　Clng转换成常整数
　　
　　Cbool转换成布尔函数
　　
　　Cdate转换成日期函数
　　
　　CSng转换成单精度
　　
　　CDbl转换成双精度
　　
　　日期时间函数
　　
　　Date现在日期
　　
　　Time现在时间
　　
　　NOw现在日期时间
　　
　　DateAdd增加日期
　　
　　DateDiff两日期差
　　
　　DateSerial日期设定
　　
　　DateValue日期设定
　　
　　Year现在年份
　　
　　Month现在月份
　　
　　Day现在天
　　
　　Hour现在时刻
　　
　　Minute现在分钟
　　
　　Second现在秒钟
　　
　　Timer午夜距现在秒数
　　
　　TimeSerial时间设定
　　
　　TimeValue时间所属部分
　　
　　WeekDay星期名称
　　
　　MonthName月份名称
　　
　　其它函数
　　
　　Array产生数组
　　
　　Asc字符ASCII码
　　
　　Chr ASCII码字符
　　
　　Filter过滤数组
　　
　　InputBox输入窗口
　　
　　Join合并数组中的元素
　　
　　MsgBox信息窗口
　　
　　Lbound数组下界
　　
　　Ubound数组上界
　　
　　指令
　　
　　Const设定常数
　　
　　Dim定义变量或者数组
　　
　　Erase清除数组
　　
　　ReDim重新声明数组
　　
　　Randomize起始随机数
　　
　　Rnd取得随机数
　　
　　ASP对象
　　
　　Session对象
　　
　　IsEmpty测试Session变量是否存在
　　
　　TimeOut设定Session变量生存周期
　　
　　Abandon强制清除Session变量
　　
　　Application对象
　　
　　IsEmpty测试Application变量是否存在
　　
　　Lock锁定Application变量
　　
　　Unlock解除Lock指令的锁定
　　
　　Cookies对象
　　
　　Expires设定Cookies变量的生存周期
　　
　　Connection对象
　　
　　Open打开与数据库的连接
　　
　　Execute打开Recordset对象
　　
　　Close关闭Connection对象
　　
　　Recordset对象
　　
　　movefirst将记录指针移至第一条
　　
　　movelast将记录指针移至最后一条
　　
　　movenext将记录指针移至下一条
　　
　　moveprevious将记录指针移至上一条
　　
　　bof测试是否为recordset的起始
　　
　　eof测试是否为recordset的结束
　　
　　open打开Recoreset对象
　　
　　close关闭recordset对象
　　
　　fields读取数据的子对象
　　
　　fileds.count字段个数
　　
　　pagesize每页记录条数
　　
　　absolutepage设定为某页
　　
　　pagecount总页数
　　
　　Absoluteposition直接跳至某条记录
　　
　　MicrosoftVBscript运行时错误列表（10进制表示）
　　
　　error#5无效的过程调用或参数
　　
　　error#5无效的过程调用或参数
　　
　　error#6溢出
　　
　　error#7内存不够
　　
　　error#9下标越界
　　
　　error#10该数组为定长的或临时被锁定
　　
　　error#11被零除
　　
　　error#13类型不匹配
　　
　　error#14字符串空间不够
　　
　　error#17不能执行所需的操作
　　
　　error#28堆栈溢出
　　
　　error#35未定义过程或函数
　　
　　error#48加载DLL时出错
　　
　　error#51内部错误
　　
　　error#52错误的文件名或号码
　　
　　error#53文件未找到
　　
　　error#54错误的文件模式
　　
　　error#55文件已经打开
　　
　　error#57设备I/O错误
　　
　　error#58文件已存在
　　
　　error#61磁盘已满
　　
　　error#62输入超出了文件尾
　　
　　error#67文件过多
　　
　　error#68设备不可用
　　
　　error#70没有权限
　　
　　error#71磁盘没有准备好
　　
　　error#74重命名时不能带有其他驱动器符号
　　
　　error#75路径/文件访问错误
　　
　　error#76路径未找到
　　
　　error#91对象变量未设置
　　
　　error#92For循环未初始化
　　
　　error#94无效使用Null
　　
　　error#322不能创建必要的临时文件
　　
　　error#424缺少对象
　　
　　error#429ActiveX部件不能创建对象
　　
　　error#430类不支持Automation操作
　　
　　error#432Automation操作中文件名或类名未找到
　　
　　error#438对象不支持此属性或方法
　　
　　error#440Automation操作错误
　　
　　error#445对象不支持此操作
　　
　　error#446对象不支持已命名参数
　　
　　error#447对象不支持当前区域设置选项
　　
　　error#448未找到已命名参数
　　
　　error#449参数是必选项
　　
　　error#450错误的参数个数或无效的参数属性值
　　
　　error#451对象不是一个集合
　　
　　error#453未找到指定的DLL函数
　　
　　error#455代码资源锁定错误
　　
　　error#457此键已与该集合的一个元素关联
　　
　　error#458变量使用了一个VBScript中不支持的Automation类型
　　
　　error#462远程服务器不存在或不可用
　　
　　error#481无效图片
　　
　　error#500变量未定义
　　
　　error#501非法赋值
　　
　　error#502对象不能安全用Script编程
　　
　　error#503对象不能安全初始化
　　
　　error#504对象不能安全创建
　　
　　error#505无效的或无资格的引用
　　
　　error#506类没有被定义
　　
　　error#507出现一个意外错误
　　
　　error#1001内存不够
　　
　　error#1002语法错误
　　
　　error#1003缺少':'
　　
　　error#1005缺少'('
　　
　　error#1006缺少')'
　　
　　error#1007缺少']'
　　
　　error#1010缺少标识符
　　
　　error#1011缺少'='
　　
　　error#1012缺少'If'
　　
　　error#1013缺少'To'
　　
　　error#1014缺少'End'
　　
　　error#1015缺少'Function'
　　
　　error#1016缺少'Sub'
　　
　　error#1017缺少'Then'
　　
　　error#1018缺少'Wend'
　　
　　error#1019缺少'Loop'
　　
　　error#1020缺少'Next'
　　
　　error#1021缺少'Case'
　　
　　error#1022缺少'Select'
　　
　　error#1023缺少表达式
　　
　　error#1024缺少语句
　　
　　error#1025语句未结束
　　
　　error#1026缺少整型常数
　　
　　error#1027缺少'While'或'Until'
　　
　　error#1028缺少'While'和'Until'或语句未结束
　　
　　error#1029缺少'With'
　　
　　error#1030标识符过长
　　
　　error#1031无效数字
　　
　　error#1032无效字符
　　
　　error#1033未结束的字符串常量
　　
　　error#1034注释未结束
　　
　　error#1037无效使用'Me'关键字
　　
　　error#1038'loop'语句缺少'do'
　　
　　error#1039无效的'exit'语句
　　
　　error#1040循环控制变量'for'无效
　　
　　error#1041名称重定义
　　
　　error#1042必须是行中的第一个语句
　　
　　error#1043不能为non-ByVal参数赋值
　　
　　error#1044调用子程序时不能使用括号
　　
　　error#1045缺少文字常数
　　
　　error#1046缺少'In'
　　
　　error#1047缺少'Class'
　　
　　error#1048必须在一个类的内部定义
　　
　　error#1049在属性声明中缺少Let,Set或Get
　　
　　error#1050缺少'Property'
　　
　　error#1051在所有属性的规范中，变量的数目必须一致
　　
　　error#1052在一个类中不允许有多个缺省的属性/方法
　　
　　error#1053类的初始化或终止程序没有变量
　　
　　error#1054属性的set或let必须至少有一个变量
　　
　　error#1055错误的'Next'
　　
　　error#1056'Default'只能在'Property','Function'或'Sub'中指定
　　
　　error#1057指定'Default'时必须同时指定'Public'
　　
　　error#1058只能在Property Get中指定'Default'
　　
　　error#4096Microsoft VBScript编译器错误
　　
　　error#4097Microsoft VBScript运行时错误
　　
　　error#5016缺少正则表达式对象
　　
　　error#5017正则表达式语法错误
　　
　　error#5018错误的数量词
　　
　　error#5019正则表达式中缺少']'
　　
　　error#5020正则表达式中缺少')'
　　
　　error#5021字符集越界
　　
　　树形菜单:
　　
　　＜SCRIPT language="JavaScript"＞
　　
　　var lastObj
　　
　　function expandIt(obj)
　　
　　{
　　
　　if(lastObj!=null)
　　
　　{
　　
　　if(obj==lastObj)
　　
　　{
　　
　　if(obj.style.display=="none")
　　
　　{
　　
　　obj.style.display="";
　　
　　}
　　
　　else
　　
　　{
　　
　　obj.style.display="none"
　　
　　}
　　
　　}
　　
　　else
　　
　　{
　　
　　lastObj.style.display="none";
　　
　　obj.style.display="";
　　
　　}
　　
　　}
　　
　　else
　　
　　{
　　
　　obj.style.display="";
　　
　　}
　　
　　lastObj=obj
　　
　　}
　　
　　＜/SCRIPT＞
　　
　　＜table width="100%" border="0" cellspacing="0" cellpadding="0"＞
　　
　　＜%
　　
　　dim id
　　
　　id=request("id")
　　
　　dim strsql,rs
　　
　　strsql="select*from p_type where slanguage=1and typelevel=1order by typename"
　　
　　set rs=fgetrslist(strsql)
　　
　　do while not rs.eof
　　
　　%＞
　　
　　＜tr＞
　　
　　＜td height="25" class="LEFTLINKS"＞＜img width="30" height="0" align="absmiddle"/＞＜b＞＜%if rs("isleaf")=0then%＞＜a href="#" onClick="javascript:expandIt(kb＜%=rs("id")%＞);return false"＞＜%else%＞＜a href="＜%=request.ServerVariables("SCRIPT_NAME")%＞?idtree=＜%=rs("idtree")%＞"＞＜%end if%＞＜%=server.HTMLEncode(right((rs("typename")&""),len(rs("typename")&"")-2))%＞＜/a＞＜/b＞＜/td＞
　　
　　＜/tr＞
　　
　　＜%
　　
　　IF clng(id)=clng(rs("id"))then
　　
　　%＞
　　
　　＜tr id="kb＜%=rs("id")%＞"＞
　　
　　＜%
　　
　　else
　　
　　%＞
　　
　　＜tr id="kb＜%=rs("id")%＞" style="display:none;"＞
　　
　　＜%
　　
　　end if
　　
　　%＞
　　
　　＜td＞
　　
　　＜table＞
　　
　　＜%
　　
　　dim rs1
　　
　　strsql="select*from p_type where parentid="&rs("id")&" and slanguage=1order by typename"
　　
　　set rs1=fgetrslist(strsql)
　　
　　do while not rs1.eof
　　
　　%＞
　　
　　＜tr＞＜td height="20" class="LEFTLINKS"＞
　　
　　＜img width="40" height="0" align="absmiddle"/＞＜a href="＜%=request.ServerVariables("SCRIPT_NAME")%＞?idtree=＜%=rs1("idtree")%＞&id=＜%=rs("id")%＞"＞＜%=server.HTMLEncode(right((rs1("typename")&""),len(rs1("typename")&"")-2))%＞＜/a＞＜/td＞＜/tr＞
　　
　　＜%
　　
　　rs1.movenext
　　
　　loop
　　
　　rs1.close
　　
　　set rs1=nothing
　　
　　%＞
　　
　　＜/table＞
　　
　　＜/td＞
　　
　　＜/tr＞
　　
　　＜%
　　
　　rs.movenext
　　
　　loop
　　
　　rs.close
　　
　　set rs=nothing
　　
　　%＞
　　
　　＜/table＞