📄 showart_body.asp

📁 不错的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>
<style type="text/css">
A{TEXT-DECORATION: none}
A:link {COLOR: #666666; FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:visited {COLOR: #666666; FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:active {FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:hover {BORDER-BOTTOM: 1px dotted; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: #ff6600; TEXT-DECORATION: none}
BODY {
FONT-SIZE: 12px;
COLOR: #666666;
FONT-FAMILY:  宋体;
background-color: #ffffff; 
background-image: url(img/show.gif);
SCROLLBAR-FACE-COLOR: #e8e7e7; 
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; 
SCROLLBAR-SHADOW-COLOR: #ffffff; 
SCROLLBAR-3DLIGHT-COLOR: #cccccc; 
SCROLLBAR-ARROW-COLOR: #ff6600; 
SCROLLBAR-TRACK-COLOR: #EFEFEF; 
SCROLLBAR-DARKSHADOW-COLOR: #b2b2b2; 
SCROLLBAR-BASE-COLOR: #000000
}
TABLE {BORDER-COLLAPSE: collapse; FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
.button{height:18px;width:62px;background:#f6f6f9 url(img/ButtonBg.gif); border:solid 1px #5589AA;color: #000000 ;FONT-SIZE: 9pt}
.lanyu{border:solid 1px #5589AA;color: #000000 ; font-size: 12px;}
.font {  filter: DropShadow(Color=#cccccc, OffX=2, OffY=1, Positive=2); text-decoration: none; font-size: 9pt}
</style>
<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>

<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=qq_595911 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/title.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('qq_3414630'));" class="button">&nbsp;<input type="button"  value="打印"  onClick="javascript:window.print()" class="button">&nbsp;<input type="button"  value="返回"  onClick="window.open('<%=homeurl%>')" 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 + -