表格的折行處理.

<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">
dffadfdaqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqsfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasf
</td>
</tr>
</table>

此處主要是用css樣式進(jìn)行控制在<table>標(biāo)簽中有個(gè)style="TABLE-LAYOUT: fixed",其說(shuō)明如下

語(yǔ)法：

table-layout : auto fixed

參數(shù)：

auto : 默認(rèn)的自動(dòng)算法。布局將基于各單元格的內(nèi)容。表格在每一單元格讀取計(jì)算之后才會(huì)顯示出來(lái)。速度很慢
fixed : 固定布局的算法。在這算法中，水平布局是僅僅基于表格的寬度，表格邊框的寬度，單元格間距，列的寬度，而和表格內(nèi)容無(wú)關(guān),此時(shí)在<td>標(biāo)簽中如果沒(méi)有WORD-WRAP: break-word樣式,表格中的內(nèi)容將只能顯示一部份,具體看表格的寬度了.word-wrap說(shuō)明如下:

語(yǔ)法：

word-wrap : normal break-word

參數(shù)：

normal : 允許內(nèi)容頂開(kāi)指定的容器邊界
break-word : 內(nèi)容將在邊界內(nèi)換行。如果需要，詞內(nèi)換行（word-break）也會(huì)發(fā)生

VBSCRIPT標(biāo)記索引

基本運(yùn)算
+ 數(shù)字加法及字符串連接
- 數(shù)字減法
* 數(shù)字乘法
/ 數(shù)字除法
Mod 求余數(shù)
\ 求商數(shù)
& 字符串連接
^ 次方
= 相等
<> 不相等
>= 大于或等于
> 大于
<= 小于或等于
< 小于
Not 非
And 且
Or 或
Xor 異或

循環(huán)及決策
if ....then 若...則...
if ...then...else 若...則...非
else if... 非若
select case... 群組選擇條件
end select
for ... next 計(jì)數(shù)循環(huán)
while...wend 條件循環(huán)(一)
do while...loop 條件循環(huán)(二)
do...loop while 條件循環(huán)(三)
do until...loop 條件循環(huán)(四)
do...loop until 條件循環(huán)(五)

數(shù)學(xué)函數(shù)
Abs 絕對(duì)值
Sgn 正負(fù)號(hào)
Hex 轉(zhuǎn)換成十六進(jìn)制
Oct 轉(zhuǎn)換成八進(jìn)制
Sqr 平方根
Int 取整數(shù)
Fix 取整數(shù)
Round 取整數(shù)
Log 以e為底的對(duì)數(shù)
Sin 正弦函數(shù)
Cos 余弦函數(shù)
Tan 正切函數(shù)

字符串處理函數(shù)
Len 字符串長(zhǎng)度
Mid 取部分字符串
Left 從字符串開(kāi)頭取部分字符串
Right 從字符串結(jié)尾取部分字符串
Lcase 轉(zhuǎn)換成小寫(xiě)
Ucase 轉(zhuǎn)換成大寫(xiě)
Trim 清除字符串開(kāi)頭及結(jié)尾的空格符
Ltrim 清除字符串開(kāi)頭空格符
Rtrim 清除字符串結(jié)尾空格符
Replace 替換字符串部分字符
Instr 判斷是否包含于另一個(gè)字符串(從起始搜尋)
InstrRev 判斷是否包含于另一個(gè)字符串(從結(jié)尾搜尋)
Space 任意字符數(shù)的空格符
String 任意字符數(shù)的任一字符
StrReverse 反轉(zhuǎn)字符串
Split 以某字符分割字符串

數(shù)據(jù)類型轉(zhuǎn)換函數(shù)
Cint 轉(zhuǎn)換成整形
Cstr 轉(zhuǎn)換成字符串
Clng 轉(zhuǎn)換成常整數(shù)
Cbool 轉(zhuǎn)換成布爾函數(shù)
Cdate 轉(zhuǎn)換成日期函數(shù)
CSng 轉(zhuǎn)換成單精度
CDbl 轉(zhuǎn)換成雙精度

