system.asp

大榕树网络文章管理系统

	   end select
if big=1 then
   titlestr=titlestr & "[<a href='Art_bigshow.asp?bigclass="&rsnew("bigclass")&"' target='_blank'>"&rsnew("bigclass")&"</a>]"
end if
if sma=1 then
   titlestr=titlestr & "[<a href='ArtSmallshow.asp?bigclass="&rsnew("bigclass")&"&smallclass="&rsnew("smallclass")&"' target='_blank'>"&rsnew("smallclass")&"</a>]"
end if
if len(rsnew("title"))>j then
    titlestr=titlestr & "<a href='ArtRead.asp?articleid="&rsnew("articleid")&"' target='_blank' title='标题：" & rsnew("title") & vbcrlf & "作者：" & rsnew("author") & vbcrlf & "添加时间：" & rsnew("updatetime") & vbcrlf & "点击数：" & rsnew("hits") & "'>"&left(rsnew("title"),j)&"…</a>"
else
   titlestr=titlestr & "<a href='ArtRead.asp?articleid="&rsnew("articleid")&"' target='_blank' title='标题：" & rsnew("title") & vbcrlf & "作者：" & rsnew("author") & vbcrlf & "添加时间：" & rsnew("updatetime") & vbcrlf & "点击数：" & rsnew("hits") & "'>"&rsnew("title")&"</a>"
end if
if rsnew("yescomment")=true then
   titlestr=titlestr & "<font color='#FF6600'>评</font>"
end if
if hot=1 then
   if rsnew("hot")=3 then
   titlestr=titlestr & "<img src='img/hot.gif'>"
   end if
end if
if rsnew("includepic")=true then
   titlestr=titlestr &"<font color='#FF9900'>[图]</font>" 
end if
if aut=1 then
   titlestr=titlestr & "[文:"&rsnew("author")&"]"
end if
if edi=1 then
   titlestr=titlestr & "[编辑："&rsnew("editor")&"]"
end if
if tim=1 then
   titlestr=titlestr & "["&month(rsnew("updatetime"))&"-"&day(rsnew("updatetime"))&"]"
else if tim=0 then
   titlestr=titlestr & "["&rsnew("updatetime")&"]"
end if
end if
if hit=1 then
   titlestr=titlestr & "["&rsnew("hits")&"]"
end if
   titlestr=titlestr & "</li>"
rsnew.movenext
next
  response.write titlestr
if mor=1 then
   call pagination(rsnew.pagecount,rsnew.pagesize,page,rsnew.recordcount)
   else
   if mor=2 then
      response.write "<div align='right'><a href='ArtShowAll.asp' title='更多文章'>more...</a></div>"
	  end if
	  end if
