Question

用ASP在函数里实现新值赋给变量，但总出问题，求助

我用ASP在函数里实现新值赋变量，可能表达的不清楚，将下面的代码粘上看一下就知道了。

<%
dim UserName,PassWord,CArr
response.write "变量名为：UserName；PassWord<hr />"

UserName="ab123cde"
PassWord="ggg123gg"
response.write "变量原值：<b>"&UserName&"；"&PassWord&"</b><hr />"

Session("LoginUser")="新值1"
Session("LoginPassWord")="新值2"
response.write "将要赋值：<b>"&Session("LoginUser")&"；"&Session("LoginPassWord")&"</a><hr />"

CArr=UserName&"|"&PassWord
Call StoreSession("LoginUser|LoginPassWord",CArr)
response.write "变量现值：UserName＝"&UserName&"；PassWord＝"&PassWord

'变量现值应该为"新值1"、"新值2"也就是二个session的值

function StoreSession(NM,VL)
dim n,v,i
n=split(NM,"|")
v=split(VL,"|")
for i=0 to ubound(n)
v(i)=Session(n(i)) ‘反过来赋就可以，但我要的是变量的新值
next
end function
%>

Answer 1

CArr=UserName&"|"&PassWord
改为
CArr="UserName|PassWord"

v(i)=Session(n(i))
改为
eval(v(i))=Session(n(i))

追问

按照你的方法，我改了，但不好用，是不是我没注意到哪块细节？

追答

v(i)=Session(n(i))

改为
eval(v(i) & "=" & Session(n(i)))

由于过年在家，家里的电脑没法测试，所以你自己测试一下了。

追问

哥们，还是不行，没事，那我等你能测试的时候再帮我解决一下吧，先谢谢了，之前看过你回答的关于函数的参数不确定问题，非常不错，我这里就看那个使用的。

追答

execute v(i) & "=" & Session(n(i))

追问

辛苦你了，大过年的还帮我解决问题。

我又试了，还是不行，我实在解决不了，昨天弄一晚上，也不行，麻烦你了

追答

我这里测试是没问题了哦。
CArr="UserName|PassWord" '这个别忘了改哦

追问

我还是不行啊，你把代码发一下呗，我用你的代码测试下

结果应该是：UserName＝新值1；PassWord＝新值2

追答

"
execute "a=session(""c""):b=session(""d"")"
response.write "新值：a=" & a & vbcrlf & "b=" & b
%>

或

"
execute "a=" & session("c") & ":b=" & session("d")
response.write "新值：a=" & a & vbcrlf & "b=" & b
%>

追问

哥们，麻烦你套到我的代码里呗，我怎么弄也弄不出来新值；多次测试结果如下：
直接输入变量名再赋值，这样可以，比较UserName=Session(n(i))，不可行的是这里的变量是数组v(i)里的，现在不能把值赋给v(i)，就是Session(n(i))不能把值给到v(i)里。

v(i)是从外部得的数组到函数里，是变量的数组，要给每个v(i)赋上新值？

-

追答

"

UserName="ab123cde"
PassWord="ggg123gg"
response.write "变量原值：" & UserName & "；" & PassWord & ""

Session("LoginUser")="新值1"
Session("LoginPassWord")="新值2"
response.write "将要赋值：" & Session("LoginUser") & "；" & Session("LoginPassWord") & ""

CArr="UserName|PassWord"
Call StoreSession("LoginUser|LoginPassWord",CArr)
response.write "变量现值：UserName＝" & UserName & "；PassWord＝" & PassWord

function StoreSession(NM,VL)
dim n,v,i
n=split(NM,"|")
v=split(VL,"|")
for i=0 to ubound(n)
execute v(i) & "=""" & Session(n(i)) & """"
next
end function
%>

OK了！

补充，用下面的代码亦可：
execute v(i) & "=Session(n(i))"

Answer 2

看了半天~ 不知道理解的对不
你是想通过function，把变量UserName，PassWord的值改变？
那你这个函数就错了
CArr=UserName&"|"&PassWord
这个东西通过函数传过来，是2个变量里的值，而不是变量
所以你这里最终UserName，PassWord还是最开始赋的值

dim UserName,PassWord
……
Call StoreSession("LoginUser|LoginPassWord")

function StoreSession(NM)
dim n,i
n=split(NM,"|")
UserName=Session(n(0))
PassWord=Session(n(1))
end function

追问

朋友，你没理解对我的问题：你这段代码里的UserName,PassWord不是在函数里直接使用，而是通过参数进入到函数里，因为他是个参数，而且是个不确定数量的参数

追答

没明白你的意思
CArr=UserName&"|"&PassWord
Call StoreSession("LoginUser|LoginPassWord",CArr)
这样做了以后UserName，PassWord是不可能发生变化的
CArr单纯的只是一个="ab123cde|ggg123gg" 这样的字符串，不是代表2个变量
这个可不是表示把UserName，PassWord这两个变量通过参数传进函数中
只能重新对你的变量进行赋值
变量1=xxx
变量2=xxx
……
变量n=xxx