Asp及Web開發中的常見問題.
表格的折行處理.
<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樣式進行控制在<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"><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>