📄 art.asp
字号:
<!--#include file="include/ms_setting.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
catTitle="文章中心"
%>
<!--#include file="ms_start.asp"-->
<!--页面主体开始-->
<script language="JavaScript" src="include/wisdom.js"></script>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="mainMiddle_tdble"><tr>
<!--左栏开始-->
<td valign="top" class="mainMiddle_td_left">
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">会员登录</span></td><td class="ltr"></td></tr></table>
<div class="lmc"><%Call publiclogonModule()%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">文章统计</span></td><td class="ltr"></td></tr></table>
<div class="lmc" style="line-height:18px; padding-left:8px;"><%Call artCount("art.asp")%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">站内搜索</span></td><td class="ltr"></td></tr></table>
<div class="lmc"><%Call searchInput("art")%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">热门文章</span></td><td class="ltr"></td></tr></table>
<div class="lmc"><%Call hotart()%></div>
</div>
<%
catID=Request.QueryString("catID")
classID=Request.QueryString("classID")
If (catID<>"" and isNumeric(catID)) AND (classID<>"" and isNumeric(classID)) Then
isGoodTitle="本类推荐"
sql="select top "&articalOrderNum&" * from ms_art where catID="&catID&" and classID="&classID&" and art_good=true and pass=true order by art_date desc"
Call artIsGood()
newsql="select top "&articalOrderNum&" * from ms_art where catID="&catID&" and classID="&classID&" and datedIff('d',art_date,#"&now()&"#)<=1 and pass=true order by art_date desc"
Call newArt()
ElseIf (catID<>"" and isNumeric(catID)) AND classID="" Then
isGoodTitle="本类推荐"
sql="select top "&articalOrderNum&" * from ms_art where catID="&catID&" and art_good=true and pass=true order by art_date desc"
Call artIsGood()
newsql="select top "&articalOrderNum&" * from ms_art where catID="&catID&" and datedIff('d',art_date,#"&now()&"#)<=1 and pass=true order by art_date desc"
Call newArt()
Else
isGoodTitle="本站推荐"
sql="select top "&articalOrderNum&" * from ms_art where art_good=true and pass=true order by art_date desc"
Call artIsGood()
newsql="select top "&articalOrderNum&" * from ms_art where datedIff('d',art_date,#"&now()&"#)<=1 and pass=true order by art_date desc"
Call newArt()
End If
%>
</td>
<td class="mainMiddle_td_middle" onClick="switchCol(this)" title="关闭左栏"><img src="images/closeL.gif"></td>
<td width="*" valign="top" class="mainMiddle_td_right">
<div class="groupblock">
<table border="0" cellspacing="0" cellpadding="0" class="naviTable"><tr><td class="naviL"></td><td class="naviM"><span class="rtt">当前位置：<a class="classNavig" href="index.asp">本站首页</a>→<a class="classNavig" href="art.asp">文章中心</a></span></td><td class="naviR"></td></tr></table>
<div class="rmc"><%Call parentClass("select * from ms_art_cat","art.asp","catID","catName","ms_art_class","classID","class")%></div>
</div>
<% catID=Request.QueryString("catID")
If Request.QueryString("catID")="" AND Request.QueryString("classID")="" Then
Call picart()'图片文章
sql="select * from ms_art_class as c,ms_art as n where c.classID=n.classID and n.pass=true order by n.art_istop=true,n.art_date desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
n=articalPage'每页显示记录数
url="art.asp?"
nextpage=pagetitle(rs,n,url,"篇文章")
ListTitle="文章列表 | 全部文章"
Call showartClassTitle()
ElseIf Request.QueryString("catID")<>"" AND Request.QueryString("classID")="" Then
If not isNumeric(catID) Then
showmsg "<li>请输入一个数字整型参数！</li>","参数出错"
Else
sql="select * from ms_art_cat as cat,ms_art_class as c,ms_art as n where c.classID=n.classID and cat.catID=n.catID and n.catID="&catID&" and pass=true order by art_istop=true,n.art_date desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
If Not rs.Eof Then
n=articalPage'每页显示记录数
ListTitle="文章列表 | "&rs("catName")
url="art.asp?catID="&catID&"&"
nextpage=pagetitle(rs,n,url,"篇文章")
Call showartClassTitle()
Else
showmsg "<li>您要查找的 ID 分类不存在或者已经被删除了</li>","系统返回信息"
End If
End If
Else
dim classID
classID=Request.QueryString("classID")
If isInteger(catID)=false then
showmsg "<li>请输入一个数字整型参数！</li>","参数出错"
elseif isInteger(classID)=false Then
showmsg "<li>请输入一个数字整型参数！</li>","参数出错"
Else
sql="select * from ms_art_class as c,ms_art as n,ms_art_cat as cat where c.classID=n.classID and n.catID=cat.catID and n.classID="&classID&" and n.catID="&catID&" and pass=true order by art_istop=true,n.art_date desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
If Not rs.Eof Then
ListTitle="文章列表 | "&rs("catName")&" | <font color=""#ff4444"">"&rs("class")&"</font>"
n=articalPage'每页显示记录数
url="art.asp?catID="&catID&"&classID="&classID&"&"
nextpage=pagetitle(rs,n,url,"篇文章")
Call showartClassTitle()
Else
showmsg "<li>您要查找的 ID 分类不存在或者已经被删除了</li>","系统返回信息"
End If
End If
End If%>
<!--中间部分结束-->
</td></tr></table>
<!--#include file="ms_end.asp"-->
<%
Sub hotart()
Set rs=conn.execute("select top "&articalOrderNum&" * from ms_art where art_clicks>0 and pass=true order by art_clicks desc")
If Not rs.Eof and not rs.Bof Then
Do While Not rs.Eof%>
<div class="rlineX">☉<a href="showart.asp?id=<%=rs("id")%>" target="_blank" title="文章标题：<%=rs("art_title")%> 发布时间：<%=rs("art_date")%> 浏览次数：<%=rs("art_clicks")%>"><%=cutStr(rs("art_title"),13)%></a></div>
<%
rs.MoveNext
Loop
Else
Response.Write("暂无热门文章！")
End If
rs.Close
Set rs=Nothing
End Sub
Sub artIsGood()%>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt"><%=isgoodTitle%></span></td><td class="ltr"></td></tr></table>
<div class="lmc">
<%
Set rs=conn.execute(sql)
If Not rs.Eof and not rs.Bof Then
Do While Not rs.Eof%>
<div class="rlineX">☉<a href="showart.asp?id=<%=rs("id")%>" target="_blank" title="文章标题：<%=rs("art_title")%> 发布时间：<%=rs("art_date")%> 浏览次数：<%=rs("art_clicks")%>"><%=cutStr(rs("art_title"),13)%></a></div>
<%
rs.MoveNext
Loop
Else
Response.Write("暂无推荐文章！")
End If
rs.Close
Set rs=Nothing
%>
</div>
</div>
<%
End Sub
Sub newArt()%>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">最新文章</span></td><td class="ltr"></td></tr></table>
<div class="lmc">
<%
Set rs=conn.execute(newsql)
If Not rs.Eof and not rs.Bof Then
Do While Not rs.Eof%>
<div class="rlineX">☉<a href="showart.asp?id=<%=rs("id")%>" target="_blank" title="文章标题：<%=rs("art_title")%> 发布时间：<%=rs("art_date")%> 浏览次数：<%=rs("art_clicks")%>"><%=cutStr(rs("art_title"),13)%></a></div>
<%
rs.MoveNext
Loop
Else
Response.Write("暂无最新文章！")
End If
rs.Close
Set rs=Nothing
%>
</div>
</div>
<%
End Sub
Sub showartClassTitle()%>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="rtl"><script type="text/javascript">ico()</script></td><td class="rtc"><span class="rtt"><%=ListTitle%></span></td><td class="rtr"></td></tr></table>
<div class="Lrmc">
<%If Not rs.Eof and Not rs.Bof Then
response.write("<table border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""0"">")
lineNo=1
Do While NOT rs.EOF AND lineNo<=rs.pagesize%>
<tr><td class="listl">
[<a href=art.asp?catID=<%=rs("n.catID")%>&classID=<%=rs("n.classID")%>><%=rs("class")%></a>] <a href=showart.asp?id=<%=rs("id")%> title="文章标题：<%=rs("art_title")%> 发布日期：<%=rs("art_date")%> 浏览次数：<%=rs("art_clicks")%>" target="_blank"><font color="<%=rs("titlecolor")%>"><%=cutStr(rs("art_title"),28)%></font> <%If rs("picart")=1 Then response.write(" <img src=images/tuwen.gIf border=0 align=absmiddle title=""图片文章"">") End If%></a>
<%If rs("art_good")=True Then
response.write("『<font color='#ff0000'>推荐</font>』")
ElseIf DateDIff("d",rs("art_date"),now)<7 Then
response.write(" <img src='images/new_1.gIf' align='absmiddle'>")
End If
response.write("</td>")
response.write("<td class='listm'>")
response.write("<font class=date>"&FormatDateTime(rs("art_date"),vbShortDate)&"</font>")
response.write("</td>")
response.write("<td class='listr'>")
response.write(rs("art_Clicks"))
response.write("</td></tr>")
rs.MoveNext
lineNo=lineNo+1
Loop
response.write("</table>")
Else
response.write("<div class=""noNote"">暂时没有文章！</div>")
End If%>
</div>
<%If rs.RecordCount>n Then%>
<div class="page"><%=nextpage%></div>
<%End If
response.write("</div>")
rs.close
Set rs=Nothing
End Sub
Sub picart()%>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="rtl"><script type="text/javascript">ico()</script></td><td class="rtc"><span class="rtt">图片文章</span></td><td class="rtr"></td></tr></table>
<div class="rmc">
<%
sql="select top 4 * from ms_art where picart=1 and pass=true order by art_date desc"
Set rs=conn.execute(sql)
If Not rs.Eof And Not rs.Bof Then%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr><td height="10"></td></tr>
<tr>
<%
Do While Not rs.Eof%>
<td align="center">
<span class="v_bp1" style="margin-right:7px;margin-left:7px;margin-bottom:5px;margin-top:1px;width:115px;height:96px;"><span class="v_bp2" style="width:115px;height:94px;"><span class="v_bp3" style="width:115px;height:92px;padding:4px;text-align:center;">
<a href='showart.asp?id=<%=rs("id")%>'>
<img src="<%=rs("art_imgurl")%>" title="文章标题：<%=rs("art_title")%> 发布日期：<%=rs("art_date")%> 浏览次数：<%=rs("art_clicks")%>" style='width:115px;height:90px;border:1px solid #626262;' align='absmiddle'>
</a>
</span></span></span>
<center><a href='showpic.asp?id=<%=rs("id")%>'><%=cutStr(rs("art_title"),8)%></a></center>
</td>
<%
rs.MoveNext
Loop
%>
</tr></table></div>
<%
Else
Response.Write("<div class=""noNote"">暂时没有图片文章！</div>")
End If
rs.Close
Set rs=Nothing%>
</div>
<%
End Sub
Sub artCount(url)
if fabuPass=1 then
cCount=application("count"&url)
end if
if isEmpty(cCount) then
dim cCount(5),countrs
countrs=conn.execute("select count(id) as artNum,sum(art_clicks) as readNum from ms_art")
cCount(0)=countrs(0)
cCount(1)=conn.execute("select count(id) from ms_art where pass=false")(0)
cCount(2)=conn.execute("select count(id) from ms_art where datediff('d',art_date,#"&now()&"#)=0 and pass=true")(0)
cCount(3)=conn.execute("select count(id) from ms_art where datediff('d',art_date,#"&now()&"#)=1 and pass=true")(0)
cCount(4)=countrs(1)
if fabuPass=1 then
application("count"&url)=cCount
end if
set countrs=nothing
end if
%>
<li style="list-style-type: square;">文章总数：<%=cCount(0)%>篇<br></li>
<li style="list-style-type: square;">待审文章：<%=cCount(1)%>篇</li>
<li style="list-style-type: square;">今日更新：<%=cCount(2)%>篇</li>
<li style="list-style-type: square;">昨日更新：<%=cCount(3)%>篇</li>
<li style="list-style-type: square;">阅读次数：<%=cCount(4)%>次</li>
<%
End Sub
'========================================================
'MaoSin CMS 1.1 Power by maosin.com
'Email: maosin@163.com , maosin@maosin.com
'Web: http://www.maosin.com http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -