ASP中Dictionary对象的一个奇怪问题
首先贴代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("这是修改之前的值：" & objDic.Item("key")(0))
objDic.Item("key")(1) = objDic.Item("key")(1) + 4
Response.Write("这是修改之后的值：" & objDic.Item("key")(1))
%>
下面是运行结果：
这是修改之前的值：0这是修改之后的值：0
可以看到objDic.Item("key")(0)的值根本没有任何变化，这是为什么？
下面我们将代码修改一下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("这是修改之前的值：" & objDic.Item("key")(0))
arr(0) = arr(0) + 4
objDic.Item("key") = arr
Response.Write("这是修改之后的值：" & objDic.Item("key")(0))
%>
再来看看运行结果：
这是修改之前的值：0这是修改之后的值：4
这下结果正确了。
现在我明白了，在ASP中给一个key赋值只能通过objDic.Item(key) = value的方式进行，而且不能有任何的运算符。
相关文档：
试验了好久，终于搞定了。
首先，必须有错误继续进行的声明On Error Resume Next
然后尝试简历jmail实例：
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
对实例做出判断，如果组件没有安装成功， ......
本人的本本上是home版的XP，无法正常安装IIS，但是网上查到几篇博文，说是能安装IIS，于是按照上面的描述亲自试了一下。
其大致方法如下：
1、首先打开C盘Windows目录中inf目录下的sysoc.inf文件（可以在运行中直接输入“c:\windows\inf\sysoc.inf&rdqu ......
我写了一个表单就是用来向数据库中添加数据的 action=post.asp method=post
然后再post.asp当中我又通过request.form获取了相应的值，然后添加的数据库当中
所有的代码如下
------------------------------------conn.asp-----------------------------
<%
dim db
const databasetype="access"
db="data\meiyijix ......
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" 主目录
aa=Request.Servervariables("url") '虚拟目录
bb=InstrRev(aa,"/")
cc=left(aa,bb)
Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"index.asp"
call SaveFile("index.h ......
废话不多说，贴代码：
先来看看ByVal传值：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByVal a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("我在sub过程中更改了值："&a(0)&","&a(1)&","&a(2))
......
