拓展训练评估|拓展培训|体验式培训尽在极限突破

<% set rs = server.CreateObject("adodb.recordset") set rs1 = server.CreateObject("adodb.recordset") '外循环 %> <% dim lid lid = request.QueryString("lid") Dim lession,jianjie,addtime,lessionclass If isEmpty(lid) or lid = "" Then sql = "select Top 1 a.lid as lid,a.lession as lession,a.jianjie as jianjie,a.addtime as addtime,b.lessionclass as lessionclass from pxlession as a,lessionclass as b where b.cid=a.class order by b.orderid " Else sql = "select a.lid as lid,a.lession as lession,a.jianjie as jianjie,a.addtime as addtime,b.lessionclass as lessionclass from pxlession as a,lessionclass as b where b.cid=a.class and a.lid ="&lid&" " End If rs.open sql,conn,1,1 If Not rs.EOF Then lession = rs("lession") jianjie = rs("jianjie") addtime = rs("addtime") lessionclass = rs("lessionclass") Else '可以配置默认值 lid = "" lession = "" jianjie = "" addtime = "" lessionclass = "" End If rs.close function decodechar(str) decodechar=replace(replace(replace(replace(str,"<","<"),">",">"),"
",chr(13))," "," ") decodechar=replace(decodechar,""","'") decodechar=replace(decodechar,""",mid(" "" ",2,1)) end function %> 拓展训练评估|拓展培训|体验式培训尽在极限突破

关于我们 | 客户反馈 | 联系我们 | 设为首页 | 加入收藏

首页 |

拓展评估

　极限突破

关于我们 | 联系方式| 招聘信息| 公司地图| 友情链接