<% dim id,rs,exec,rstt,exectt,tt,tt2 id = Server.Htmlencode(request.querystring("id")) if id = "" or not isnumeric(id) then set rs=server.createobject("adodb.recordset") exec="select * from cases order by id desc" rs.open exec,conn,1,1 titlefl = "成功案例" else set rstt=server.createobject("adodb.recordset") exectt="select * from cases_fl where id="&id rstt.open exectt,conn,1,1 titlefl = rstt("title") if rstt.eof then rstt.close set rstt = nothing conn.close set conn = nothing response.write "" response.end end if set rs=server.createobject("adodb.recordset") exec="select * from [cases] where ssfl="&id&" order by id desc" rs.open exec,conn,1,1 end if %> <%=titlefl%>-<%=config("title")%> " /> " />