rsnew.close
set rsnew=nothing
end if
end sub
'======================================================================================
'功能：文章按大类分类显示
'参数：i---文章数；j---标题长度；pro---是否显示属性图标 1:显示；hot---是否热门 1:显示；big---是否显示大类 1:显示；sma---是否显示小类 1:显示；aut---是否显示作者 1:显示；edi---是否显示编辑 1:显示；tim---是否显示时间 0:详细时间 1:显示[月-日] 
'hit---是否显示点击数 1:显示；pic---是否显示图片 1:显示；picss---显示图片数；picj---图片文章标题长度；picw---图片宽度；pich---图片高度
'======================================================================================
sub ArticleShow(i,j,pro,hot,big,sma,aut,edi,tim,hit,pic,picss,picj,picw,pich)
dim rsbig,rsart,strart,h,g,fileext
set rsbig=conn.execute("select * from bigclass")
   if rsbig.eof or rsbig.bof then
       strart="<div id='showbigclassarts'><img src='images/ico.gif' width='10' height='10'>还没有任何大类</div>"
       rsbig.close
       set rsbig=nothing
       response.write strart
   else
      do while not rsbig.eof 
             strart="<div id='bigclass'>"
             strart=strart + "<h5>"&rsbig("bigclass")&"</h5>"
          set rsart=server.createobject("ADODB.Recordset")
          rsart.open"select articleid,title,updatetime,author,editor,bigclass,smallclass,includepic,defaultpic,ontop,elite,hot,hits,yescomment,textclass from article where bigclass='"&rsbig("bigclass")&"' and passed=true order by ontop='1',articleid desc",conn,1,1
             if rsart.eof or rsart.bof then
                strart=strart +"<div id='showbigclassarts'>该大类还没有文章</div>"
                       rsart.close
                       set rsart=nothing
             else
			 if pic=1 then
			     dim rspic,picx
			     set rspic=conn.execute("select articleid,title,bigclass,includepic,defaultpic from article where bigclass='"&rsbig("bigclass")&"' and includepic=true and passed=true order by ontop='1',articleid desc")
				     if rspic.eof or rspic.bof then
					      strart=strart & "<div id='classimg'><img src='images/nopic.gif' width='"&picw&"' height='"&pich&"'></div>"
					 else
					 for picx=1 to picss 
					   if rspic.eof then
					   exit for
					   end if
			    strart=strart &"<div id='classimg' align='center'>"
             if rspic("defaultpic")<>"" then
               fileext=lcase(getfileExtName(rspic("defaultpic")))
                       if fileext="jpg" or fileext="bmp" or fileext="gif" or fileext="png" then
                          strart=strart &"<a href='ArtRead.asp?articleid="&rspic("articleid")&"' target='_blank' title="&rspic("title")&"><img src='"&rspic("defaultpic")&"' width='"&picw&"' height='"&pich&"' border='0'>"
                          if len(rspic("title"))>picj then
                               strart=strart &""&left(rspic("title"),picj)&"…</a></div>" 
                             else
                               strart=strart &""&rspic("title")&"</a></div>" 
                            end if
                      else if fileext="swf" then 
						      strart=strart &"<div id='classimg' align='center'>"
                               strart=strart & "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='"&picw&"' height='"&pich&"'>"
                               strart=strart & "<param name='movie' value='"&rspic("defaultpic")&"'>"
                               strart=strart & "<param name='quality' value='high'>"
                               strart=strart & "<param name='play' value='-1'>"
                               strart=strart & "<param name='loop' value='0'>"
                               strart=strart & "<param name='Menu' value='-1'>"
                               strart=strart & "<embed src='"&rspic("defaultpic")&"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='"&picw&"' height='"&pich&"'></embed>"
                               strart=strart & "</object>"
                             if len(rspic("title"))>picj then
                               strart=strart & "<a href='ArtRead.asp?articleid="&rspic("articleid")&"' target='_blank' title="&rspic("title")&">"&left(rspic("title"),picj)&"…</a></div>"
							 else
                               strart=strart & "<a href='ArtRead.asp?articleid="&rspic("articleid")&"' target='_blank' title="&rspic("title")&">"&rspic("title")&"</a></div>"
							end if
                  end if	
              end if
    end if	
   rspic.movenext
 next	  
end if	 
end if
for h=1 to i
   if rsart.eof then
      exit for 
   end if
strart=strart + "<li>"
if pro=1 then
   if rsart("ontop")=1 then
      strart=strart & "<img src='img/artstop.jpg' title='固顶'>"
   else 
       if rsart("elite")=2 then
          strart=strart & "<img src='img/artselit.jpg' title='推荐'>"
		  else
		  strart=strart & "<img src='img/arts.jpg' title='普通'>"
       end if
   end if
end if
select case rsart("textclass")
       case 1
	   strart=strart & "[注]"
	   case 2
	   strart=strart & "[普]"
	   case 3
	   strart=strart & "[中]"
	   case 4
	   strart=strart & "[高]"
	   case 5
	   strart=strart & "[特]"
	   end select
if big=1 then
    strart=strart & "["&rsart("bigclass")&"]"
end if
if sma=1 then
    strart=strart & "["&rsart("smallclass")&"]"
end if
if len(rsart("title"))>j then
   strart=strart & "<a href='ArtRead.asp?articleid="&rsart("articleid")&"' target='_blank' title='标题：" & rsart("title") & vbcrlf & "作者：" & rsart("author") & vbcrlf & "添加时间：" & rsart("updatetime") & vbcrlf & "点击数：" & rsart("hits") & "'>"&left(rsart("title"),j)&"…</a>"
else
    strart=strart & "<a href='ArtRead.asp?articleid="&rsart("articleid")&"' target='_blank' title='标题：" & rsart("title") & vbcrlf & "作者：" & rsart("author") & vbcrlf & "添加时间：" & rsart("updatetime") & vbcrlf & "点击数：" & rsart("hits") & "'>"&rsart("title")&"</a>"
end if
if rsart("yescomment")=true then
   strart=strart & "&nbsp;<font color='#FF6600'>评</font>"
end if
if hot=1 then
   if rsart("hot")=3 then
   strart=strart & "<img src='img/hot.gif'>"
   end if
end if
if aut=1 then
   strart=strart & "[文:"&rsart("author")&"]"
end if
if edi=1 then
    strart=strart & "[编辑："&rsart("editor")&"]"
end if
if tim=1 then
    strart=strart & "["&month(rsart("updatetime"))&"-"&day(rsart("updatetime"))&"]"
	else if tim=0 then
	  strart=strart & "["&rsart("updatetime")&"]"
	end if
