article.asp

浪人文章系统

				GuResourceContent=Replace(GuResourceContent,""&GuContentReplace2(0)&"",""&GuContentReplace2(1)&"")
			else
				GuResourceContent=GuResourceContent
			end if
			next
		end if

		DayDate=rsAr4("Ar_DayDate")
		WeekDate=rsAr4("Ar_WeekDate")
		MonthDate=rsAr4("Ar_MonthDate")

	if datediff("d",DayDate,date)>=1 then
		GuSQL="update "&GuTablePrefix&"_Article set Ar_DayDate=Now(),Ar_DayHits=0 where Ar_ID="&Trim(Request.QueryString("ID"))
		GuConn.execute GuSQL
	end if

	if datediff("Ww",WeekDate,date)>=1 then
		GuSQL="update "&GuTablePrefix&"_Article set Ar_WeekDate=Now(),Ar_WeekHits=0 where Ar_ID="&Trim(Request.QueryString("ID"))
		GuConn.execute GuSQL
	end if

	if datediff("M",MonthDate,date)>=1 then
		GuSQL="update "&GuTablePrefix&"_Article set Ar_MonthDate=Now(),Ar_MonthHits=0 where Ar_ID="&Trim(Request.QueryString("ID"))
		GuConn.execute GuSQL
	end if

	GuSQL="update "&GuTablePrefix&"_Article set Ar_DayHits=Ar_DayHits+1,Ar_WeekHits=Ar_WeekHits+1,Ar_MonthHits=Ar_Monthhits+1,Ar_AllHits=Ar_AllHits+1 where Ar_ID="&Trim(Request.QueryString("ID"))
	GuConn.execute GuSQL

%><table border="0" cellpadding="0" cellspacing="1" width="558" height="10" class="T_BGColor_2">
	<tr>
	 <td width="558" height="10" class="T_TD_BGColor_2_2" align="center" colspan="2"><table border="0" width="98%" height="10">
	<tr>
	 <td height="25" valign="bottom"><font style="color:<%=rsAr4("Ar_NameColor")%>" class="BlackV12"><%=rsAr4("Ar_Name")%></font></td>
	</tr>
	<tr>
	 <td height="1"></td>
	</tr>
	<tr>
	 <td height="1" class="T_BGColor_2"></td>
	</tr>
	<tr>
	 <td height="20" align="right" valign="top"><font class="BlackS12">[分类:<a href="List.asp?So=<%=rsAr4("Ar_SortID")%>" class="LightgrayS12"><%=So_Name%></a>/<a href="List.asp?So=<%=rsAr4("Ar_SortID")%>&AS=<%=rsAr4("Ar_AsSortID")%>" class="LightgrayS12"><%=AS_Name%></a>][字号:<a href="JavaScript:GuChangeSize(18);" class="BlackS12">18px</a>/<a href="JavaScript:GuChangeSize(14);" class="BlackS12">14px</a>/<a href="JavaScript:GuChangeSize(12);" class="BlackS12">12px</a>][颜色:<a href="JavaScript:GuChangeColor('000000');" class="BlackS12">■</a><a href="JavaScript:GuChangeColor('0000FF');" class="BlueS12">■</a><a href="JavaScript:GuChangeColor('008000');" class="GreenS12">■</a><a href="JavaScript:GuChangeColor('808000');" class="OliveS12">■</a><a href="JavaScript:GuChangeColor('7B287B');" class="PurpleS12">■</a><a href="JavaScript:GuChangeColor('FF0000');" class="RedS12">■</a>]</font></td>
	</tr>
	<tr>
	 <td height="260" valign="top"><table border="0" width="6" height="6" align="right"><tr><td align="right" valign="top"><!--#include file="Include/Ads5.asp"--></td></tr></table><span id="GuArticleContent" class="BlackS12"><%=GuResourceContent%></span><br><br><!--#include file="Include/Ads6.asp"--></td>
	</tr>
	<tr>
	 <td height="20"><font class="BlackS12"><%
Response.write "文章来源:"
if rsAr4("Ar_FromURL")="" or rsAr4("Ar_FromURL")="http://" then
	if rsAr4("Ar_From")<>"" then
		Response.write rsAr4("Ar_From")
	else
		Response.write "网络"
	end if
