编辑“Asp及Web开发中的常见问题”

表格的折行处理.<br>


＜table style="TABLE-LAYOUT: fixed" width="200" border="0" cellspacing="0" cellpadding="7" bgcolor="#f7f7f7"＞ <br>
＜tr＞ 
＜td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"＞ <br>
dffadfdaqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqsfdffadfdasfdffadfdasfdffadfdasfdffadfdasfdffadfdasfd<br>
ffadfdasfdffadfdasfdffadfdasfdffadfdasf <br>
＜/td＞ <br><br>
＜/tr＞ <br>
＜/table＞ <br>


此处主要是用[[css]]样式进行控制在＜table＞标签中有个style="TABLE-LAYOUT: fixed",其说明如下<br>

语法： <br>

table-layout : auto | fixed <br>

参数： <br>

auto : 　默认的自动算法。布局将基于各单元格的内容。表格在每一单元格读取计算之后才会显示出来。速度很慢 
<br>fixed : 　固定布局的算法。在这算法中，水平布局是仅仅基于表格的宽度，表格边框的宽度，单元格间距，列的宽度，而和表格内容无关,此时在＜td＞标签中如果没有WORD-WRAP: break-word样式,表格中的内容将只能显示一部份,具体看表格的宽度了.word-wrap说明如下:
<br>
语法： <br>

word-wrap : normal | break-word <br>

参数： <br>
normal : 　允许内容顶开指定的容器边界 <br>
break-word : 　内容将在边界内换行。如果需要，词内换行（word-break）也会发生 <br>

VBSCRIPT标记索引 <br>

基本运算 <br>
+ 数字加法及字符串连接 <br>
- 数字减法 <br>
<br>* 数字乘法 
<br>/ 数字除法 <br>
Mod 求余数 <br>
\ 求商数 <br>
& 字符串连接 <br>
^ 次方 <br>
= 相等 <br>
＜＞ 不相等 <br>
＞= 大于或等于 <br>
＞ 大于 <br>
＜= 小于或等于 <br>
＜ 小于 <br>
Not 非 <br>
And 且 <br>
Or 或 <br>
Xor 异或 <br>

循环及决策 <br>
if ....then 若...则... <br>
if ...then...else 若...则...非 <br>
else if... 非若 <br>
select case... 群组选择条件 <br>
end select <br>
for ... next 计数循环 <br>
while...wend 条件循环(一) <br>
do while...loop 条件循环(二) <br>
do...loop while 条件循环(三) <br>
do until...loop 条件循环(四) <br>
do...loop until 条件循环(五) <br>

数学函数 
<br>Abs 绝对值 <br>
Sgn 正负号 <br>
Hex 转换成十六进制 <br>
Oct 转换成八进制 <br>
Sqr 平方根 <br>
Int 取整数 <br>
Fix 取整数 <br>
Round 取整数 <br>
Log 以e为底的对数 <br>
Sin 正弦函数 <br>
Cos 余弦函数 
<br>Tan 正切函数 <br>

字符串处理函数 <br>
Len 字符串长度 <br>
Mid 取部分字符串 <br>
Left 从字符串开头取部分字符串 <br>
Right 从字符串结尾取部分字符串 <br>
Lcase 转换成小写 
<br>Ucase 转换成大写 <br>
Trim 清除字符串开头及结尾的空格符 <br>
Ltrim 清除字符串开头空格符 <br>
Rtrim 清除字符串结尾空格符 
<br>Replace 替换字符串部分字符 <br>
Instr 判断是否包含于另一个字符串(从起始搜寻) <br>
InstrRev 判断是否包含于另一个字符串(从结尾搜寻) <br>
Space 任意字符数的空格符 <br>
String 任意字符数的任一字符 <br>
StrReverse 反转字符串 <br>
Split 以某字符分割字符串 <br>

数据类型转换函数 <br>
Cint 转换成整形 <br>
Cstr 转换成字符串 <br>
<br>Clng 转换成常整数 <br>
Cbool 转换成布尔函数 <br>
Cdate 转换成日期函数 <br>
CSng 转换成单精度 <br>
CDbl 转换成双精度 <br>

