<%
linkpro1=rs("linkpro")
if linkpro1 <> "" then
linkpro1=left(linkpro1,(len(linkpro1)-1))
sql="select * from shuxing2 where class2id in ("&linkpro1&")"
set rn=server.CreateObject("adodb.recordset")
rn.open sql,conn,1,1
do while not rn.eof
%>
<%
rn.movenext
Loop
rn.close:Set rn=Nothing
else
response.Write("暂无专业")
end if
%>