end if
if hit=1 then
    strart=strart & "["&rsart("hits")&"]"
end if
    strart=strart + "</li>"
   rsart.movenext
   next
    strart=strart + "<div align='right'> <a href='Art_bigshow.asp?bigclass="&rsbig("bigclass")&"' title='本类更多文章'>More...</a></div>"
    rsart.close
    set rsart=nothing
end if
  strart=strart + "</div>"
   response.write strart
   rsbig.movenext
   loop
rsbig.close
set rsbig=nothing
end if
end sub
'============================================================================
'功能：首页友情链接
'参数：linknum---文字链接显示个数；linknumpic---logo图片链搂显示个数
'该种显示方式为：logo图片向上翻滚显示,文字链接为下拉列表
'============================================================================
sub indexLinkpic(linknum,linknumpic)
dim rslink,h,j,strlink,rslinkpic
    strlink=strlink + "<div id='linkshow'>" 
set rslink=server.createobject("ADODB.Recordset")
    rslink.open "select id,linktype,sitename,siteurl,logourl,ispass from FriendLink where ispass=true and linktype=2 order by id desc",conn,1,1
if rslink.eof or rslink.bof then
    strlink=strlink + "<marquee id='scrollarealink' direction='up' scrolldelay='150' scrollamount='2' width='100' height='100'onMouseOver='scrollarealink.stop();' onMouseOut='scrollarealink.start();'>"
    strlink=strlink + "<img src='images/logo.gif' width='80' height='40' alt='请添加你的链接' border='0'>"
         rslink.close
         set rslink=nothing
   strlink=strlink + "</marquee><br>"		 
else
    strlink=strlink + "<marquee id='scrollarealink' direction='up' scrolldelay='150' scrollamount='2' width='100' height='100'onMouseOver='scrollarealink.stop();' onMouseOut='scrollarealink.start();'>"
     for h=1 to linknum
        if rslink.eof then
           exit for
        end if
         strlink=strlink + "<a href='"&rslink("siteurl")&"' target='_blank'><img src='"&rslink("logourl")&"' width='80' height='40' alt='"&rslink("sitename")&"' border='0'></a>"
         strlink=strlink + "<br><br>"
         rslink.movenext
           next
         strlink=strlink + "</marquee><br>"
         rslink.close
         set rslink=nothing
end if
'response.write strlink
    strlink=strlink + "<select name='select' class='inputs' onchange='window.open(this.options[this.selectedIndex].value)' size='1'>"
    strlink=strlink + "<option value='#'>请选择文字站点</option>"
set rslinkpic=server.createobject("ADODB.Recordset")
    rslinkpic.open "select id,linktype,sitename,siteurl,logourl,ispass from FriendLink where ispass=true and linktype=1 order by id desc",conn,1,1
if rslinkpic.eof or rslinkpic.bof then
   strlink=strlink + "<option value='index.asp'>还没有网站</option>"
else
for j=1 to linknumpic
if rslinkpic.eof then
exit for
end if
    strlink=strlink + "<option value='"&rslinkpic("siteurl")&"'>"&rslinkpic("sitename")&"</option>"
     rslinkpic.movenext
next
end if
rslinkpic.close
set rslinkpic=nothing
     strlink=strlink + "</select><br>"
     strlink=strlink + "<br><a href='FriendLinkAdd.asp' target='_blank'>申请链接</a>&nbsp;&nbsp;<a href='FriendLink.asp' target='_blank'>更多链接</a></div>"
response.write strlink
end sub
'=============================================================================
'功能：显示本站专题
'参数：i---每个专题显示的字数；specialnum---显示个数
'=============================================================================
sub specialshow(i,specialnum)
dim rsspe,h
set rsspe=server.createobject("ADODB.Recordset")
rsspe.open"select * from special order by specialid desc",conn,1,1
if rsspe.eof or rsspe.bof then
response.write"<li>还没有专题</li>"
rsspe.close
set rsspe=nothing
else
for h=1 to specialnum
    if rsspe.eof then
       exit for
    end if
if len(rsspe("special"))>i then
        response.write"<li><a href='special.asp?specialid="&rsspe("special")&"' target='_blank' title='"&rsspe("special")&"'>"&left(rsspe("special"),i)&"…</a></li>"
    else
         response.write"<li><a href='special.asp?special="&rsspe("special")&"'>"&rsspe("special")&"</a></li>"
end if
rsspe.movenext
next
rsspe.close
set rsspe=nothing
end if
    response.write"<div align='right'><a href='specialshow.asp'>more...</a></div>"

end sub
%>