日期時(shí)間函數(shù)
Date 現(xiàn)在日期
Time 現(xiàn)在時(shí)間
NOw 現(xiàn)在日期時(shí)間
DateAdd 增加日期
DateDiff 兩日期差
DateSerial 日期設(shè)定
DateValue 日期設(shè)定
Year 現(xiàn)在年份
Month 現(xiàn)在月份
Day 現(xiàn)在天
Hour 現(xiàn)在時(shí)刻
Minute 現(xiàn)在分鐘
Second 現(xiàn)在秒鐘
Timer 午夜距現(xiàn)在秒數(shù)
TimeSerial 時(shí)間設(shè)定
TimeValue 時(shí)間所屬部分
WeekDay 星期名稱
MonthName 月份名稱

其它函數(shù)
Array 產(chǎn)生數(shù)組
Asc 字符ASCII碼
Chr ASCII碼字符
Filter 過(guò)濾數(shù)組
InputBox 輸入窗口
Join 合并數(shù)組中的元素
MsgBox 信息窗口
Lbound 數(shù)組下界
Ubound 數(shù)組上界

指令
Const 設(shè)定常數(shù)
Dim 定義變量或者數(shù)組
Erase 清除數(shù)組
ReDim 重新聲明數(shù)組
Randomize 起始隨機(jī)數(shù)
Rnd 取得隨機(jī)數(shù)

ASP對(duì)象

Session對(duì)象
IsEmpty 測(cè)試Session變量是否存在
TimeOut 設(shè)定Session變量生存周期
Abandon 強(qiáng)制清除Session變量

Application對(duì)象
IsEmpty 測(cè)試Application變量是否存在
Lock 鎖定Application變量
Unlock 解除Lock指令的鎖定

Cookies對(duì)象
Expires 設(shè)定Cookies變量的生存周期

Connection對(duì)象
Open 打開(kāi)與數(shù)據(jù)庫(kù)的連接
Execute 打開(kāi)Recordset對(duì)象
Close 關(guān)閉Connection對(duì)象

Recordset對(duì)象
movefirst 將記錄指針移至第一條
movelast 將記錄指針移至最后一條
movenext 將記錄指針移至下一條
moveprevious 將記錄指針移至上一條
bof 測(cè)試是否為recordset的起始
eof 測(cè)試是否為recordset的結(jié)束
open 打開(kāi)Recoreset對(duì)象
close 關(guān)閉recordset對(duì)象
fields 讀取數(shù)據(jù)的子對(duì)象
fileds.count 字段個(gè)數(shù)
pagesize 每頁(yè)記錄條數(shù)
absolutepage 設(shè)定為某頁(yè)
pagecount 總頁(yè)數(shù)
Absoluteposition 直接跳至某條記錄
MicrosoftVBscript運(yùn)行時(shí)錯(cuò)誤列表（10進(jìn)制表示）

