常用代码集锦(ASP)
类别: ASP教程
显示页面加载时间
重复域中的斑马线
显示字符串前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%>
重复域中的斑马线
显示字符串前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%>
-= 资 源 教 程 =-
文 章 搜 索