📄 showarticle.asp
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/code.asp"-->
<!--#include file="inc/new.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/SqlIn.Asp"-->
<!--#include file="inc/format.asp"-->
<%call head()%>
<body>
<div id="top-bg">
<div id="public-body">
<!--#include file="Top.asp"-->
<div id="page-link">
<%
dim id
id=htmlencode(request("id"))
if id="" or (not isnumeric(id)) then
response.write "<script>alert('参数不正确！！！');window.close()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="update Gq_article set art_count=art_count+1 where id="&id
conn.execute sql
sql="select * from Gq_article where id="&request.querystring("id")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
rs.close
response.write "<script>alert('无此数据！！！');window.close()</script>"
response.end
else
start="浏览"&rs("title")&""
%>
<TABLE width="984" border=0 align=center cellPadding=0 cellSpacing=0>
<tr>
<td height="10" colSpan="9" align="center" bgcolor="#FFFFFF">
<TABLE width=984 border=1 align=center cellPadding=0 cellSpacing=1 bordercolor="#990000">
<TBODY>
<TR>
<TD width="755" vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=7></TD>
<TD vAlign=top><TABLE cellSpacing=0 cellPadding=0 width=756 border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center" bgcolor="#FF9900"><b><font size=3 color="FFFFFF"><%=rs("art_title")%></font></b></td>
</tr>
<tr></tr>
<tr>
<td height="37" align="center"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right" valign="top"><font color="000000">文章作者:<%=rs("writer")%></font></td>
<td align="center" valign="top"><font color="000000">文章来源:<%=rs("copyright")%></font></td>
<td valign="top">更新时间：<%=rs("art_date")%><font color="000000"> </font></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" bgcolor="#990000"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=4></TD>
<TD>
<table width="100%" align="center" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;text-align:left">
<TBODY>
<TR>
<TD align=left><div style="FONT-SIZE: 14px; FONT-FAMILY: 宋体; word-break:break-all;table-layout:fixed;line-height:150%;width:99%"><%=rs("content")%></div></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=4></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD width="700" height="40" align="right"><font color="000000">浏览次数:<%=rs("art_count")%></font></TD>
</TR>
<TR>
<TD height="10" align="right"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width="241" align="right" vAlign=top>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="195" height="28" align="center" bgcolor="#FF9900"><strong><font color="#FFFFFF">最新文章</font></strong></td>
</tr>
<tr height="3"></tr>
<tr>
<td valign="top">
<%
set rs3=server.createobject("adodb.recordset")
sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article order by art_date DESC"
rs3.open sql,conn,1,1
do while not rs3.eof
%>
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center">
<TR>
<TD height="20" valign="middle"><img src="index_img/t_pu.gif" width="19" height="17"><a href='showarticle.asp?cat_id=<%=rs3("cat_id")%>&id=<%=rs3("id")%>' target='_blank' Title='文章标题：<%=rs3("art_title")%>
发表时间：<%=rs3("art_date")%>
阅读次数：<%=rs3("art_count")%>次'><font color="#333333"><%=left(rs3("art_title"),12)%>...</font></a></TD>
</TR>
</TABLE>
<%
rs3.movenext
loop
if rs3.eof and rs3.bof then
response.write "<div align=center><br>当前没有热门文章<br><br></div>"
end if
rs3.close
set rs3=nothing
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr></tr>
<tr height="3"></tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center" bgcolor=#FF9900 width="195"><font color="#FFFFFF"><strong>热门文章</strong></font></td>
</tr>
<tr height="3"> </tr>
<tr>
<td valign="top">
<%
set rs3=server.createobject("adodb.recordset")
sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article order by art_count DESC"
rs3.open sql,conn,1,1
do while not rs3.eof
%>
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center">
<TR>
<TD height="20" align="left"><img src="index_img/t_pu.gif" width="19" height="17"><a href='showarticle.asp?cat_id=<%=rs3("cat_id")%>&id=<%=rs3("id")%>' target='_blank' Title='文章标题：<%=rs3("art_title")%>
发表时间：<%=rs3("art_date")%>
阅读次数：<%=rs3("art_count")%>次'><font color="#333333"><%=left(rs3("art_title"),10)%>...</font></a></TD>
</TR>
</TABLE>
<%
rs3.movenext
loop
if rs3.eof and rs3.bof then
response.write "<div align=center><br>当前没有热门文章<br><br></div>"
end if
rs3.close
set rs3=nothing
%>
</td>
</tr>
</table></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
<%
call footer()
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -