<%
dim rs,sql, rs1
dim classid
dim classname
if request.querystring("classid")<>"" then
classid=int(request.querystring("classid"))
else
classid=0
end if
set rs = server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from Aclass where classID="&cstr(classid)
rs.open sql,conn,1,1
if not rs.eof then
classname=rs("class")
end if
rs.close
%>
<%=classname%>|<%=hosturl%>
若动画效果不可见,请选择安排