常用代码集锦(ASP-1)

显示页面加载时间
显示字符串前20个字符并在结尾处添加“……”
如果动态图片为空，使用默认图片代替
如果数据为空，使用默认提示信息代替

显示页面加载时间

页面顶部添加下面的代码：
<code><%
Dim strStartTime
Dim strEndTime

strStartTime = Timer ‘开始时间
%>

页面(同一页)的末尾添加：

<%
‘ 加载完毕的时间
strEndTime = Timer

Response.Write ("页面加载时间: ")

Response.Write Fo&#114;matNumber(strEndTime – strStartTime, 4)
Response.Write (" 秒.")
%></code>

重复域中的斑马线
<code><%
‘此模块放置在重复域之外
Dim Reco&#114;dCounter
Reco&#114;dcounter = 0
%>

<tr class =
<%
‘将重复域中第一个 <tr>标签的CLASS属性代码用本模块替换
‘本模块基于CSS来改变单元格背景色，你也可以直接设置背景色来实现斑马线
Reco&#114;dCounter = Reco&#114;dcounter + 1
If Reco&#114;dCounter Mod 2 = 1 Then
Response.Write "altRow1"
Else
Response.write "altRow2"
End If
%></code>

显示字符串前20个字符并在结尾处添加“……”
<code><%
Dim CutSho&#114;t
CutSho&#114;t = rsYourReco&#114;dset.Fields.Item("YourField").Value
Response.Write LEFT (CutSho&#114;t, 20) & "…….."
%></code>

如果动态图片为空，用默认图片代替
<code><%
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 %></code>

如果数据为空，用默认提示信息代替。
<code><%
Dim strShowHide
strShowHide = rsYourReco&#114;dset.Fields.Item("YourDataField").Value
IF stShowHide <>"" THEN%>
数据为空
<%END IF%></code>