ASP的DICTIONARY
有以下2个ASP文件
其中INDEX.ASP文件主要代码如下<FORM action="1.asp" id=FORM1 method=post name=FORM1><INPUT
id=text1
name=name ><INPUT id=submit1 name=submit1 type=submit value=Submit>
</FORM>
文件1.ASP代码如下
<%
dim name,ip
name = request("name")
ip = Request.ServerVariables("remote_addr")
set onlinename = server.CreateObject("scripting.dictionary")
onlinename.add request("name"),ip
Application.Lock
application("online") = onlinename.Items
Application.UnLock
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<% d = application("online")
for each i in d
Response.Write d(i)
next
%>
</BODY>
</HTML>
为何出现如下错误
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '127.0.0.1'
/000/1.asp, 行51