error # 5 無(wú)效的過(guò)程調(diào)用或參數(shù)
error # 5 無(wú)效的過(guò)程調(diào)用或參數(shù)
error # 6 溢出
error # 7 內(nèi)存不夠
error # 9 下標(biāo)越界
error # 10 該數(shù)組為定長(zhǎng)的或臨時(shí)被鎖定
error # 11 被零除
error # 13 類型不匹配
error # 14 字符串空間不夠
error # 17 不能執(zhí)行所需的操作
error # 28 堆棧溢出
error # 35 未定義過(guò)程或函數(shù)
error # 48 加載 DLL 時(shí)出錯(cuò)
error # 51 內(nèi)部錯(cuò)誤
error # 52 錯(cuò)誤的文件名或號(hào)碼
error # 53 文件未找到
error # 54 錯(cuò)誤的文件模式
error # 55 文件已經(jīng)打開(kāi)
error # 57 設(shè)備 I/O 錯(cuò)誤
error # 58 文件已存在
error # 61 磁盤(pán)已滿
error # 62 輸入超出了文件尾
error # 67 文件過(guò)多
error # 68 設(shè)備不可用
error # 70 沒(méi)有權(quán)限
error # 71 磁盤(pán)沒(méi)有準(zhǔn)備好
error # 74 重命名時(shí)不能帶有其他驅(qū)動(dòng)器符號(hào)
error # 75 路徑/文件訪問(wèn)錯(cuò)誤
error # 76 路徑未找到
error # 91 對(duì)象變量未設(shè)置
error # 92 For 循環(huán)未初始化
error # 94 無(wú)效使用 Null
error # 322 不能創(chuàng)建必要的臨時(shí)文件
error # 424 缺少對(duì)象
error # 429 ActiveX 部件不能創(chuàng)建對(duì)象
error # 430 類不支持 Automation 操作
error # 432 Automation 操作中文件名或類名未找到
error # 438 對(duì)象不支持此屬性或方法
error # 440 Automation 操作錯(cuò)誤
error # 445 對(duì)象不支持此操作
error # 446 對(duì)象不支持已命名參數(shù)
error # 447 對(duì)象不支持當(dāng)前區(qū)域設(shè)置選項(xiàng)
error # 448 未找到已命名參數(shù)
error # 449 參數(shù)是必選項(xiàng)
error # 450 錯(cuò)誤的參數(shù)個(gè)數(shù)或無(wú)效的參數(shù)屬性值
error # 451 對(duì)象不是一個(gè)集合
error # 453 未找到指定的 DLL 函數(shù)
error # 455 代碼資源鎖定錯(cuò)誤
error # 457 此鍵已與該集合的一個(gè)元素關(guān)聯(lián)
error # 458 變量使用了一個(gè) VBScript 中不支持的 Automation 類型
error # 462 遠(yuǎn)程服務(wù)器不存在或不可用
error # 481 無(wú)效圖片
error # 500 變量未定義
error # 501 非法賦值
error # 502 對(duì)象不能安全用 Script 編程
error # 503 對(duì)象不能安全初始化
error # 504 對(duì)象不能安全創(chuàng)建
error # 505 無(wú)效的或無(wú)資格的引用
error # 506 類沒(méi)有被定義
error # 507 出現(xiàn)一個(gè)意外錯(cuò)誤
error # 1001 內(nèi)存不夠
error # 1002 語(yǔ)法錯(cuò)誤
error # 1003 缺少 ':'
error # 1005 缺少 '('
error # 1006 缺少 ')'
error # 1007 缺少 ']'
error # 1010 缺少標(biāo)識(shí)符
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 缺少表達(dá)式
error # 1024 缺少語(yǔ)句
error # 1025 語(yǔ)句未結(jié)束
error # 1026 缺少整型常數(shù)
error # 1027 缺少 'While' 或 'Until'
error # 1028 缺少 'While' 和 'Until'或語(yǔ)句未結(jié)束
error # 1029 缺少 'With'
error # 1030 標(biāo)識(shí)符過(guò)長(zhǎng)
error # 1031 無(wú)效數(shù)字
error # 1032 無(wú)效字符
error # 1033 未結(jié)束的字符串常量
error # 1034 注釋未結(jié)束
error # 1037 無(wú)效使用 'Me' 關(guān)鍵字
error # 1038 'loop' 語(yǔ)句缺少 'do'
error # 1039 無(wú)效的 'exit' 語(yǔ)句
error # 1040 循環(huán)控制變量 'for' 無(wú)效
error # 1041 名稱重定義
error # 1042 必須是行中的第一個(gè)語(yǔ)句
error # 1043 不能為 non-ByVal 參數(shù)賦值
error # 1044 調(diào)用子程序時(shí)不能使用括號(hào)
error # 1045 缺少文字常數(shù)
error # 1046 缺少 'In'
error # 1047 缺少 'Class'
error # 1048 必須在一個(gè)類的內(nèi)部定義
error # 1049 在屬性聲明中缺少 Let , Set 或 Get
error # 1050 缺少 'Property'
error # 1051 在所有屬性的規(guī)范中，變量的數(shù)目必須一致
error # 1052 在一個(gè)類中不允許有多個(gè)缺省的屬性/方法
error # 1053 類的初始化或終止程序沒(méi)有變量
error # 1054 屬性的 set 或 let 必須至少有一個(gè)變量
error # 1055 錯(cuò)誤的 'Next'
error # 1056 'Default' 只能在 'Property' , 'Function' 或 'Sub' 中指定
error # 1057 指定 'Default' 時(shí)必須同時(shí)指定 'Public'
error # 1058 只能在 Property Get 中指定 'Default'
error # 4096 Microsoft VBScript 編譯器錯(cuò)誤
error # 4097 Microsoft VBScript 運(yùn)行時(shí)錯(cuò)誤
error # 5016 缺少正則表達(dá)式對(duì)象
error # 5017 正則表達(dá)式語(yǔ)法錯(cuò)誤
error # 5018 錯(cuò)誤的數(shù)量詞
error # 5019 正則表達(dá)式中缺少 ']'
error # 5020 正則表達(dá)式中缺少 ')'
error # 5021 字符集越界

樹(shù)形菜單:
<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"><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

%>
<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">
<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>