最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp常 用 代 码
时间：2008-01-12 编辑：简简单单 来源：一聚教程网
显示页面加载时间
页面顶部添加下面的代码：
<%
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 %>
">
<% ELSE %>
<% End If %>
页面顶部添加下面的代码：
<%
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 %>
<% ELSE %>
<% End If %>
-
上一个： asp电子报制作与程序
-
下一个： Jmail中避过smtp验证的一法
相关文章
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- asp中获取日期为星期几的技巧 09-14
- Asp编码优化参考 09-14
- .Net Core认证系统源码解析 12-26
- SharePoint Server 2019新特性介绍 01-15