常用代码集锦(ASP)

来源：互联网发布：男士美白方法知乎编辑：程序博客网时间：2024/04/30 22:49

●显示页面加载时间

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

<%Dim strStartTimeDim strEndTime

strStartTime = Timer '开始时间%>

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

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

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

Response.Write FormatNumber(strEndTime - strStartTime, 4)Response.Write (" 秒.")%>

●重复域中的斑马线

<%'此模块放置在重复域之外Dim RecordCounterRecordcounter = 0%>

<tr class =<%'将重复域中第一个 <tr>标签的CLASS属性代码用本模块替换'本模块基于CSS来改变单元格背景色，你也可以直接设置背景色来实现斑马线RecordCounter = Recordcounter + 1If RecordCounter Mod 2 = 1 ThenResponse.Write "altRow1"ElseResponse.write "altRow2"End If%>

●显示字符串前20个字符并在结尾处添加“……”

<%Dim CutShortCutShort = rsYourRecordset.Fields.Item("YourField").ValueResponse.Write LEFT (CutShort, 20) & "........"%>

●如果动态图片为空，用默认图片代替

<%Dim PicShowPicShow = rsShowHide.Fields.Item("shMainPix").ValueIF PicShow <>"" THEN %><img src="<%=rsShowHide.Fields.Item("shMainPix").Value%>"><% ELSE %><img src="StaticPic.gif"><% End If %>

●如果数据为空，用默认提示信息代替。

<%Dim strShowHidestrShowHide = rsYourRecordset.Fields.Item("YourDataField").ValueIF stShowHide <>"" THEN%>数据为空<%END IF%>