问答平台【深圳华图教师网】

<%page = Request("page") zid = request("zid") if page = "" then page = "1" page = int(page) set rs = server.createobject("adodb.recordset") if sp ="1" then sqltj = sqltj & " and sp='1'" exec="select * from yrwl_faq_lt where zid='s' "&sqltj&" order by left(zhhf,8) desc,id desc" rs.open exec,conn,3,3 rs.PageSize = 10 zgs = rs.recordcount If page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount if not rs.eof then rs.AbsolutePage =page For i = 1 To rs.PageSize If rs.EOF Then Exit For zt = rs("zt") lb = rs("lb") if isnull(zt) then zt = "" xszt = zt id = cstr(rs("id"))%> <%exec="select * from yrwl_faq_lt where zid='"&id&"' order by id" set rs1 = server.createobject("adodb.recordset") rs1.open exec,conn,3,3 for j = 1 to rs1.recordcount if rs1.eof then exit for ly = rs1("ly") ly=xszh(ly)%> <%rs1.movenext next rs.movenext%>
 Q:<%call label("ask.asp?ztid=" & cstr(id),0,"" & zt & "",xszt)%> <%=rs("sj")%>
A:<%response.write ly if rs1.recordcount>1 then response.write "
  ----------"%>
<%next%>

<%call pagefy(page, rs.PageCount,"faq.asp")%>