pic.asp

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

	<span class="v_bp1" style="margin-top:6px;width:124px;height:142px;"><span class="v_bp2" style="width:124px;height:141px;"><span class="v_bp3" style="width:124px;height:141px;padding:4px;text-align:center;">
	<a href="showpic.asp?id=<%=rs("id")%>" target="_blank">
	<img src="<%=rs("previewPicUrl")%>" border="0" width="120" height="137" style="border:1px solid #444;" alt="<%=rs("pic_title")%>">
	</a><span><a href="showpic.asp?id=<%=rs("id")%>" target="_blank"><%=cutStr(rs("pic_title"),10)%></a></span>
	</span></span></span>
	</div>
	<div style="display:inline;height:180px;">
		<%Do While Not rs.Eof%>
		<div>
          <span class="picLL">
		  [<%response.write("<a href="&CurPageName&"?catID="&rs("catID")&"&classID="&rs("classID")&">"&rs("class")&"</a>")%>]
		  <%if rs("pic_isgood")=true then
		  	response.write("<a href=showpic.asp?id="&rs("id")&" target='_blank'>"&cutStr(rs("pic_title"),32)&"</a>&nbsp;『<font color='#ff0000'>推荐</font>』")
		  elseif DateDiff("d",rs("pic_date"),now)<7 then
			response.write("<a href=showpic.asp?id="&rs("id")&" target='_blank'>"&cutStr(rs("pic_title"),32)&"</a>")
			response.write("&nbsp;<img src='images/new_1.gif' align='absmiddle'>")
		  else
		  	response.write("<a href=showpic.asp?id="&rs("id")&" target='_blank'>"&cutStr(rs("pic_title"),32)&"</a>")
		  end if%>
		  </span><span class="picLM">
		  <%=formatDateTime(rs("pic_date"),vbShortDate)%>
		  </span><span class="picLR"><%=rs("pic_clicks")%></span>
		  </div>
		<%rs.MoveNext
		Loop%>
		</div>
<%else
	response.write("<div class=""noNote"">此分类暂时没有图片！</div>")
end if%>	  
	</div>
</div>
<%
rs.close
set rs=nothing
End Sub

'==================================
'功   能:按分类显示图片列表
'函数名:picClasslist(classID
'==================================
Sub picClasslist()
%>
<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"><%set clrs=conn.execute("select class from ms_pic_class where classID="&classID):response.write(clrs(0)):clrs.close%></span></td><td class="rtr"></td></tr></table>
<div class="lrmc">
<%If Not rs.Eof And Not rs.Bof Then
dim n,url,nextPage
url="pic.asp?catID="&catID&"&classID="&classID&"&"
n=picPage
nextpage=pagetitle(rs,n,url,"张图片")
%>
	<table width="100%" height="100%" border="0" cellpadding="3" cellspacing="0"><tr>
		<%i=1
		line=1
		Do While Not rs.Eof and line<=rs.pagesize%>
        <td align="center">
		<span class="v_bp1" style="margin-top:6px;width:115px;height:90px;"><span class="v_bp2" style="width:115px;height:90px;"><span class="v_bp3" style="width:115px;height:90px;padding:4px;text-align:center;">
			<a href='showpic.asp?id=<%=rs("id")%>' target="_blank" title='图片名称：<%=rs("pic_title")%>&#10;发布会员：<%=rs("post_member")%>&#10;发布日期：<%=rs("pic_date")%>&#10;点击次数：<%=rs("pic_clicks")%>'>
			<img src="<%=rs("previewPicUrl")%>" style='width:115px;height:90px;border:1px solid #626262;' alt="<%=rs("pic_title")%>"></a>
		</span></span></span>	
		<div><a href='showpic.asp?id=<%=rs("id")%>' target="_blank"><%=cutStr(rs("pic_title"),32)%></a></div>
		<%if i=4 then'每列显示i张图片%>
		</td></tr><tr>
		<%i=0
		else%>
		</td>
		<%end if
		rs.MoveNext
		i=i+1
		line=line+1
		Loop%>
      </tr></table>
<%
Else
	response.write("<div class=""noNote"">此分类没有图片！</div>")
End If
response.write("</div>")
if rs.RecordCount>n then
	response.write("<div class=""page"">"&nextpage&"</div>")
end if
response.write("</div>")
rs.close
set rs=nothing
End Sub
'=======================
'功能:图片小分类列表显示
'函数名:list()
'=======================
Sub list(classID,pic)
if not isNumeric(classID) then
response.redirect("showerror.asp?errmsg=参数不是数字字符")
exit sub
end if
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.classID="&classID&" and pass=true"
sql=sql&" and ms_pic.classID=ms_pic_class.classID"
Set rs=conn.execute(sql)
if not rs.bof and not rs.eof then
 Set prs=conn.execute("select * from ms_pic_cat where catID="&rs("catID"))
 pictitle=prs("catName")&" | "
 prs.close
 set prs=nothing
 end if
 pictitle=pictitle&"<font color=#ff4444>"&pic&"</font>"			
%>
<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"><%=pictitle%></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;">
	<span class="v_bp1" style="margin-top:6px;width:124px;height:142px;"><span class="v_bp2" style="width:124px;height:141px;"><span class="v_bp3" style="width:124px;height:141px;padding:4px;text-align:center;">
	<a href="showpic.asp?id=<%=rs("id")%>" target="_blank">
	<img src="<%=rs("previewPicUrl")%>" width="120" height="137" style="border:1px solid #626262;" alt="<%=rs("pic_title")%>">
	</a><span><a href="showpic.asp?id=<%=rs("id")%>" target="_blank"><%=cutStr(rs("pic_title"),10)%></a></span>
	</span></span></span>
	</div>
	<div style="display:inline;height:180px;">
		<%Do While Not rs.Eof%>
        <div> 
          <span class="picLL">
		  <!--小分类列表-->
		  [<%response.write("<a href="&CurPageName&"?catID="&rs("catID")&"&classID="&rs("classID")&">"&rs("class")&"</a>")%>]
		  <!--标题列表-->
		  <% if rs("pic_isgood")=true then
		  	response.write("<a href=showpic.asp?id="&rs("id")&" target='_blank'>"&cutStr(rs("pic_title"),32)&"</a>&nbsp;『<font color='#ff0000'>推荐</font>』")
		  elseif DateDiff("d",rs("pic_date"),now)<7 then
			response.write("<a href=showpic.asp?id="&rs("id")&" target='_blank'>"&cutStr(rs("pic_title"),32)&"</a>")
			response.write("&nbsp;<img src='images/new_1.gif' align='absmiddle'>")
		  else
		  	response.write("<a href=showpic.asp?id="&rs("id")&" target='_blank'>"&cutStr(rs("pic_title"),32)&"</a>")
		 end if%>
		  </span><span class="picLM">
		  <%=formatDateTime(rs("pic_date"),vbShortDate)%>
		  </span><span class="picLR"><%=rs("pic_clicks")%></span>
        </div>
		<%rs.MoveNext
		Loop%>
      </div>
<%else
	response.write("<div class=""noNote"">此分类暂时没有图片！</div>")
end if%>	  
	</div>
</div>
<%End Sub
Sub picCount(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 picNum,sum(pic_clicks) as readNum from ms_pic")
	cCount(0)=countrs(0)
	cCount(1)=conn.execute("select count(id) from ms_pic where pass=false")(0)
	cCount(2)=conn.execute("select count(id) from ms_pic where datediff('d',pic_date,#"&now()&"#)=0 and pass=true")(0)
	cCount(3)=conn.execute("select count(id) from ms_pic where datediff('d',pic_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.
'========================================================
%>