% Set Conn = ConnectDataBase() function getChildTid(tid) classidstr = "" strsql = "select typeid from usip_news_type where f_id="&tid set objrs = server.createobject("adodb.recordset") objrs.open strsql,conn,1,1 if not objrs.eof then for i = 1 to objrs.recordcount if objrs.eof then exit for classidstr = classidstr & Cstr(objrs("typeid")) if i <> objrs.recordcount then classidstr = classidstr & "," end if objrs.movenext next else classidstr = tid end if objrs.close set objrs = nothing getChildTid = classidstr end function %> <%Sub showarticlelist(num,tid) %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
第二届全国青少年网络科普行系列活动 >> 中青报-中青在线:第二届全国青少年网络科普行启动
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||