📄 showart_body.asp

📁 一个不错的企业网站
💻 ASP
字号:
<%sub showart_body()
sql="select * from art where art_id="&request.querystring("art_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<HTML>
<HEAD>
<title><%=rs("art_title")%></title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="inc/style.css" type=text/css rel=stylesheet>
<script language="JavaScript">
function findobj(n, d) {
var p,i,x; if(!d) d=document;
if((p=n.indexOf("?"))>0 && parent.frames.length) {
d=parent.frames[n.substring(p+1)].document;
n=n.substring(0,p);
}
if(!(x=d[n])&&d.all) {
x=d.all[n];
}
for(i=0;!x && i<d.forms.length;i++) {
x=d.forms[i][n];
}
for(i=0;!x && d.layers&&i>d.layers.length;i++) {
x=MM_findObj(n,d.layers[i].document);
}
return x;
}
function copycode(obj) {
var rng = document.body.createTextRange();
rng.moveToElementText(obj);
rng.scrollIntoView();
rng.select();
rng.execCommand("Copy");
rng.collapse(false);
}
</script>
</head>
<BODY leftMargin=0 topMargin=0 MARGINHEIGHT="0" MARGINWIDTH="0">
<TABLE bgcolor="#ffffff" align=center border=1 cellPadding=0 cellSpacing=0 width=95% borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<TD width="98%"><%call br%>
<table width="96%" border="0" cellspacing="1" cellpadding="6" align="center" bgcolor="#BDC0C8">
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><font color=ff6600><b><%=rs("art_title")%></b></font></td>
        </tr>
      </table><%call br%>
<table width="96%" border="0" cellspacing="1" cellpadding="6" align="center" bgcolor="#BDC0C8">
        <tr> 
          <td align="center" bgcolor="#FFFFFF">
<table width="98%">
        <tr> 
          <td id=xiaoc style="word-break:break-all;line-height:150%"> 
            <br><font color=000000>
            <%=ubb2html(formatStr(autourl(rs("art_content"))),true,true)%></font> <br>
            <br>
            --------------------------------------------------------------------------------<br>
            &nbsp;<img src=img/none.gif border=0><img src=img/i8.gif border='0'>&nbsp;<b>相关文章</b><br>
            <%sql="select top 5 * from art where art_content like '%"&rs("art_keyword")&"%' and art_id <> "&rs("art_id")&" order by art_date DESC"
			set rs2=server.createobject("adodb.recordset")
            rs2.open sql,conn,1,1
			do while not rs2.eof
            %>&nbsp;<img src=img/none.gif border=0><img src=img/i3.gif border='0'>&nbsp;<a href="showart.asp?art_id=<%=rs2("art_id")%>&cat_id=<%=rs2("cat_id")%>"><%=rs2("art_title")%></a><%=rs2("art_date")%><br>
            <%
			rs2.movenext
			loop
			if rs2.eof and rs2.bof then
			response.write "没有相关文章"
			end if
			rs2.close
			set rs2=nothing
			%>
           </td>
        </tr>
      </table></td>
        </tr>
      </table>
      <%call br%>
      <table width="96%" border="0" cellspacing="1" cellpadding="6" align="center" bgcolor="#BDC0C8">
        <tr> 
<td bgcolor="ffffff"><font color=red>分类：
            <%sql="select cat_id,cat_name from a_cat where cat_id="&rs("cat_id")
		  set rs1=conn.execute(sql)%>
            <a href="art.asp?cat_id=<%=rs1("cat_id")%>" target="_blank"><font color="#009900"><%=rs1("cat_name")%></font></a> 
            <%rs1.close
		  set rs1=nothing%>日期：<%=left(rs("art_date"),10)%> 查看：<%=rs("art_count")%></font></td>       
<td align="center" bgcolor="#FFFFFF"><input type="button"  value="复制"  onClick="copycode(findobj('xiaoc'));" class="button">&nbsp;<input type="button"  value="打印"  onClick="javascript:window.print()" class="button">&nbsp;<input type="button" name="close2" value="关闭"  onClick="window.close();return false;" class="button"></td></tr>
      </table>
<%call br%>
<%call br%>
</td>
        </tr>
<TR><td height="1" width="100%" bgcolor="<%=border%>"></td></tr>
      </table>
<%end sub%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -