showsummary_body.asp

南鄂电子商务学校网: 学校概况、校园动态、师资力量、教学成果、师生论坛、友情链接

<%sub showsummary_body()

sql="select * from summary where summary_id="&request.querystring("summary_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%> 
<table width="<%=tablewidth%>" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td width="580" valign="top" bgcolor="#eaf4ff" class="line"> 
      <table width="98%" border="0" align="center" cellpadding="6" cellspacing="0" bgcolor="#F7F7F7" style="border-collapse: collapse">
        <tr> 
              <td align="center" background="images/dh.gif" class="linee"><b><%=rs("summary_title")%></b></td>
            </tr>
				<tr>
              <td bgcolor="#FFFFFF" align="center" class="linee"><font color="#FF0000">来源：</font><%=rs("summary_from")%>
                <font color="#FF0000">发表日期：</font><%=rs("summary_date")%> 
                <font color="#FF0000">阅读次数：</font><%=rs("summary_count")%></td>
            </tr>
            <tr> 
              <td valign="top" bgcolor="#FFFFFF" class="lineee"><br><%=ubb2html(formatStr(autourl(rs("summary_content"))),true,true)%> 
                <br> <br></td>
            </tr>
			<tr> 
              <td valign="top" bgcolor="#FFFFFF" class="lineee">
                <b>相关文章</b><br>
                <%sql="select top 5 * from summary where summary_content like '%"&rs("summary_keyword")&"%' and summary_id <> "&rs("summary_id")&" order by summary_date DESC"
			set rs2=server.createobject("adodb.recordset")
            rs2.open sql,conn,1,1
			do while not rs2.eof
            %>
                <a href="showsummary.asp?summary_id=<%=rs2("summary_id")%>"> 
                <%=rs2("summary_title")%></a> 
                <%=rs2("summary_date")%><br>
                <%
			rs2.movenext
			loop
			if rs2.eof and rs2.bof then
			response.write "没有相关文章"
			end if
			rs2.close
			set rs2=nothing
			%>
                </td>
            </tr>
          </table>
      <br>
    </td>
    <td width="190" align="center" valign="top" bgcolor="#09DD77"> 
      <%call summarycat()%>
    </td>
  </tr>
</table>
<%end sub%>