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