PopAD

<% rs.open "select top 1 * from ad where District='a' and pos<4 and datafirst<='"&date&"' and datalast>='"&date&"' and app<>'del' order by pos",dsnstr,3,1 if not rs.eof and not rs.bof then if trim(rs("type")&" ")="flash" then response.write "
"& vbCrLf elseif trim(rs("type")&" ")="pic" then response.write "" else response.write "错误，无法链接！" end if else response.write "错误，无法链接！" end if rs.close set rs=nothing dsnstr.close set dsnstr=nothing %>