📄 article.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLUser.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockUser.asp"-->
<!--#include file="Include/Style.asp"-->
<%
if Trim(Request.QueryString("ID"))<>"" then
dim rsAr1
dim SortID,So_Name,AsSortID,AS_Name,Ar_Name,isArticle
set rsAr1=Server.CreateObject("Adodb.RecordSet")
GuSQL="select "&GuTablePrefix&"_Sort.So_Name,"&GuTablePrefix&"_AsSort.AS_Name,"&GuTablePrefix&"_Article.Ar_Name,"&GuTablePrefix&"_Article.Ar_SortID,"&GuTablePrefix&"_Article.Ar_AsSortID,"&GuTablePrefix&"_Article.Ar_UserPublish from "&GuTablePrefix&"_Sort,"&GuTablePrefix&"_AsSort,"&GuTablePrefix&"_Article where "&GuTablePrefix&"_Article.Ar_SortID="&GuTablePrefix&"_Sort.So_ID and "&GuTablePrefix&"_Article.Ar_AsSortID="&GuTablePrefix&"_AsSort.AS_ID and "&GuTablePrefix&"_Article.Ar_UserPublish='0' and "&GuTablePrefix&"_Article.Ar_ID="&Trim(Request.QueryString("ID"))
rsAr1.open GuSQL,GuConn,1,1
if rsAr1.eof and rsAr1.bof then
isArticle=false
else
SortID=rsAr1("Ar_SortID")
So_Name=rsAr1("So_Name")
AsSortID=rsAr1("Ar_AsSortID")
AS_Name=rsAr1("AS_Name")
Ar_Name=rsAr1("Ar_Name")
isArticle=true
end if
rsAr1.close
set rsAr1=Nothing
else
isArticle=false
end if
%>
<html>
<head>
<title><%=Ar_Name%>__<%=WebSiteName%></title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="<%=WebSiteMKeywords%>">
<meta name="Description" Content="<%=WebSiteMDescription%>">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<link type="text/css" rel="stylesheet" href="Style/<%=WebSiteStyle%>/Style.css">
<Script Language="JavaScript" src="Include/Function.js"></Script>
<Script Language="JavaScript" src="Include/PopText.js"></Script>
</head>
<body leftMargin="0" topMargin="0" bgcolor="#FFFFFF">
<!--#include file="Include/Top.asp"-->
<!--#include file="Include/Menu.asp"-->
<!--#include file="Include/Ads2.asp"-->
<center>
<table border="0" cellpadding="0" cellspacing="1" width="780" height="10" class="T_BGColor_1">
<tr>
<td width="205" class="T_TD_BGColor_1_1" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%" height="10">
<tr>
<td height="8"></td>
</tr>
<%if ArticleSearchShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_Search.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=ArticleSearchTitle%></font></td></tr></table></td>
</tr>
<tr>
<td height="10" align="center" valign="top"><!--#include file="Include/Search.asp"--></td>
</tr>
<%end if%>
<tr>
<td height="1" align="center" valign="top"><!--#include file="Include/Ads7.asp"--></td>
</tr>
<%if ArticleHitsWeekShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_TodayHits.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=ArticleHitsWeekTitle%></font></td></tr></table></td>
</tr>
<tr>
<td height="10"><%
if isArticle=True then
dim rsWeekHits
set rsWeekHits=Server.CreateObject("Adodb.RecordSet")
GuSQL="select top "&ArticleHitsWeekNum&" Ar_ID,Ar_Name,Ar_NameColor,Ar_DateTime,Ar_WeekHits from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and Ar_SortID="&SortID&" order by Ar_WeekHits desc,Ar_ID desc"
rsWeekHits.open GuSQL,GuConn,1,1
if rsWeekHits.eof and rsWeekHits.bof then
Response.write "<br> <font class=""SilverS12"">没有找到相关数据</font><br><br>"
else
do while not rsWeekHits.eof
Response.write " <img src=""Style/"&WebSiteStyle&"/Title_02.gif"" border=""0""><a href=""Article.asp?ID="&rsWeekHits("Ar_ID")&""" style=""color:"&rsWeekHits("Ar_NameColor")&""" class=""BlackV12"" title="""&rsWeekHits("Ar_Name")&" "&rsWeekHits("Ar_DateTime")&""">"&GuStringCut(rsWeekHits("Ar_Name"),24)&"</a><br>"
rsWeekHits.movenext
loop
end if
rsWeekHits.close
set rsWeekHits=Nothing
else
Response.write "<br> <font class=""SilverS12"">没有找到相关数据</font><br><br>"
end if
%></td>
</tr>
<%end if%>
<%if ArticleHitsMonthShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_WeekHits.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=ArticleHitsMonthTitle%></font></td></tr></table></td>
</tr>
<tr>
<td height="10"><%
if isArticle=True then
dim rsMonthHits
set rsMonthHits=Server.CreateObject("Adodb.RecordSet")
GuSQL="select top "&ArticleHitsMonthNum&" Ar_ID,Ar_Name,Ar_NameColor,Ar_DateTime,Ar_MonthHits from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and Ar_SortID="&SortID&" order by Ar_MonthHits desc,Ar_ID desc"
rsMonthHits.open GuSQL,GuConn,1,1
if rsMonthHits.eof and rsMonthHits.bof then
Response.write "<br> <font class=""SilverS12"">没有找到相关数据</font><br><br>"
else
do while not rsMonthHits.eof
Response.write " <img src=""Style/"&WebSiteStyle&"/Title_02.gif"" border=""0""><a href=""Article.asp?ID="&rsMonthHits("Ar_ID")&""" style=""color:"&rsMonthHits("Ar_NameColor")&""" class=""BlackV12"" title="""&rsMonthHits("Ar_Name")&" "&rsMonthHits("Ar_DateTime")&""">"&GuStringCut(rsMonthHits("Ar_Name"),24)&"</a><br>"
rsMonthHits.movenext
loop
end if
rsMonthHits.close
set rsMonthHits=Nothing
else
Response.write "<br> <font class=""SilverS12"">没有找到相关数据</font><br><br>"
end if
%></td>
</tr>
<%end if%>
</table></td>
<td width="572" class="T_TD_BGColor_1_2" align="center" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="98%" height="10">
<tr>
<td height="8"></td>
</tr>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_R.gif"><table border="0" cellpadding="0" cellspacing="0" width="288" height="26"><tr><td width="45" align="center"><img src="Style/<%=WebSiteStyle%>/Td_T_Article.gif" width="26" height="26" border="0"></td><td width="240" valign="bottom"><font class="WSText">文 章 详 细 内 容</font></td></tr></table></td>
</tr>
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="10" align="center" valign="top"><%
if isArticle=True then
dim rsAr4,DayDate,WeekDate,MonthDate,GuResourceContent
set rsAr4=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Article where Ar_ID="&Trim(Request.QueryString("ID"))
rsAr4.open GuSQL,GuConn,1,1
GuKeyword=rsAr4("Ar_Name")
GuResourceContent=rsAr4("Ar_Content")
dim rsAr9,GuContentReplace0,GuContentReplace1,GuContentReplace2,iCR
set rsAr9=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Config where Co_ID=1"
rsAr9.open GuSQL,GuConn,1,1
if not(rsAr9.eof and rsAr9.bof) then
GuContentReplace0=rsAr9("Co_GuContentReplace0")
end if
rsAr9.close
set rsAr9=Nothing
if GuContentReplace0<>"" then
GuContentReplace1=split(GuContentReplace0,vbCrLf)
for iCR=0 to ubound(GuContentReplace1)
if not GuContentReplace1(iCR)="" then
GuContentReplace2=split(GuContentReplace1(iCR),"=")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -