res.asp

本系统是一套开源WEB的网站管理系统

<!--#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  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'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 resClass()%></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 resCount("res.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("res")%></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 hotres()%></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 "&resOrderNum&" * from ms_res where catID="&catID&" and classID="&classID&" and res_good=true order by res_date desc"
			 Call resIsGood()
			 'newsql="select top "&resOrderNum&" * from ms_res where catID="&catID&" and classID="&classID&" and datedIff('d',res_date,#"&now()&"#)<=1 order by res_date desc"
			 newsql="select top "&resOrderNum&" * from ms_res where catID="&catID&" and classID="&classID&" order by res_date desc"
			 Call newRes()
		 ElseIf (catID<>"" and isNumeric(catID)) AND classID="" Then
			 isGoodTitle="本类推荐"
			 sql="select top "&resOrderNum&" * from ms_res where catID="&catID&" and res_good=true order by res_date desc"
			 Call resIsGood()
			' newsql="select top 10 * from ms_res where catID="&catID&" and datedIff('d',res_date,#"&now()&"#)<=1 order by res_date desc"
			 newsql="select top "&resOrderNum&" * from ms_res where catID="&catID&" order by res_date desc"
			 Call newRes()
		 Else
			 isGoodTitle="本站推荐"
			 sql="select top "&resOrderNum&" * from ms_res where res_good=true order by res_date desc"
			 Call resIsGood()
			'newsql="select top 10 * from ms_res where datedIff('d',res_date,#"&now()&"#)<=1 order by res_date desc"
			newsql="select top "&resOrderNum&" * from ms_res order by res_date desc"
			 Call newRes()
		 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">
<%	catID=Request.QueryString("catID")
	If Request.QueryString("catID")="" AND Request.QueryString("classID")="" Then
		sql="select * from ms_res_class as c,ms_res as a where c.classID=a.classID order by a.res_date desc"
		Set rs=Server.CreateObject("ADODB.RecordSet")
		rs.Open sql,connstr,1,1
		n=resPage
		url="res.asp?"
		nextpage=pagetitle(rs,n,url,"条记录")
		ListTitle="资源列表 | 全部资源"
		Call showresClassTitle()
	ElseIf Request.QueryString("catID")<>"" AND Request.QueryString("classID")="" Then
		If not isNumeric(catID) Then
			showmsg "<li>请输入一个数字整型参数！</li>","参数出错"
		Else
			sql="select * from ms_res_class as c,ms_res as a,ms_res_cat as cat where c.classID=a.classID and a.catID=cat.catID and a.catID="&catID&" order by a.res_date desc"
			Set rs=Server.CreateObject("ADODB.RecordSet")
			rs.Open sql,connstr,1,1
			If Not rs.Eof Then
				n=resPage'每页显示记录数
				ListTitle="资源列表 | "&rs("catName")
				url="res.asp?catID="&catID&"&"
				nextpage=pagetitle(rs,n,url,"条记录")
				Call showresClassTitle()
			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_res_class as c,ms_res as a,ms_res_cat as cat where c.classID=a.classID and a.catID=cat.catID and a.classID="&classID&" and a.catID="&catID&" order by a.res_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=resPage'每页显示记录数
				url="res.asp?catID="&catID&"&classID="&classID&"&"
				nextpage=pagetitle(rs,n,url,"条记录")
				Call showresClassTitle()
			Else
				showmsg "<li>您要查找的 ID 分类不存在或者已经被删除了</li>","系统返回信息"
			End If
		End If
	End If%>
</td></tr></table>
<!--#include file="ms_end.asp"-->
<%
Sub hotres()
	sql="select top "&resOrderNum&" * from ms_res where res_clicks>0 order by res_clicks desc"
	Set rs=conn.execute(sql)
	If Not rs.Eof and not rs.Bof Then
	Do While Not rs.Eof%>
		<div class="rlineX">☉<a href="showres.asp?id=<%=rs("id")%>" target="_blank" title="资源标题：<%=rs("res_title")%>&#10;发布时间：<%=rs("res_date")%>&#10;浏览次数：<%=rs("res_clicks")%>"><%=cutStr(rs("res_title"),14)%></a></div>
<%
		rs.MoveNext
	Loop
	Else
		Response.Write("暂无热门资源！")
	End If
