4,007
社区成员
发帖
与我相关
我的任务
分享
set aRS_str = createObject("ADODB.Recordset")
aSQL_str = " select * from strings_multi_language where variable is not null and variable <> ''"
aRS_str.open aSQL_str, aConn, 1, 1, 1
Dim strVariable
Dim strValue
while not aRS_str.eof
strVariable = aRS_str("variable")
strValue = aRS_str(aLang)
execute strVariable& "= strValue"
aRS_str.movenext
'response.Write(strVariable&"="&strValue&"<br>")
wend
aRS_str.close
set aRS_str = nothing