[转帖]ASP常用的代码100问,值得收藏的代码 - ASP技术论坛

问题点数：0 回复次数：12

[转帖]ASP常用的代码100问,值得收藏的代码

1.获得系统时间: <%=now()%> 2.取得来访用的IP: <%=request.serverVariables("remote_host")%> 3.获得系统,浏览器版本: <script> window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.") </script> 4.去除IE混动条: <body scroll="no"> <body style="overflow-y:hidden"> 5.进入网站,跳出广告: <script language="JavaScript">  window.open(''http://www.XXXXXX.com'','''',''height=200,width=300,top=0,left=30''); // --> </script> 6.随机数: <%randomize%> <%=(int(rnd()*n)+1)%> N为可改变数 7.向上混动代码: <marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000; line-height: 150%; font-style:italic; font-weight:bold" scrollamount="2" width="206" height="207" bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh</marquee> 8.自动关闭网页: <script LANGUAGE="JavaScript">  </script> <p align="center">本页10秒后自动关闭,请注意刷新页面</p> 9.随机背景音乐: <%randomize%> <bgsound src="mids/<%=(int(rnd()*60)+1)%>.mid" loop="-1"> 可以修改数字，限制调用个数，我这里是６０个． 10.自动刷新本页面: <script>  </script>

搜索更多相关主题的帖子: 浏览器　广告　 ASP　转帖　

第 2 楼

得分:0

11.ACCESS数据库连接: <% option explicit dim startime,endtime,conn,connstr,db startime=timer() '更改数据库名字 db="data/dvBBS5.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) '如果你的服务器采用较老版本Access驱动，请用下面连接方法 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db) conn.Open connstr function CloseDatabase Conn.close Set conn = Nothing End Function %> 12.SQL数据库连接: <% option explicit dim startime,endtime,conn,connstr,db startime=timer() connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs" Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr function CloseDatabase Conn.close Set conn = Nothing End Function %> 13.用键盘打开网页代码: <script language="javascript"> function ctlent(eventobject) { if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83)) { window.open('网址','','') } } </script> 这里是Ctrl+Enter和Alt+S的代码自己查下键盘的ASCII码再换就行

第 3 楼

得分:0

14.让层不被控件复盖代码: <div z-Index:2><object xxx></object></div> ＃前面 <div z-Index:1><object xxx></object></div> ＃后面 <div id="Layer2" style="position:absolute; top:40;width:400px; height:95px;z-index:2"><table height=100% width=100% bgcolor="#ff0000"><tr><td height=100% width=100%></td></tr></table><iframe width=0 height=0></iframe></div> <div id="Layer1" style="position:absolute; top:50;width:200px; height:115px;z-index:1"><iframe height=100% width=100%></iframe></div> 15.动网FLASH广告代码: <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="468" height="60"><param name=movie value="images/yj16d.swf"><param name=quality value=high><embed src="images/dvbanner.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash";; type="application/x-shockwave-flash" width="468" height="60"></embed></object> 16.VBS弹出窗口小代码: <script language=vbscript> msgbox"你还没有注册或登陆论坛","0","精品论坛" location.href = "login.asp" </script>

第 4 楼

得分:0

16.使用FSO修改文件特定内容的函数
function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
17.使用FSO读取文件内容的函数
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
18.使用FSO读取文件某一行的函数
function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
  exit function
else
  FSOlinedit = temparray(lineNum-1)
end if
end if
end function
19.使用FSO写文件某一行的函数
function FSOlinewrite(filename,lineNum,Linecontent)
if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
  exit function
else
  temparray(lineNum-1) = lineContent
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
end function
20.使用FSO添加文件新行的函数
function FSOappline(filename,Linecontent)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),8,1)
f.write chr(13)&chr(10)&Linecontent
f.close
set f = nothing
end function
21.读文件最后一行的函数
function FSOlastline(filename)
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
  FSOlastline = temparray(ubound(temparray))
end if
end function

第 5 楼

得分:0

推荐]利用FSO取得BMP，JPG，PNG，GIF文件信息(大小，宽、高等) <% '::: BMP, GIF, JPG and PNG ::: '::: This function gets a specified number of bytes from any ::: '::: file, starting at the offset (base 1) ::: '::: ::: '::: Passed: ::: '::: flnm => Filespec of file to read ::: '::: offset => Offset at which to start reading ::: '::: bytes => How many bytes to read ::: '::: ::: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: function GetBytes(flnm, offset, bytes) Dim objFSO Dim objFTemp Dim objTextStream Dim lngSize on error resume next Set objFSO = CreateObject("Scripting.FileSystemObject") ' First, we get the filesize Set objFTemp = objFSO.GetFile(flnm) lngSize = objFTemp.Size set objFTemp = nothing fsoForReading = 1 Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading) if offset > 0 then strBuff = objTextStream.Read(offset - 1) end if if bytes = -1 then ' Get All! GetBytes = objTextStream.Read(lngSize) 'ReadAll else GetBytes = objTextStream.Read(bytes) end if objTextStream.Close set objTextStream = nothing set objFSO = nothing end function '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::: ::: '::: Functions to convert two bytes to a numeric value (long) ::: '::: (both little-endian and big-endian) ::: '::: ::: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: function lngConvert(strTemp) lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256))) end function function lngConvert2(strTemp) lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256))) end function '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::: ::: '::: This function does most of the real work. It will attempt ::: '::: to read any file, regardless of the extension, and will ::: '::: identify if it is a graphical image. ::: '::: ::: '::: Passed: ::: '::: flnm => Filespec of file to read ::: '::: width => width of image ::: '::: height => height of image ::: '::: depth => color depth (in number of colors) ::: '::: strImageType=> type of image (e.g. GIF, BMP, etc.) ::: '::: ::: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: function gfxSpex(flnm, width, height, depth, strImageType) dim strPNG dim strGIF dim strBMP dim strType strType = "" strImageType = "(unknown)" gfxSpex = False strPNG = chr(137) & chr(80) & chr(78) strGIF = "GIF" strBMP = chr(66) & chr(77) strType = GetBytes(flnm, 0, 3) if strType = strGIF then ' is GIF strImageType = "GIF" Width = lngConvert(GetBytes(flnm, 7, 2)) Height = lngConvert(GetBytes(flnm, 9, 2)) Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1) gfxSpex = True elseif left(strType, 2) = strBMP then ' is BMP strImageType = "BMP" Width = lngConvert(GetBytes(flnm, 19, 2)) Height = lngConvert(GetBytes(flnm, 23, 2)) Depth = 2 ^ (asc(GetBytes(flnm, 29, 1))) gfxSpex = True elseif strType = strPNG then ' Is PNG strImageType = "PNG" Width = lngConvert2(GetBytes(flnm, 19, 2)) Height = lngConvert2(GetBytes(flnm, 23, 2)) Depth = getBytes(flnm, 25, 2) select case asc(right(Depth,1)) case 0 Depth = 2 ^ (asc(left(Depth, 1))) gfxSpex = True case 2 Depth = 2 ^ (asc(left(Depth, 1)) * 3) gfxSpex = True case 3 Depth = 2 ^ (asc(left(Depth, 1))) '8 gfxSpex = True case 4 Depth = 2 ^ (asc(left(Depth, 1)) * 2) gfxSpex = True case 6 Depth = 2 ^ (asc(left(Depth, 1)) * 4) gfxSpex = True case else Depth = -1 end select else strBuff = GetBytes(flnm, 0, -1) ' Get all bytes from file lngSize = len(strBuff) flgFound = 0 strTarget = chr(255) & chr(216) & chr(255) flgFound = instr(strBuff, strTarget) if flgFound = 0 then exit function end if strImageType = "JPG" lngPos = flgFound + 2 ExitLoop = false do while ExitLoop = False and lngPos < lngSize do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize lngPos = lngPos + 1 loop if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2)) lngPos = lngPos + lngMarkerSize + 1 else ExitLoop = True end if loop ' if ExitLoop = False then Width = -1 Height = -1 Depth = -1 else Height = lngConvert2(mid(strBuff, lngPos + 4, 2)) Width = lngConvert2(mid(strBuff, lngPos + 6, 2)) Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8) gfxSpex = True end if end if end function '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::: Test Harness ::: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ' To test, we'll just try to show all files with a .GIF extension in the root of C: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objF = objFSO.GetFolder("c:\") Set objFC = objF.Files response.write "<table border=""0"" cellpadding=""5"">" For Each f1 in objFC if instr(ucase(f1.Name), ".GIF") then response.write "<tr><td>" & f1.name & "</td><td>" & f1.DateCreated & "</td><td>" & f1.Size & "</td><td>" if gfxSpex(f1.Path, w, h, c, strType) = true then response.write w & " x " & h & " " & c & " colors" else response.write " " end if response.write "</td></tr>" end if Next response.write "</table>" set objFC = nothing set objF = nothing set objFSO = nothing %>

第 6 楼

得分:0

24.点击返回上页代码: <form> <p><input TYPE="button" VALUE="返回上一步" onCLICK="history.back(-1)"></p> </form> 24.点击刷新代码: <form> <p><input TYPE="button" VALUE="刷新按钮一" onCLICK="ReloadButton()"></p> </form> <script language="JavaScript"></script> 24.点击刷新代码2: <form> <p><input TYPE="button" VALUE="刷新按钮二" onClick="history.go(0)"> </p> </form> <form> <p><input TYPE="button" VALUE="打开一个网站" onCLICK="HomeButton()"></p> </form> <script language="JavaScript"></script> 25.弹出警告框代码: <form> <p><input TYPE="button" VALUE="弹出警告框" onCLICK="AlertButton()"></p> </form> <script language="JavaScript"></script> 26.状态栏信息 <form> <p><input TYPE="button" VALUE="状态栏信息" onCLICK="StatusButton()"></p> </form> <script language="JavaScript"></script> 27.背景色变换 <form> <p><input TYPE="button" VALUE="背景色变换" onClick="BgButton()"></p> </form> <script>function BgButton(){ if (document.bgColor=='#00ffff') {document.bgColor='#ffffff';} else{document.bgColor='#00ffff';} } </script> 28.点击打开新窗口 <form> <p><input TYPE="button" VALUE="打开新窗口" onCLICK="NewWindow()"></p> </form> <script language="JavaScript"></script></body>

第 7 楼

得分:0

29.分页代码: <%''本程序文件名为：Pages.asp%> <%''包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%>  <%''＊建立数据库连接，这里是Oracle8.05数据库 Set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;" Set rs=Server.CreateObject("ADODB.Recordset") ''创建Recordset对象 rs.CursorLocation=adUseClient ''设定记录集指针属性 ''＊设定一页内的记录总数，可根据需要进行调整 rs.PageSize=10 ''＊设置查询语句 StrSQL="Select ID,姓名,住址,电话 from 通讯录 Order By ID" rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText %> <HTML> <HEAD> <title>分页示例</title> <script language=javascript> //点击"[第一页]"时响应： function PageFirst() { document.MyForm.CurrentPage.selectedIndex=0; document.MyForm.CurrentPage.onchange(); } //点击"[上一页]"时响应： function PagePrior() { document.MyForm.CurrentPage.selectedIndex--; document.MyForm.CurrentPage.onchange(); } //点击"[下一页]"时响应： function PageNext() { document.MyForm.CurrentPage.selectedIndex++; document.MyForm.CurrentPage.onchange(); } //点击"[最后一页]"时响应： function PageLast() { document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1; document.MyForm.CurrentPage.onchange(); } //选择"第？页"时响应： function PageCurrent() { //Pages.asp是本程序的文件名 document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1) document.MyForm.submit(); } </Script> </HEAD> <BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000""> <%IF rs.Eof THEN Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>") ELSE ''指定当前页码 If Request("CurrentPage")="" Then rs.AbsolutePage=1 Else rs.AbsolutePage=CLng(Request("CurrentPage")) End If ''创建表单MyForm,方法为Get Response.Write("<form method=Get name=MyForm>") Response.Write("<p align=center><font size=2 color=#008000>") ''设置翻页超链接 if rs.PageCount=1 then Response.Write("[第一页] [上一页] [下一页] [最后一页] ") else if rs.AbsolutePage=1 then Response.Write("[第一页] [上一页] ") Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ") else if rs.AbsolutePage=rs.PageCount then Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") Response.Write("[下一页] [最后一页] ") else Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ") end if end if end if ''创建下拉列表框，用于选择浏览页码 Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>") For i=1 to rs.PageCount if rs.AbsolutePage=i then Response.Write("<option selected>"&i&"</option>") ''当前页码 else Response.Write("<option>"&i&"</option>") end if Next Response.Write("</select>页/共"&rs.PageCount&"页共"&rs.RecordCount&"条记录</font><p>") Response.Write("</form>") ''创建表格，用于显示 Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1") Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>") Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>") Set Columns=rs.Fields ''显示表头 For i=0 to Columns.Count-1 Response.Write("<td align=center width=200 height=13>") Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>") Next Response.Write("</tr>") ''显示内容 For i=1 to rs.PageSize Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>") For j=0 to Columns.Count-1 Response.Write("<td><font size=2>"&Columns(j)&"</font></td>") Next Response.Write("</tr>") rs.movenext if rs.EOF then exit for Next Response.Write("</table>") END IF %> </BODY> </HTML>

