asp.net是不是版本不一样差别很大呀,还是我新学不懂呀!请大家看看
<html>
<script language="vb" runat=server>
Sub Page_Load(o as object,e as eventargs)
dim i as integer
dim tStr as String
dim sStr as String
dim strArray() as String
dim tObject() as Object
dim ObCol as HttpStaticObjectsCollection
If Not IsPostBack
Application.removeall
'为防止其他变量干扰，使用前清掉所有的保存变量
'保存六个变量
for i=1 to 6
tStr="变量名" & i
sStr="内容" & i
Application(tStr)=sStr
next
Else
'采用item属性遍历
response.write("<center><b>采用item属性显示</b></center><br>")
strArray=Application.Allkeys
for i=1 to Application.count
tStr= strArray(i-1) & "=" & Application.item(i-1)&" "
response.write(tStr)
next
'采用All属性遍历
response.write("<hr><center><b>采用All属性显示</b></center><br>")
tObject=Application.All
for i=1 to Application.count
tStr=tObject(i-1).ToString & " "
response.write(tStr)
next
'显示有多少个object定义
ObCol=Application.StaticObjects
response.write("<hr>含有object标识：" & ObCol.count & "个")
End If
End Sub
</script>
<head>
<title>
Appliction对象试验
</title>
</head>
<body bgcolor=#ccccff>
<center>
<h2>Appliction对象试验</h2>
<hr>
<form runat=server>
<asp:button text="显示Appliction内容" runat=server />
</form>
</center>
</body>
</html>
结果报错如下：
编译器错误信息: BC30456: “All”不是“System.Web.HttpApplicationState”的成员。
源错误:
行 32： '采用All属性遍历
行 33： response.write("<hr><center><b>采用All属性显示</b></center><br>")
行 34： tObject=Application.All
行 35： for i=1 to Application.count
行 36： tStr=tObject(i-1).ToString & " "
源文件: C:\Inetpub\wwwroot\web2\webform2.aspx 行: 34
[2152 byte] By [pearlz-故人] at [2008-6-10] 