Question

ASP动态定义变量应该怎么写？

Set rs = sql.r("Select 字段1,字段2 From RF_Table_item Where tab=26 And setup=true order by ord asc")
Do While Not rs.eof
Dim 字段1
名称为字段1的变量 = 字段2
rs.movenext
Loop
Set rs = Nothing
如上，从数据库中循环读取数据，定义一个名称为字段1的值的变量，然后这个变量的值=字段2的值
比方说数据库中这样的：
字段1 字段2
aaa bbbb
那么最后出来结果就是
dim aaa
aaa=bbb

Answer 1

直接等于就行了
如果没有再引用字段1
这个变量好象没什么意义?
因为字段1本身有自己的参数值

追问

有意义的，因为我准备读取的这几个值是每个页面都要用好多次，但是这几个值是变动的，所以不好每个页面都去手动定义，也不好用的时候再从数据库读取，所以只好在开始的时候就循环从数据库中读取出来并定义成变量，到用的时候直接使用变量就成了

追答

如果
字段1 字段2
aaa bbbb
那么最后出来结果就是
dim aaa
aaa=bbb
那么在循环下有多少输出就会有多少个aaa=bbb
只有在循环中aaa=bbb有意义
循环外的aaa=bbb只是最后输出的那个值

追问

我并不是说重复的赋值给AAA，而是循环将表中的数据读取出来，将字段1声明成变量，将字段2赋值给字段1，如果是
aaa 111
bbb 222
ccc 333
那就是
dim aaa
aaa=111
dim bbb
bbb=222
dim ccc
ccc=333

追答

把dim aaa放到 Do While Not rs.eof 前
即:
Dim aaa
Do While Not rs.eof
然后直接取值
aaa=rs("bbbb")

Answer 2

看不明白你的问题，，
简单说一下

dim a,b,
a=0
a就是一个变量，它现在的值就是0
下面再做一下
b="0"
a=b
那，变量a的值最终为字符0

追问

不是这个意思，我的意思是变量名称是不确定的，从数据库中循环读取，用数据库中的值来做变量，并赋值

追答

完全不理解你这种做法。。。

你还不如说出来为什么要这样做，，，别人更好帮你分析，提供更有效的解决办法。

你要用字段一的值来做变量，然后，把字段二符给字段一，

那你直接取字段二的值，不就一切解决了，多此一举。

所有变量，最终结果都是要它的值来输出，或者运算等。。。

追问

这么做的原因是页面中有很多地方需要调用这些值，每次调用都读取一次效率太低了，而读取出来在页面结束后再关闭数据集的话又因为页面太多，代码太长造成麻烦，所以就想将这个表中的值循环读取出来变成变量，然后及时关闭数据集，这样需要的时候可以直接引用