日期时间函数 <br>
Date 现在日期 <br>
Time 现在时间 <br>
NOw 现在日期时间 <br>
DateAdd 增加日期 <br>
DateDiff 两日期差 <br>
DateSerial 日期设定 <br>
DateValue 日期设定 <br>
Year 现在年份 <br>
Month 现在月份 <br>
Day 现在天 <br>
Hour 现在时刻 <br>
Minute 现在分钟 <br>
Second 现在秒钟 <br>
Timer 午夜距现在秒数 <br>
TimeSerial 时间设定 <br>
TimeValue 时间所属部分 
<br>WeekDay 星期名称 <br>
MonthName 月份名称 
<br>
其它函数 
<br>Array 产生数组 
<br>Asc 字符ASCII码 
<br>Chr ASCII码字符 
<br>Filter 过滤数组 
<br>InputBox 输入窗口 <br>
Join 合并数组中的元素 <br>
MsgBox 信息窗口 <br>
Lbound 数组下界 <br>
Ubound 数组上界 <br>

指令 <br>
Const 设定常数 <br>
Dim 定义变量或者数组 <br>
Erase 清除数组 <br>
ReDim 重新声明数组 <br>
Randomize 起始随机数 <br>
Rnd 取得随机数 <br>

ASP对象 <br>

Session对象 <br>
IsEmpty 测试Session变量是否存在 <br>
TimeOut 设定Session变量生存周期 <br>
Abandon 强制清除Session变量 <br>

Application对象 <br>
IsEmpty 测试Application变量是否存在 <br>
Lock 锁定Application变量 <br>
Unlock 解除Lock指令的锁定 <br>

Cookies对象 <br>
Expires 设定Cookies变量的生存周期 <br>

Connection对象 <br>
Open 打开与数据库的连接 <br>
Execute 打开Recordset对象 
<br>Close 关闭Connection对象 <br>

Recordset对象 <br>
movefirst 将记录指针移至第一条 <br>
movelast 将记录指针移至最后一条 <br>
movenext 将记录指针移至下一条 <br>
moveprevious 将记录指针移至上一条 <br>
bof 测试是否为recordset的起始 <br>
eof 测试是否为recordset的结束 <br>
open 打开Recoreset对象 <br>
close 关闭recordset对象 <br>
fields 读取数据的子对象 <br>
fileds.count 字段个数 
<br>pagesize 每页记录条数 <br>
absolutepage 设定为某页 <br>
pagecount 总页数 <br>
Absoluteposition 直接跳至某条记录 
<br>MicrosoftVBscript运行时错误列表（10进制表示） <br>

error # 5 无效的过程调用或参数 <br>
error # 5 无效的过程调用或参数 <br>
error # 6 溢出 <br>
error # 7 内存不够 <br>
error # 9 下标越界 <br>
error # 10 该数组为定长的或临时被锁定 <br>
error # 11 被零除 <br>
error # 13 类型不匹配 
<br>error # 14 字符串空间不够 
<br>error # 17 不能执行所需的操作 <br>
error # 28 堆栈溢出 <br>
error # 35 未定义过程或函数 <br>
error # 48 加载 DLL 时出错 <br>
error # 51 内部错误 <br>
error # 52 错误的文件名或号码 <br>
error # 53 文件未找到 <br>
error # 54 错误的文件模式 <br>
error # 55 文件已经打开 <br>
error # 57 设备 I/O 错误 
<br>error # 58 文件已存在 <br>
error # 61 磁盘已满 <br>
error # 62 输入超出了文件尾 <br>
error # 67 文件过多 <br>
error # 68 设备不可用 <br>
error # 70 没有权限 <br>
error # 71 磁盘没有准备好 <br>
error # 74 重命名时不能带有其他驱动器符号 <br>
error # 75 路径/文件访问错误 <br>
error # 76 路径未找到 <br>
error # 91 对象变量未设置 <br>
error # 92 For 循环未初始化 <br>
error # 94 无效使用 Null <br>
error # 322 不能创建必要的临时文件 <br>
error # 424 缺少对象 <br>
error # 429 ActiveX 部件不能创建对象 
<br>error # 430 类不支持 Automation 操作 <br>
error # 432 Automation 操作中文件名或类名未找到 <br>
error # 438 对象不支持此属性或方法 <br>
error # 440 Automation 操作错误 
<br>error # 445 对象不支持此操作 <br>
error # 446 对象不支持已命名参数 <br>
error # 447 对象不支持当前区域设置选项 <br>
error # 448 未找到已命名参数 <br>
error # 449 参数是必选项 <br>
error # 450 错误的参数个数或无效的参数属性值 <br>
error # 451 对象不是一个集合 <br>
error # 453 未找到指定的 DLL 函数 <br>
error # 455 代码资源锁定错误 <br>
error # 457 此键已与该集合的一个元素关联 <br>
error # 458 变量使用了一个 VBScript 中不支持的 Automation 类型 
<br>error # 462 远程服务器不存在或不可用 <br>
error # 481 无效图片 <br>
error # 500 变量未定义 <br>
error # 501 非法赋值 <br>
error # 502 对象不能安全用 Script 编程 <br>
error # 503 对象不能安全初始化 <br>
error # 504 对象不能安全创建 <br>
error # 505 无效的或无资格的引用 
<br>error # 506 类没有被定义 <br>
error # 507 出现一个意外错误 <br>
error # 1001 内存不够 <br>
error # 1002 语法错误 
<br>error # 1003 缺少 ':' <br>
error # 1005 缺少 '(' <br>
error # 1006 缺少 ')' <br>
error # 1007 缺少 ']' <br>
error # 1010 缺少标识符 <br>
error # 1011 缺少 '=' <br>
error # 1012 缺少 'If' <br>
error # 1013 缺少 'To' <br>
error # 1014 缺少 'End' <br>
error # 1015 缺少 'Function' <br>
error # 1016 缺少 'Sub' <br>
error # 1017 缺少 'Then' <br>
error # 1018 缺少 'Wend' <br>
error # 1019 缺少 'Loop' <br>
error # 1020 缺少 'Next' <br>
error # 1021 缺少 'Case' <br>
error # 1022 缺少 'Select' <br>
error # 1023 缺少表达式 <br>
error # 1024 缺少语句 
<br>error # 1025 语句未结束 <br>
error # 1026 缺少整型常数 <br>
error # 1027 缺少 'While' 或 'Until' <br>
error # 1028 缺少 'While' 和 'Until'或语句未结束 <br>
error # 1029 缺少 'With' <br>
error # 1030 标识符过长 
<br>error # 1031 无效数字 
<br>error # 1032 无效字符 <br>
error # 1033 未结束的字符串常量 
<br>error # 1034 注释未结束 <br>
error # 1037 无效使用 'Me' 关键字 
<br>error # 1038 'loop' 语句缺少 'do' <br>
error # 1039 无效的 'exit' 语句 <br>
error # 1040 循环控制变量 'for' 无效 <br>
error # 1041 名称重定义 <br>
error # 1042 必须是行中的第一个语句 <br>
error # 1043 不能为 non-ByVal 参数赋值 <br>
error # 1044 调用子程序时不能使用括号 <br>
error # 1045 缺少文字常数 <br>
error # 1046 缺少 'In' <br>
error # 1047 缺少 'Class' <br>
error # 1048 必须在一个类的内部定义 <br>
<br>error # 1049 在属性声明中缺少 Let , Set 或 Get <br>
error # 1050 缺少 'Property' <br>
error # 1051 在所有属性的规范中，变量的数目必须一致 <br>
error # 1052 在一个类中不允许有多个缺省的属性/方法 <br>
error # 1053 类的初始化或终止程序没有变量 <br>
error # 1054 属性的 set 或 let 必须至少有一个变量 <br>
error # 1055 错误的 'Next' <br>
error # 1056 'Default' 只能在 'Property' , 'Function' 或 'Sub' 中指定 <br>
error # 1057 指定 'Default' 时必须同时指定 'Public' <br>
error # 1058 只能在 Property Get 中指定 'Default' <br>
error # 4096 Microsoft VBScript 编译器错误 <br>
error # 4097 Microsoft VBScript 运行时错误 <br>
error # 5016 缺少正则表达式对象 <br>
error # 5017 正则表达式语法错误 <br>
error # 5018 错误的数量词 <br>
error # 5019 正则表达式中缺少 ']' <br>
error # 5020 正则表达式中缺少 ')' <br>
error # 5021 字符集越界 <br>

