<%
dim rs,sql, rs1
dim ss
dim classname
ss=1
set rs = server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from Aclass where ss="&cstr(ss)
rs.open sql,cn,1,1
if not rs.eof then
classname=rs("class")
end if
rs.close
%>
顺义卫生信息网
