表格的折行处理.

　　＜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"＞上海男子医院＜/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 # 92 For 循环未初始化

　　error # 94 无效使用 Null

　　error # 322 不能创建必要的临时文件

　　error # 424 缺少对象

　　error # 429 ActiveX 部件不能创建对象

　　error # 430 类不支持 Automation 操作

　　error # 432 Automation 操作中文件名或类名未找到

　　error # 438 对象不支持此属性或方法

　　error # 440 Automation 操作错误

　　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 # 4096 Microsoft VBScript 编译器错误

　　error # 4097 Microsoft 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=1 and typelevel=1 order by typename"

　　set rs=fgetrslist(strsql)

　　do while not rs.eof

　　%＞

　　＜tr＞

　　＜td height="25" class="LEFTLINKS"＞

　　＜/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=1 order by typename"

　　set rs1=fgetrslist(strsql)

　　do while not rs1.eof

　　%＞

　　＜tr＞＜td height="20" class="LEFTLINKS"＞

　　＜%

　　rs1.movenext

　　loop

　　rs1.close

　　set rs1=nothing

　　%＞

　　＜/table＞

　　＜/td＞

　　＜/tr＞

　　＜%

　　rs.movenext

　　loop

　　rs.close

　　set rs=nothing

　　%＞

　　＜/table＞

asp编程经验谈:Asp及Web开发中的常见问题