% 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-04-10
|
|||||
copyrights © 2006 科大金纳(海纳)等离子科技有限公司 All rights reserved |