<%dim Conndb,dbrs,dbsql,dbrs1,i,k,expert sub showpic(who) dim who1,j expert="" if not who="" then who1=split(who,"|",-1,1) for j=0 to ubound(who1) set dbrs1=conndb.execute("select top 1 * from expert where ename='"&who1(j)&"'") if not dbrs1.eof then if not dbrs1("epic")="" then expert="" set dbrs1=nothing k=1 exit sub end if end if next set dbrs1=nothing end if end sub%>

中文　英文

电视医生首页 节目介绍 医院网站主页

<%=expert%>

<% set dbrs=nothing conndb.close set conndb=nothing%>