ASP同学录设计asp+sql(八)

ASP同学录设计asp+sql(八) y>
 
 
 <%
      Dim bbs_id
      bbs_id=Request("bbs_id")         
     Dim sql,rs
     sql="Select * From bbs Where bbs_id =" & bbs_id
     Set rs=db.Execute(sql)
     %>
<table width="80%" height="258" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ccffff">
        <tr>
         <td width="55%" height="54"><div align="right"><font size="+3" face="华文彩云"><strong>详细信息</strong></font></div></td>
        <td width="45%"><div align="right">
         <p><a href="BBS.asp">[返回]</a> <a href="huifu.asp?bbs_id=<%=bbs_id%>&title=<%=rs("title")%>"> [回复]</a></p>
       </div></td>
      </tr>
      <tr>
       <td colspan="2" valign="top"><table width="100%" height="81" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="12%"><div align="right">原文主题:</div></td>
          <td width="88%"><%=rs("title")%></td>
        </tr>
        <tr>
          <td><div align="right">原文内容:</div></td>
        

 <td><%=rs("body")%></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
           <td><div align="right"><%=rs("wm")%>发表于<%=rs("submit_date")%></div></td>
        </tr>
        <%
      sql="Select title,body,wm,submit_date From bbs Where"
      sql=sql & " parent_id=" & bbs_id
      sql=sql + " Order By submit_date desc"
      Set rs=db.Execute(sql)
      Dim I
      I=0
      Do While Not rs.Eof
    I=I+1
      %>
        </table>
         <font color="#FF000

首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/14/14

ASP同学录设计asp+sql(八)由毕业论文网（www.huoyuandh.com）会员上传。