showachieve_body.asp

来自「南鄂电子商务学校网: 学校概况、校园动态、师资力量、教学成果、师生论坛、友情链接」· ASP 代码 · 共 53 行

<%sub showachieve_body()

sql="select * from achieve where achieve_id="&request.querystring("achieve_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="1" bgcolor="#F7F7F7" style="border-collapse: collapse">
        <tr> 
              <td background="images/dh.gif" bgcolor="#CCCCCC" class="linee" align="center"><p style="margin-top:0; margin-bottom:0"><b><%=rs("achieve_title")%></b></p></td>
         </tr>
		<tr>
              <td bgcolor="#FFFFFF" align="center" class="linee"><font color="#FF0000">来源：</font><%=rs("achieve_from")%>
                <font color="#FF0000">发表日期：</font><%=rs("achieve_date")%> 
                <font color="#FF0000">阅读次数：</font><%=rs("achieve_count")%></td>
            </tr>
            <tr> 
              <td valign="top" bgcolor="#FFFFFF" class="lineee"><br><%=ubb2html(formatStr(autourl(rs("achieve_content"))),true,true)%> 
                <br> <br></td>
            </tr>
			<tr> 
              <td valign="top" bgcolor="#FFFFFF" class="lineee">
                <b>相关文章</b><br> 
                <%sql="select top 5 * from achieve where achieve_content like '%"&rs("achieve_keyword")&"%' and achieve_id <> "&rs("achieve_id")&" order by achieve_date DESC"
			set rs2=server.createobject("adodb.recordset")
            rs2.open sql,conn,1,1
			do while not rs2.eof
            %>
                <a href="showachieve.asp?achieve_id=<%=rs2("achieve_id")%>"> 
                <%=rs2("achieve_title")%></a> 
                <%=rs2("achieve_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 achievecat()%>
    </td>
  </tr>
</table>
<%end sub%>