常用代码集锦(ASP)

●显示页面加载时间

页面顶部添加下面的代码：

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