最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ASP中查错之实例
时间：2022-06-30 11:53:44 编辑：袖梨 来源：一聚教程网
有这样一个程序，是对Application集合中的元素进行活动的添加与删除，程序如下：
<%@ LANGUAGE=VBSCRIPT %>
>
The Application Object
The ASP Application Object
<% 'look for a command sent from the FORM section buttons
If Len(Request.Form("cmdAdd")) Then ' 利用是否长度为0来判断
strVarName = Request.Form("txtVarName")
strVarValue = Request.Form("txtVarValue")
Application.Lock
Application(strVarName) = strVarValue ' 此处报错
Application.Unlock
End If
If Len(Request.Form("cmdRemoveThis")) Then
strToRemove = Request.Form("lstRemove")
Application.Lock
Application.Contents.Remove(strToRemove)
Application.Unlock
End If
If Len(Request.Form("cmdRemoveAll")) Then
Application.Lock
Application.Contents.RemoveAll
Application.Unlock
End If
%>
<%
For Each objItem in Application.Contents
If IsObject(Application.Contents(objItem)) Then
Response.Write "Object reference: '" & objItem & "'
"
ElseIf IsArray(Application.Contents(objItem)) Then
Response.Write "Array: '" & objItem & "' contents are:
"
varArray = Application.Contents(objItem)
<%@ LANGUAGE=VBSCRIPT %>
The ASP Application Object
<% 'look for a command sent from the FORM section buttons
If Len(Request.Form("cmdAdd")) Then ' 利用是否长度为0来判断
strVarName = Request.Form("txtVarName")
strVarValue = Request.Form("txtVarValue")
Application.Lock
Application(strVarName) = strVarValue ' 此处报错
Application.Unlock
End If
If Len(Request.Form("cmdRemoveThis")) Then
strToRemove = Request.Form("lstRemove")
Application.Lock
Application.Contents.Remove(strToRemove)
Application.Unlock
End If
If Len(Request.Form("cmdRemoveAll")) Then
Application.Lock
Application.Contents.RemoveAll
Application.Unlock
End If
%>
The Application.Contents Collection
<%
For Each objItem in Application.Contents
If IsObject(Application.Contents(objItem)) Then
Response.Write "Object reference: '" & objItem & "'
"
ElseIf IsArray(Application.Contents(objItem)) Then
Response.Write "Array: '" & objItem & "' contents are:
"
varArray = Application.Contents(objItem)
相关文章
- 苏丹的游戏部队获得途径 07-05
- 苏丹的游戏全部奇珍获取方式 07-05
- 金铲铲之战s14堡垒执事阵容攻略 07-05
- SATS价值币是什么？在2025年SATS币上涨空间大嘛？ 07-05
- 燕云十六声我即是江湖称号怎么获得 07-05
- 崩坏星穹铁道3.2全追忆残像收集攻略 07-05