显示页面加载时间
页面顶部添加下面的代码:
<% Dim strStartTime Dim strEndTime
strStartTime = Timer '开始时间 %>
页面(同一页)的末尾添加:
<% ' 加载完毕的时间 strEndTime = Timer
Response.Write ("页面加载时间: ")
Response.Write FormatNumber(strEndTime - strStartTime, 4) Response.Write (" 秒.") %>
显示字符串前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 %> 
|