asp中 单表多元数据取出函数

 

function callvalues(tname,trowname,tvalues,vt,toutput,dfvalue,sgsy) 'tname 表名，trowname 条件列名，tvalues 条件值，用, 号隔开，toutput元素值组用$$号隔开，vt条件格式，dfvalue无数据时缺省值,sgsy元素之间的间隔符
if tvalues="" then
callvalues="输出错误！"
else
tvalues_ary=split(tvalues,", ")
d=""
for i=0 to ubound(tvalues_ary)
d=d&callvalue(tname,trowname,tvalues_ary(i),vt,toutput,dfvalue)&","
next
d=replace(d,"$$",sgsy)
callvalues=left(d,len(d)-1)
end if
end function

 

 

function callvalue(tname,trowname,tvalue,vt,toutput,dfvalue) 
if tname="" or trowname="" or tvalue="" or vt="" or toutput="" then
callvalue="输出错误!"
else
'vt 0为数字，1为字符, 2为日期
select case vt
case "0"
tvalue=tvalue
case "1"
tvalue="'"&tvalue&"'"
case "2"
tvalue="#"&tvalue&"#"
case else
callvalue="输出错误!"
end select 
set rso=server.CreateObject("adodb.recordset")
sql="select "&replace(toutput,"$$",",")&" from "&tname&" where "&trowname&"="&tvalue&""
rso.open sql,conn,1,1
if rso.eof then
callvalue=dfvalue
else
toutputary=split(toutput,"$$")
for j=0 to ubound(toutputary)
e=e&rso(toutputary(j))&"$$"
next
callvalue=left(e,len(e)-2)
end if
rso.close
set rso=nothing
end if
end function