else
	Response.write "<a href="""&rsAr4("Ar_FromURL")&""" class=""BlackV12"" target=""_blank"">"
	if rsAr4("Ar_From")<>"" then
		Response.write rsAr4("Ar_From")
	else
		Response.write rsAr4("Ar_FromURL")
	end if
	Response.write "</a>"
end if
Response.write "&nbsp;&nbsp;"
Response.write "作者:"
if rsAr4("Ar_AuthorEmail")<>"" then
	if rsAr4("Ar_Author")<>"" then
		Response.write "<a href=""mailto:"&rsAr4("Ar_AuthorEmail")&""" class=""BlackV12"" target=""_blank"">"&rsAr4("Ar_Author")&"</a>"
	else
		Response.write "<a href=""mailto:"&rsAr4("Ar_AuthorEmail")&""" class=""BlackV12"" target=""_blank"">"&rsAr4("Ar_AuthorEmail")&"</a>"
	end if
elseif rsAr4("Ar_AuthorHomepage")<>"" then
	if rsAr4("Ar_Author")<>"" then
		Response.write "<a href="""&rsAr4("Ar_AuthorHomepage")&""" class=""BlackV12"" target=""_blank"">"&rsAr4("Ar_Author")&"</a>"
	else
		Response.write "<a href="""&rsAr4("Ar_AuthorHomepage")&""" class=""BlackV12"" target=""_blank"">"&rsAr4("Ar_AuthorHomepage")&"</a>"
	end if
else
	if rsAr4("Ar_Author")<>"" then
		Response.write rsAr4("Ar_Author")
	else
		Response.write "未知"
	end if
end if
%>&nbsp;&nbsp;整理日期:<%=rsAr4("Ar_DateTime")%></font></td>
	</tr>
	<tr>
	 <td height="20" align="right"><font class="BlackS12">[文章浏览:<!-- 本日:<font class="BlackG12"><%=rsAr4("Ar_DayHits")%></font>　本周:<font class="BlackG12"><%=rsAr4("Ar_WeekHits")%></font>　本月:<font class="BlackG12"><%=rsAr4("Ar_MonthHits")%></font>　总计: --><font class="BlackG12"><%=rsAr4("Ar_AllHits")%></font>]<%if GuestbookAllow="1" then%>[<a href="Guestbook.asp?ID=<%=Trim(Request.QueryString("ID"))%>" class="BlackS12">留言反馈</a>]<%end if%><%if SendmailAllow="1" then%>[<a href="Sendmail.asp?ID=<%=Trim(Request.QueryString("ID"))%>" class="BlackS12">发送文章</a>]<%end if%>[<a href="Printpage.asp?ID=<%=Trim(Request.QueryString("ID"))%>" class="BlackS12">打印文章</a>]</font></td>
	</tr></table></td>
  </tr>
 <%
rsAr4.close
set rsAr4=Nothing


if ArticleReadNoteShow="1" then
	dim rsAr8
	set rsAr8=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_Config where Co_ID=1"
	rsAr8.open GuSQL,GuConn,1,1
	if not(rsAr8.eof and rsAr8.bof) then
%>
  <tr>
	<td width="80" height="28" class="T_TD_BGColor_2_2" valign="top"><table border="0" width="100%" height="10" cellspacing="0" cellpadding="0"><tr><td height="27" align="center"><font class="BlackS12">阅读说明</font></td></tr><tr><td height="1" class="T_BGColor_2"></td></tr></table></td>
	<td width="475" height="28" class="T_TD_BGColor_2_2" align="center" valign="top"><table border="0" width="98%" height="10" cellspacing="0" cellpadding="0"><tr><td height="8"></td></tr><tr><td height="10"><font class="BlackS12"><%=rsAr8("Co_ArticleReadNoteText")%></font></td></tr><tr><td height="6"></td></tr></table></td>
  </tr>
<%
	end if
	rsAr8.close
	set rsAr8=Nothing
end if

if ArticleLikeShow="1" then
	dim rsAr6
	set rsAr6=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select top "&ArticleLikeNum&" Ar_ID,Ar_Name,Ar_NameColor from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and Ar_Name like '%"& Left((GuKeyword),4) &"%' and  Ar_ID<>"&Trim(Request.QueryString("ID"))             
	rsAr6.open GuSQL,GuConn,1,1
	if not (rsAr6.eof and rsAr6.bof) then
%>
  <tr>
	<td width="80" height="28" class="T_TD_BGColor_2_2" valign="top"><table border="0" width="100%" height="10" cellspacing="0" cellpadding="0"><tr><td height="27" align="center"><font class="BlackS12">相关文章</font></td></tr><tr><td height="1" class="T_BGColor_2"></td></tr></table></td>
	<td width="475" height="28" class="T_TD_BGColor_2_2" align="center" valign="top"><table border="0" cellspacing="0" cellpadding="0" width="98%" height="10"><tr><td height="8"></td></tr>
	<tr>
	 <td height="10"><%do while not rsAr6.eof %><font class="BlackS12">·</font><a href="Article.asp?ID=<%=rsAr6("Ar_ID")%>" style="color:<%=rsAr6("Ar_NameColor")%>" class="BlackV12"><%=rsAr6("Ar_Name")%></a><br><%
	rsAr6.movenext             
	loop
%></td></tr><tr><td height="6"></td></tr></table></td>
  </tr>
<%
	end if
	rsAr6.close
	set rsAr6=Nothing
end if
%>
<!--
  <tr>
	<td width="80" height="0" class="T_TD_BGColor_2_2"></td>
	<td width="475" height="0" class="T_TD_BGColor_2_2"></td>
  </tr>
//-->
</table>
<%
else
	Response.write "<table border=""0"" cellpadding=""0"" cellspacing=""1"" width=""558"" height=""80"" class=""T_BGColor_2""><tr><td class=""T_TD_BGColor_2_2"" align=""center""><img src=""Style/"&WebSiteStyle&"/Title_07.gif"" width=""60"" height=""60"" border=""0"" align=""absmiddle"">&nbsp;<font class=""MaroonS12"">数据获取失败，没有找到相关数据</font></td></tr></table>"
end if
%></td>
  </tr>
  <tr>
	<td height="6"></td>
  </tr>
 </table></td>
 </tr>
</table>
</center>

<!--#include file="Include/Bottom.asp"-->

</body>
</html>

<%CloseDatabase%>