树形菜单:<br>

＜SCRIPT language="JavaScript"＞ <br>
var lastObj <br>

function expandIt(obj) <br>
{ <br>
if(lastObj != null) <br>
{ <br>
if(obj == lastObj) <br>
{ <br>
if(obj.style.display == "none") <br>
{ <br>
obj.style.display = ""; <br>
} <br>
else <br>
{ <br>
obj.style.display = "none" <br>
} <br>
} <br>
else <br>
{ <br>
lastObj.style.display = "none"; <br>
obj.style.display = ""; <br>
} <br>
} <br>
else <br>
{ <br>
obj.style.display = ""; <br>
} <br>

lastObj = obj <br>
} <br>
＜/SCRIPT＞ <br>

＜table width="100%" border="0" cellspacing="0" cellpadding="0"＞ <br>
＜% <br>
dim id <br>
id = request("id") <br>
dim strsql,rs <br>

strsql="select * from p_type where slanguage=1 and typelevel=1 order by typename" <br>
set rs=fgetrslist(strsql) <br>
do while not rs.eof <br>

%＞ <br>
＜tr＞ <br>
＜td height="25" class="LEFTLINKS"＞＜img width="30" height="0" align="absmiddle" /＞＜b＞＜%if rs("isleaf")=0 then%＞＜a href="#" <br>onClick="javascript:expandIt(kb＜%=rs("id")%＞);return false"＞＜%else%＞＜a href="＜%=request.ServerVariables("SCRIPT_NAME")%＞?idtree=＜%=rs<br>("idtree")%＞" ＞＜%end if%＞＜%=server.HTMLEncode(right((rs("typename")&""),len(rs("typename")&"")-2))%＞＜/a＞＜/b＞＜/td＞ <br>
＜/tr＞ <br>
＜% <br>
IF clng(id)=clng(rs("id")) then <br>

%＞ <br>
＜tr id="kb＜%=rs("id")%＞"＞ <br>
＜% <br>
else <br>

%＞ <br>


＜tr id="kb＜%=rs("id")%＞" style="display:none;"＞ <br>
＜% <br>
end if <br>
%＞ <br>
＜td＞ <br>
＜table＞ <br>
＜% <br>
dim rs1 <br>
strsql="select * from p_type where parentid="&rs("id")&" and slanguage=1 order by typename" <br>
set rs1=fgetrslist(strsql) <br>
do while not rs1.eof <br>
%＞ <br>
＜tr＞＜td height="20" class="LEFTLINKS"＞ <br>
＜img width="40" height="0" align="absmiddle" /＞＜a href="＜%=request.ServerVariables("SCRIPT_NAME")%＞?idtree=＜%=rs1("idtree")%＞&id=＜%=rs<br>("id")%＞" ＞＜%=server.HTMLEncode(right((rs1("typename")&""),len(rs1("typename")&"")-2))%＞＜/a＞＜/td＞＜/tr＞ <br>
＜% <br>
rs1.movenext <br>
loop <br>
rs1.close <br>
set rs1=nothing <br>
%＞ <br>
＜/table＞ <br>
＜/td＞ <br>
＜/tr＞ <br>
＜% <br>
rs.movenext <br>

loop <br>
rs.close <br>
set rs=nothing <br>
%＞  <br>
＜/table＞  <br>
[[category:ASP]]