表格的折行處理.

　?。紅able style="TABLE-LAYOUT: fixed" width="200" border="0" cellspacing="0" cellpadding="7" bgcolor="#f7f7f7"＞

　?。紅r＞

　　＜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 # 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 字符集越界

　　樹形菜單:

　?。糞CRIPT 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＞

　?。紅able 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

　　%＞

　?。紅r＞

　　＜td height="25" class="LEFTLINKS"＞＜img width="30" height="0" align="absmiddle" /＞＜b＞＜%if rs("isleaf")=0 then%＞＜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

　　%＞

　?。紅r id="kb＜%=rs("id")%＞"＞

　　＜%

　　else

　　%＞

　?。紅r id="kb＜%=rs("id")%＞" style="display:none;"＞

　　＜%

　　end if

　　%＞

　?。紅d＞

　　＜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"＞

　?。糹mg 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＞