<% dim channelid channelid="1027" channelname="jzyf" set rs=server.CreateObject("Adodb.recordset") str="select top 1 classdir from pe_class where channelid="&channelid&" order by classid asc" rs.open str,conn,1,1 response.write str response.end() if not rs.eof then response.Redirect "/"&channelname&"/"&rs("classdir") end if rs.close %>