📄 shownews_body.asp

📁 音乐类型的好网站
💻 ASP
字号:
<%sub shownews_body()
sql="select * from news where news_id="&request.querystring("news_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>

<HTML>
<HEAD>
<title><%=rs("news_title")%>-：：：<%=WebName%>：：：</title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<BASE onmouseover="window.status='阿妙热音乐屋欢迎您到来，本站网址：<%=homeurl%>';return true">
<link href="admin/inc/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style3 {
	font-size: 12pt;
	color: #ff6600;
	font-weight: bold;
}
-->
</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 width=98% height="400" border=1 align=center cellspacing="10" bordercolor="#333333" rules=none>
<TR>
<TD width="100%">
<table width="96%" border="0" align="center">
        <tr> 
          <td height="20" align="center"><span class="style3"><%=rs("news_title")%></span></td>
</tr>
<tr>
<td height="20">------------------------------------------------------------来源：<a href="<%=homeurl%>"><%=rs("news_ahome")%></a></td>
</tr>
<tr>
  <td  align="left" valign="top" id=qq_595911 style="word-break:break-all;line-height:150%">
<%=ubb2html(formatStr(autourl(rs("news_content"))),true,true)%>
<br>
            ------------------------------------------------------------------------------------<br>
            &nbsp;<img src=img/none.gif border=0><img src=img/i8.gif border='0'>&nbsp;<b>相关新闻</b><br>
            <%sql="select * from news where news_content like '%"&rs("news_keyword")&"%' and news_id <> "&rs("news_id")&" order by news_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="shownews.asp?news_id=<%=rs2("news_id")%>"><%=rs2("news_title")%></a> <%=rs2("news_date")%><br>        
            <%
			rs2.movenext
			loop
			if rs2.eof and rs2.bof then
			response.write "&nbsp;"
			end if
			rs2.close
			set rs2=nothing
			%> 
</td>
</tr>
</table>
<%call br%>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#333333">
        <tr bgcolor="#990000"> 
<td><font color=red>日期：<%=rs("news_date")%> 查看：<%=rs("news_count")%></font></td>       
<td align="center"><input type="button"  value="复制"  onClick="copycode(findobj('qq_595911'));" class="button">&nbsp;<input type="button"  value="返回"  onClick="window.open('http://jiangheng.126.com')" class="button">&nbsp;<input type="button" name="close2" value="关闭"  onClick="window.close();return false;" class="button"></td>
</tr>
</table></td></tr>
</table>
<%
rs.close
set rs=nothing
end sub%>
⌨️ 快捷键说明

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