 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
显示页面加载时间 重复域中的斑马线 显示字符串前20个字符并在结尾处添加“……” 假如动态图片为空，使用默认图片代替 假如数据为空，使用默认提示信息代替 ●显示页面加载时间 页面顶部添加下面的代码： <% Dim strStartTime Dim strEndTime strStartTime = Timer \\\'开始时间 %> 页面(同一页)的末尾添加： <% \\\' 加载完毕的时间 strEndTime = Timer Response.Write ("页面加载时间: ") Response.Write FormatNumber(strEndTime - strStartTime, 4) Response.Write (" 秒.") %> ●重复域中的斑马线 <% \\\'此模块放置在重复域之外 Dim RecordCounter Recordcounter = 0 %> <tr class = <% \\\'将重复域中第一个 <tr>标签的CLASS属性代码用本模块替换 \\\'本模块基于CSS来改变单元格背景色，你也可以直接设置背景色来实现斑马线 RecordCounter = Recordcounter + 1 If RecordCounter Mod 2 = 1 Then Response.Write "altRow1" Else Response.write "altRow2" End If %> ●显示字符串前20个字符并在结尾处添加“……” <% Dim CutShort CutShort = rsYourRecordset.Fields.Item("YourField").Value Response.Write LEFT (CutShort, 20) & "........" %> ●假如动态图片为空，用默认图片代替 <% Dim PicShow PicShow = rsShowHide.Fields.Item("shMainPix").Value IF PicShow <>"" THEN %> <img src="<%=rsShowHide.Fields.Item("shMainPix").Value%>"> <% ELSE %> <img src="StaticPic.gif"> <% End If %> ●假如数据为空，用默认提示信息代替。 <% Dim strShowHide strShowHide = rsYourRecordset.Fields.Item("YourDataField").Value IF stShowHide <>"" THEN%> 数据为空 <%END IF%> 返回类别: 教程 上一教程: 如何使REPLACE方式不区分大小写 下一教程: 简朴快捷实现ASP在线发邮件功能 您可以阅读与"常用代码集锦(ASP)"相关的教程: · ASP经典程序代码集 · ASP编程常用的代码 · 整理了一些ASP初学者常用的代码 · 一些初学都常用的ASP代码 · ASP技巧集锦（官方权威版）-7 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
