最新下载
热门教程
- 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)
相关文章
- 《异界事务所》光谱项链哪几种 06-30
- 《雾境序列》波比角色大全全解析 06-30
- 《星球重启》SSR宠物盲盒免费怎么获得 06-30
- 操作教程：常见的NFT被盗手段？为什么NFT玩家成为黑客目标？ 06-30
- 拳皇97风云再起出招表-拳皇97风云再起技能招式表一览 06-30
- 鸣潮坎特蕾拉培养攻略-鸣潮坎特蕾拉培养材料一览 06-30