rs.Close
Set rs=Nothing
End Sub
Sub resIsGood()%>
<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="showres.asp?id=<%=rs("id")%>" target="_blank" title="资源标题：<%=rs("res_title")%>&#10;发布时间：<%=rs("res_date")%>&#10;浏览次数：<%=rs("res_clicks")%>"><%=cutStr(rs("res_title"),14)%></a></div>
<%
		rs.MoveNext
	Loop
	Else
		Response.Write("暂无推荐资源！")
	End If
rs.Close
Set rs=Nothing
%>
</div>
</div>
<%
End Sub
Sub newRes()%>
<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(sql)
	If Not rs.Eof and not rs.Bof Then
	Do While Not rs.Eof%>
		<div class="rlineX">☉<a href="showres.asp?id=<%=rs("id")%>" target="_blank" title="资源标题：<%=rs("res_title")%>&#10;发布时间：<%=rs("res_date")%>&#10;浏览次数：<%=rs("res_clicks")%>"><%=cutStr(rs("res_title"),14)%></a></div>
<%
		rs.MoveNext
	Loop
	Else
		Response.Write("暂无最新资源！")
	End If
rs.Close
Set rs=Nothing
%>
</div>
</div>
<%
End Sub
Sub showresClassTitle()%>
<div class="groupblock">
<table cellspacing="0" class="naviTable"><tr><td class="naviL"></td><td class="naviM"><span class="rtt"><%=ListTitle%></span></td><td class="naviR"></td></tr></table>
<div class="lrmc">
<%If Not rs.Eof and Not rs.Bof Then%>
	<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=res.asp?catID=<%=rs("a.catID")%>&classID=<%=rs("a.classID")%>><%=rs("class")%></a>] <a href=showres.asp?id=<%=rs("id")%>  title="资源标题：<%=rs("res_title")%>&#10;发布日期：<%=rs("res_date")%>&#10;浏览次数：<%=rs("res_clicks")%>" target="_blank"><font color="<%=rs("titlecolor")%>"><%=cutStr(rs("res_title"),32)%></font></a>
		<%If rs("res_good")=True Then
			response.write("『<font color='#ff0000'>推荐</font>』")
		ElseIf DateDIff("d",rs("res_date"),now)<7 Then
			response.write("&nbsp;<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("res_date"),vbShortDate)&"</font>")	
		response.write("</td>")
		response.write("<td class=""listr"">")
			response.write(rs("res_Clicks"))
		response.write("</td></tr>")
		rs.MoveNext
		lineNo=lineNo+1
	Loop%>
	</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 resClass()
sql="select * from ms_res_cat"
set bigrs=conn.execute(sql)
response.write("<table align=""center"" width=""180"" class=""text"">")
Do While Not bigrs.Eof
	response.write("<tbody><tr onmouseover=""this.style.cursor='hand'""><td><img src=""images/+.gif"" align=""absmiddle"" onClick=""show(this)"" alt=""单击展开""> <a href=res.asp?catID="&bigrs(0)&" onClick=""show(this)"">"&bigrs(1)&"</a></td></tr></tbody>")
		reschildclass(bigrs(0))
	bigrs.MoveNext
Loop
response.write("</table>")
bigrs.close
End Sub
sub reschildclass(bigid)
childsql="select * from ms_res_class where catID="&bigid
Set childrs=conn.execute(childsql)
response.write("<tbody>")
Do While Not childrs.Eof
	response.write("<tr><td>&nbsp;&nbsp;<img src=""images/-.gif"" align=""absmiddle""> <a href=res.asp?catID="&bigid&"&classID="&childrs(0)&">"&childrs(2)&"</a></td></tr>")
	childrs.MoveNext
Loop
response.write("</tbody>")
childrs.close
end sub
Sub resCount(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 resNum,sum(res_clicks) as readNum from ms_res")
	cCount(0)=countrs(0)
	cCount(1)=conn.execute("select count(id) from ms_res where pass=false")(0)
	cCount(2)=conn.execute("select count(id) from ms_res where datediff('d',res_date,#"&now()&"#)=0 and pass=true")(0)
	cCount(3)=conn.execute("select count(id) from ms_res where datediff('d',res_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: [e-mail] , [e-mail]
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>