第 8 楼

得分:0

取完整url的函数取完整url的函数 function thisScript() thisScript=request.servervariables("SCRIPT_NAME") & "?" & request.ServerVariables("QUERY_STRING") end function

<% Dim temp,ServerUrl Temp=Split(Request.servervariables("SERVER_PROTOCOL"),"/") ServerUrl=Temp(0)& "://" & Request.ServerVariables("Server_name") & Request.ServerVariables("Script_name") if request.ServerVariables("QUERY_STRING")<>"" then ServerUrl=ServerUrl&"?" ServerUrl=ServerUrl&request.ServerVariables("QUERY_STRING") response.write ServerUrl &"<br>" %>

第 9 楼

得分:0

用ASP做一个分页程序　　你是否为了你的站点文章过多而反复做链接上一页、下一页这些烦琐的工作发愁呢？现在有了ASP，只要你的主页支持ASP，你就可以很简单的实现对文章的管理了，排序、链接、显示这些工作都让ASP去完成吧！这么轻松的主页维护，你是不是也想试一试呢？请看以下实现ASP分页程序的代码： <anguage="vbscript" dim conn dim connstr dim totalPut dim CurrentPage dim TotalPages dim i,j dim sql dim rs on error resume next '打开数据库 connstr="DBQ="+server.mappath("book.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr set rs=server.createobject("adodb.recordset") '定义每页文章显示数 const MaxPerPage=18 if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if sql="select * from learning order by articleid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'> 还没有任何文章</p>" else '数据库中文章数totalput totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if '统计总页数currentpage if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpage totalput,MaxPerPage,"index.asp" showContent showpage totalput,MaxPerPage,"index.asp" else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showpage totalput,MaxPerPage,"index.asp" showContent showpage totalput,MaxPerPage,"index.asp" else currentPage=1 showpage totalput,MaxPerPage,"index.asp" showContent showpage totalput,MaxPerPage,"index.asp" end if end if rs.close end if set rs=nothing conn.close set conn=nothing sub showContent dim i i=0 do while not rs.eof > '选择显示数据库内容 <a href="openarticle.asp?id=<=rs("articleid")>"><=rs("title")></a>[点击：<=rs("hits")>]<br> < '当显示记录大于maxperpage时结束这页 i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end sub function showpage(totalnumber,maxperpage,filename) '求出当每页18篇文章时总共的页数 dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "<form method=Post action="&filename&">" response.write "<p align='center'><font color='#000080'>>>分页</font> " '显示页数链接的条件 if CurrentPage<2 then response.write "<font color='#000080'>首页上一页</font> " else response.write "<a href="&filename&"?page=1&>首页</a> " response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> " end if if n-currentpage<1 then response.write "<font color='#000080'>下一页尾页</font>" else response.write "<a href="&filename&"?page="&(CurrentPage+1) response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>" end ifc response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font>" response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>篇文章 <b>"&maxperpage&"</b>篇文章/页</font>" response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=10 class=smallInput value="¤tpage&">" response.write "<input class=buttonface type='submit' value=' Goto ' name='cndok'></span></p></form>" end function > 　　以上代码很简单的就实现了ASP网页的多种分页功能,不论是对浏览者还是管理者都能很方便的浏览和管理,我只在相关部分作了一些解释,象这个ASP程序还必须有数据库的支持才可以,关于数据库的问题我就不详述了

[此贴子已经被作者于2004-07-06 14:53:19编辑过]

第 10 楼

得分:0

JavaScript实现网页虚线

网页横虚线
<script>len=400;d1=2;d2=2;cou=Math.floor(len/(d1+d2));
document.write('<table cellspacing=0 cellpadding=0 height=1 width='+len+'><tr>');
for(i=0;i<cou;i++){document.write('<td width='+d2+'><td width='+d1+' bgcolor=333333>')}</script></table>

网页竖虚线
<script>hei=120;d1=2;d2=2;cou=Math.floor(hei/(d1+d2));
document.write('<table cellspacing=0 cellpadding=0 width=1 height='+hei+'>');
for(i=0;i<cou;i++){document.write('<tr><td height='+d2+'><tr><td height='+d1+' bgcolor=333333>')}</script></table>