您所在位置：主题：[原创]用表格作虚线的函数
lzp4881
[专家分：0] 发布于 2007-08-10 16:49:00
用表格作的虚线，长度，间距，颜色随心所欲，免去了用图片的麻烦。
function tab(w,j,c) 'w:宽度 j:虚线间距 c:颜色
dim str,strtd
str="<table width='"&w&"' border='0' cellspacing='0' cellpadding='0'>"
str=str&"<tr>"
for i=1 to w
if i mod j=0 then
strtd=strtd&"<td width='1' bgcolor='"&c&"'></td>"
else
strtd=strtd&"<td width='1' bgcolor='#FFFFFF'></td>"
end if
next
str=str&strtd&"</tr></table>"
tab=str
end function
例子：
<html>
<body>
<table width=100%>
<tr>
<td>
<%=tab(50,3,ff0000)%>
</td>
</tr>
<tr>
<td>
<%=tab(100,4,ff8800)%>
</td>
</tr>
<tr>
<td>
<%=tab(150,5,ff00ff)%>
</td>
</tr>
</table>
function tab(w,j,c) 'w:宽度 j:虚线间距 c:颜色
dim str,strtd
str="<table width='"&w&"' border='0' cellspacing='0' cellpadding='0'>"
str=str&"<tr>"
for i=1 to w
if i mod j=0 then
strtd=strtd&"<td width='1' bgcolor='"&c&"'></td>"
else
strtd=strtd&"<td width='1' bgcolor='#FFFFFF'></td>"
end if
next
str=str&strtd&"</tr></table>"
tab=str
end function
例子：
<html>
<body>
<table width=100%>
<tr>
<td>
<%=tab(50,3,ff0000)%>
</td>
</tr>
<tr>
<td>
<%=tab(100,4,ff8800)%>
</td>
</tr>
<tr>
<td>
<%=tab(150,5,ff00ff)%>
</td>
</tr>
</table>
