syscode.asp

大榕树网络文章管理系统

<%
'===================================================================================
'功能：文章大类分类显示设定
'参数：i---文章数; j---标题长度;  pro---文章图标属性：1：置顶 2:推荐 3:普通
'hot---显示热门图标 1:显示;  big---显示大类 1：显示;  sma---显示小类 1:显示;  aut---显示作者 1:显示; edi---显示编辑 1:显示
'tim---显示时间 1:显示[月-日]; hit---显示点数 1:显示;  pic---是否显示图片 1:显示; picss---显示图片数;picj---图片文章标题长度；picw---图片的宽;pich---图片的高
'===================================================================================
sub ArticleBigShow(i,j,pro,hot,big,sma,aut,edi,tim,hit,pic,picss,picj,picw,pich)
dim rssma,rsart,strart,h,g,fileext
   set rssma=conn.execute("select * from smallclass where bigclass='"&bigclass&"'")
if rssma.eof or rssma.bof then
    strart=strart + "<div id='showbigclassarts'>本栏还没有小类</div>"                 
   rssma.close
   set rssma=nothing
   response.write strart
else
  do while not rssma.eof 
     strart=strart + "<div id='smabigclass'>"
       strart=strart + "<h5>"&rssma("smallclass")&"</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='"&bigclass&"' and smallclass='"&rssma("smallclass")&"' and passed=true order by ontop='1',articleid desc",conn,1,1
     if rsart.eof or rsart.bof then
         strart=strart +"<div>该小类还没有文章</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 smallclass='"&rssma("smallclass")&"' and includepic=true and passed=true order by ontop='1',articleid desc")
      if rspic.eof or rspic.bof then
	    strart=strart + "<div id='smasmaclassimg'><img src='images/nopic.gif' width='"&picw&"' height='"&pich&"'></div>"
		else
		for picx=1 to picss
		   if rspic.eof then
		   exit for 
		   end if
   if rsart("defaultpic")<>"" then
      fileext=lcase(getfileExtName(rspic("defaultpic")))
      strart=strart &"<div id='smaclassimg'>"
   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 & "<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'>"
      else 
        if rsart("elite")=2 then
          strart=strart & "<img src='img/artselit.jpg'>"
	    else
		  strart=strart & "<img src='img/arts.jpg'>"
        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 rsart("includepic")=true then
   strart=strart &"<font color='#FF9900'>[图]</font>" 
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"))&"]"
end if
if hit=1 then
   strart=strart & "["&rsart("hits")&"]"
end if
strart=strart & "</li>"
  rsart.movenext
   next
  rsart.close
set rsart=nothing
   strart=strart + "<div align='right'><a href='ArtSmallShow.asp?bigclass="&rssma("bigclass")&"&smallclass="&rssma("smallclass")&"' title='更多文章'>More...</a></div>" 
end if
  strart=strart + "</div>"
rssma.movenext
loop
  response.write strart
rssma.close
set rssma=nothing
end if
end sub
'=======================================================
'功能：显示版权信息
'参数：无
'=======================================================
sub bottom()
dim strdown
   strdown=strdown + "<li><a href='Index.asp#' onClick=this.style.behavior='url(#default#homepage)';this.setHomePage('"& webUrl & "');>设为主页</a>|<a href=javascript:window.external.addFavorite('" & webUrl & "','" & webname & "')>加入收藏</a>|<a href='mailto:" & webManagerEmail & "'>联系我们</a>|<a href='CopyRight.asp' target='_blank'>版权声明</a>|<a href='admin/admin_Login.asp'>管理登录</a></li>"     
   strdown=strdown + "<li>版权所有&nbsp;&nbsp;Copyright&nbsp;&copy;&nbsp;2005～2008&nbsp;"&WebCopyright&"&nbsp;All Rights Reserved，"     
   strdown=strdown + "最佳效果：1024*768分辨率</li>"      
   strdown=strdown + "<li><b>备案序号:<a href='"&webBeian&"' target='_blank'>"&BeianNo&"</a></b></li>" 
   strdown=strdown + "<li><b>版本号："&webCopyright&"</a></b></li>" 
response.write strdown   
end sub
'====================================================
'功能：网站频道显示
'参数：i---显示个数
'====================================================
sub webclassshow(i)
dim rsweb,j,strweb
   set rsweb=server.createobject("ADODB.Recordset")
       rsweb.open"select * from webclass",conn,1,1
       if rsweb.eof or rsweb.bof then
          rsweb.close
          set rsweb=nothing
          strweb=strweb +"<li><span>还没有任何频道</span></li>"
             response.write strweb
      else
        for j=1 to i
           if rsweb.eof then
              exit for
           end if
               strweb=strweb +"<li><a href='"&rsweb("webclassurl")&"'><span>"&rsweb("webclass")&"</span></a></li>"
    rsweb.movenext
next
        strweb=strweb +"<li><a href='Index.asp'><span>首页</span></a></li>"
  response.write strweb
   rsweb.close
set rsweb=nothing
end if
end sub
'===================================================
'功能：网站logo显示
'参数：w---宽;h---高
'===================================================
sub logoshow(w,h)
dim strlogo,fileext
    fileext=lcase(getfileExtName(webLogoUrl))
if fileext="jpg" or fileext="bmp" or fileext="gif" or fileext="png" then
    strlogo=strlogo & "<a href='"&webUrl&"'><img src='"&webLogoUrl&"' width='"&w&"' height='"&h&"' alt='"&webName&"' border='0'></a>"
else
    if fileext="swf" then
       strlogo=strlogo & "<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='"&w&"' height='"&h&"'>"
       strlogo=strlogo & "<param name='movie' value='"&webLogoUrl&"'>"
       strlogo=strlogo & "<param name='quality' value='high'>"
       strlogo=strlogo & "<param name='play' value='-1'>"
       strlogo=strlogo & "<param name='loop' value='0'>"
       strlogo=strlogo & "<param name='Menu' value='-1'>"
       strlogo=strlogo & "<embed src='"&webLogoUrl&"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='"&w&"' height='"&h&"'></embed>"
       strlogo=strlogo & "</object>"
    end if
end if
response.write strlogo 
end sub
'===============================================
'功能：显示文章菜单
'参数：无
'===============================================
sub menushow()
dim rsbig,strbig,rssma
    set rsbig=server.createobject("ADODB.Recordset")
        rsbig.open"select * from bigclass",conn,1,1
        if rsbig.eof or rsbig.eof then
            strbig=strbig +"<li>没有栏目</li>"
           rsbig.close
           set rsbig=nothing
              response.write strbig
        else
        do while not rsbig.eof