<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%head_id=6%> <% set rs=server.CreateObject("adodb.recordset") sql="select top 1 * from detail where detailid="&request("detailid") rs.open sql,conn,1,3 if rs.bof and rs.eof then else detailclassid=rs("detailclassid") smallclassid=rs("smallclassid") ppic=rs("pic") title=rs("title") keyword1=rs("keyword1") deion=rs("deion") content=rs("content") addtime=rs("addtime") end if rs.close set rs=nothing if request("detailid")<>"" then detailid=request("detailid") end if %>
<%=detailclassname(detailclassid)%> <%=edetailclassname(detailclassid)%>

<%=title%>


Posted on <%=addtime%>



<%=content%>

点评:


<%set rs=server.CreateObject("adodb.recordset") sql="select * from message where detailid="&request("detailid") rs.open sql,conn,1,3 if rs.bof and rs.eof then else i=1 do while not rs.eof%>

<%=rs("addtime")%>

<%=rs("content")%>
<%rs.movenext i=I+1 loop end if rs.close set rs=nothing%>