% dim sql dim rs dim rstype dim typesql dim typeid,typename,classname,classid,Nclassname,Nclassid dim title call getConst() set rs=server.createobject("adodb.recordset") sql="select Aclass.class,ANclass.Nclass,article.title,article.classid,article.Nclassid from article,Aclass,ANclass where article.classid=Aclass.classid and article.Nclassid=ANclass.Nclassid and article.articleID="&request("id") rs.open sql,conn,1,1 if not rs.eof then title=rs("title") classid=rs("classid") Nclassid=rs("Nclassid") classname=rs("class") Nclassname=rs("Nclass") end if rs.close %>
| |
|
|
|||||
【公告】 青岛市科技局领导莅临我校科技园指导工作 公告发布:admin 发布时间:2007-07-27
|
|||||
copyrights © 2006 科大金纳(海纳)等离子科技有限公司 All rights reserved |