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