用VB(asp)解答如下：
sql="select * from Table where ...."
dbopen cnn,sql,rst   'dbopen为自定义函数，用于连接数据库
for each f in rst.fields
    txtShow=txtShow & f.name & "=" & f.value
end if
dbclose   '关闭数据集

高手果然不同，谢谢你帮我！！