pic.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"-->
<%Call ms_menu()%>
<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 picCount("pic.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("pic")%></div>
		</div>
<%
sql="select top "&picOrderNum&" * from ms_pic where pic_clicks>1 and pass=true order by pic_clicks desc"
picOrderTitle="热门排行"
Call picOrder()
sql="select top "&picOrderNum&" * from ms_pic where pic_isgood=true and pass=true order by pic_date desc"
picOrderTitle="本站推荐"
Call picOrder()
%>
</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 cellspacing="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="pic.asp">图片素材</a></span></td><td class="naviR"></td></tr></table>
		<div class="rmc"><%Call parentClass("select * from ms_pic_cat","pic.asp","catID","catName","ms_pic_class","classID","class")%></div>
		</div>
<%
classID=Request.QueryString("classID")
catID=Request.QueryString("catID")
If catID="" And classID="" Then
	Call picBest()
	Set crs=conn.execute("select * from ms_pic_cat")
	If Not crs.Eof And Not crs.Bof Then
		Do While not crs.eof
			call picClass(crs("catID"),crs("catName"))
			crs.movenext
		Loop
	Else
		showmsg "<li>您要查找的 ID 分类不存在或者已经被删除了</li>","系统返回信息"
	End If
	crs.close
	set crs=Nothing
ElseIf catID<>"" and classID="" then
	If isInteger(catID)=false Then
		showmsg "<li>参数不是数字型参数！</li>","参数出错"
	Else
		myid=Request.QueryString("catID")
		Set crs=conn.execute("select * from ms_pic_class where catID="&catID)
		If Not crs.Eof And Not crs.Bof Then
			classCount=crs.RecordCount
			do while not crs.eof
				Call list(crs("classID"),crs("class"))
				crs.movenext
			loop
		Else
			showmsg "<li>您要查找的 ID 分类不存在或者已经被删除了</li>","系统返回信息"
		End If
		crs.close
		set crs=Nothing
	End If
Else
	If isInteger(catID)=false then
		showmsg "<li>请输入一个数字整型参数！</li>","参数出错"
	elseif isInteger(classID)=false Then
		showmsg "<li>请输入一个数字整型参数！</li>","参数出错"
	Else 
		sql="select * from ms_pic as p,ms_pic_class as c where c.classID=p.classID and p.catID="&catID&" and p.classID="&classID&" and pass=true"
		Set rs=Server.CreateObject("ADODB.RecordSet")
		rs.Open sql,connstr,1,1
		Call picClasslist()'图片列表
	End If
End If
%>
<!--中间部分结束-->
</td></tr></table>
<!--#include file="ms_end.asp"-->
<%
Sub picOrder()%>
<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"><%=picOrderTitle%></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="showpic.asp?id=<%=rs("id")%>" target="_blank" title="图片名称：<%=rs("pic_title")%>&#10;发布时间：<%=rs("pic_date")%>&#10;浏览次数：<%=rs("pic_clicks")%>"><%=cutStr(rs("pic_title"),14)%></a></div>
<%
		rs.MoveNext
	Loop
	Else
		Response.Write("此类暂无图片！")
	End If
rs.Close
Set rs=Nothing
%>
</div>
</div>
<%
End Sub
'==========================
'功能:图片推荐显示模块
'函数名:picBest()
'==========================
Sub picBest()%>
<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_pic where pic_isgood=true and pass=true order by pic_date desc"
Set rs=conn.execute(sql)
%>
<!--<marquee direction="left" behavior="scroll" scrollamount="2" scrolldeday="50">-->
	<table width="100%" border="0" cellpadding="0" cellspacing="0">
		<tr><td height="10"></td></tr>
		<tr>
<%Do while Not rs.Eof%>        
          <td valign="middle" 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='showpic.asp?id=<%=rs("id")%>' target="_blank">
			<img src="<%=rs("previewPicUrl")%>" ALT='图片名称：<%=rs("pic_title")%>&#10;发布会员：<%=rs("post_member")%>&#10;发布日期：<%=rs("pic_date")%>&#10;点击次数：<%=rs("pic_clicks")%>' style='width:115px;height:90px;border:1px solid #626262;' align='absmiddle'>
			</a>
			</span></span></span>
			<center><a href='showpic.asp?id=<%=rs("id")%>' target="_blank"><font class="text"><%=cutStr(rs("pic_title"),8)%></font></a></center>
          </td>
<%rs.MoveNext
loop%>
</tr></table></div>
<!--</marquee>-->
</div>
<%
rs.close
Set rs=Nothing
End Sub
'==============================
'功  能：分类列表显示
'函数名：picClass()
'==============================
Sub picClass(catID,pic)
dim sql,rs
sql="select top 9 ms_pic_class.class,ms_pic_class.classID,ms_pic_class.catID,ms_pic.id,ms_pic.pic_title,ms_pic.previewPicUrl,ms_pic.pic_clicks,ms_pic.pic_date,ms_pic.pic_isgood from ms_pic,ms_pic_class where ms_pic_class.catID="&catID&" and pass=true"
sql=sql&" and ms_pic.classID=ms_pic_class.classID"
Set rs=conn.execute(sql)
%>
<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"><%response.write("<a class=""classNavig"" href="&CurPageName&"?catID="&catID&">"&pic&"</a>")%></span></td><td class="rtr"></td></tr></table>
<div class="lrmc">
<%if not rs.eof and not rs.bof then%>
	<div style="display:inline;height:180px;">