common.asp

本代码是一个个人主页

      temp=temp&""&arr_class(3,arr_classnumi)&""
    end If
      temp=temp&">"&arr_class(1,arr_classnumi)&"</a></li>"
    Next
  End if
  temp=temp&"<li id=one><a href=ly target=_blank>留言</a></li></ul></div>"
elseif action=1 Then
  temp="<div id=userpanel-1>-Statistics-</div><div id=userpanel-2><div id=userpanel-3>"
  if ubound(arr_class,1)=0 Then
    temp=temp&"还没有分类<br/>"
  else
  for arr_classnumi=0 to arr_classnums
  temp=temp&"<img src=images/icons/"&arr_class(2,arr_classnumi)&".gif>"
  temp=temp&"<a href=index.asp?blogid="&arr_class(0,arr_classnumi)&" class=link1>"&arr_class(1,arr_classnumi)&"("&arr_class(4,arr_classnumi)&")</a> <a href=feed.asp?id="&arr_class(0,arr_classnumi)&" target=_blank><img src=images/rss.png border=0></a><br/>"
  Next
  end if
  temp=temp&"日志："&basic_rznum&"篇<br/>"
  temp=temp&"评论："&basic_plnum&"个<br/>"
  temp=temp&"留言："&basic_lynum&"个<br/>"
  temp=temp&"在线："&application("online")&"人<br/>"
  temp=temp&"访问："&basic_count&"次<br/>"
  temp=temp&"建站时间："&basic_date&"<br/>"
  temp=temp&"</div></div>"
  temp=temp&"<div id=mainlistup></div>"
  
elseif action=3 Then
  temp="<select name=group><option value="""">请选择分类</option>"
  if ubound(arr_class,1)=0 Then
  response.write temp&"</select>"
  exit Function
  end if
  for arr_classnumi=0 to arr_classnums
  temp=temp&"<option value="&arr_class(1,arr_classnumi)&">"&arr_class(1,arr_classnumi)&"</option>"
  next
  temp=temp&"</select>"
end if
blog_class=temp
end Function

'======================================
'Tags缓存处理
'action=0横排序，action=1<select>读取
'写入
'======================================
function blog_tags(action)
if not isarray(application("tags_info")) or action=2 Then
  set tags_info=db.execute("select tags_name from blog_tags order by id desc")
  sqlnum=sqlnum+1
  if tags_info.eof and tags_info.bof Then
     dim arr_tags(0,0)
  Else
    arr_tags=tags_info.getrows()
  end if
  set tags_info=Nothing
  application.lock
  application("tags_info")=arr_tags
  application.unlock
Else
  arr_tags=application("tags_info")
end If
arr_tagnums=ubound(arr_tags,2)

if action=0 Then
  temp="<div id=mainright><div class=contenttitle2><a href=tag.asp class=link2>所有Tags：</a></div>	<div class=contentbody>"
  if ubound(arr_tags,1)=0 then
  temp=temp&"Data Not Available</div></div><div id=mainlistup></div>"
  response.write temp
  exit function
  end if
  for arr_tagnumi=0 to arr_tagnums
  temp=temp&"<a href=index.asp?tags="&server.URLEncode(arr_tags(0,arr_tagnumi))&">"&arr_tags(0,arr_tagnumi)&"</a> | "
  Next
  temp=temp&"</div></div>"
elseif action=1 Then
  temp="<select id=select onchange=""javascript:changetags(this.options[this.selectedIndex].value);""><option>选择已有Tags</option>"
  if ubound(arr_tags,1)=0 Then
  response.write temp&"</select>"
  exit function
  end if
  for arr_tagnumi=0 to arr_tagnums
  temp=temp&"<option value="&arr_tags(0,arr_tagnumi)&">"&arr_tags(0,arr_tagnumi)&"</option>"
  Next
  temp=temp&"</select>"
end If
blog_tags=temp
end Function

'======================================
'skin缓存处理
'======================================
function blog_skin(action)
if not isarray(application("skin_info")) or action=2 Then
  set skin_info=db.execute("select id,skin_name,skin_cnname,skin_author from blog_skin")
  sqlnum=sqlnum+1
  if skin_info.eof and skin_info.bof Then
     dim arr_skins(0,0)
  Else
    arr_skins=skin_info.getrows()
  end if
  set skin_info=Nothing
  application.lock
  application("skin_info")=arr_skins
  application.unlock
Else
  arr_skins=application("skin_info")
end If
  arr_skinnums=ubound(arr_skins,2)
if action<>2 Then
  temp="当前皮肤：<select name=changeskin id=changeskininput onchange=""javascript:getcookie(this.options[this.selectedIndex].value);"">"
  for arr_skinnumi=0 to arr_skinnums
  temp=temp&"<option value="&arr_skins(1,arr_skinnumi)&" "
  if skincookies="" Then
    if basic_skin=arr_skins(1,arr_skinnumi) Then
	  temp=temp&"selected"
	  skin_author=arr_skins(3,arr_skinnumi)
	end If
  Else
    if skincookies=arr_skins(1,arr_skinnumi) Then
	  temp=temp&"selected"
	  skin_author=arr_skins(3,arr_skinnumi)
	end If
  end If
  temp=temp&">"&arr_skins(2,arr_skinnumi)&"</option>"
  Next
  temp=temp&"</select> 制作:"&skin_author
end If
blog_skin=temp
end Function
'======================================
'置顶文章
'======================================
function blog_zd(action)
if not isarray(application("zd_info")) or action=2 Then
  set zd_info=db.execute("select id,content_groupid,content_author,content_date,content_time,content_weather,content_ubb,content_content,content_tags,content_title,content_plnum,content_count,content_group from blog_content where content_top='1' order by id desc")
  sqlnum=sqlnum+1
  if zd_info.eof and zd_info.bof Then
     dim arr_zds(0,0)
  Else
    arr_zds=zd_info.getrows()
  end if
  set zd_info=Nothing
  application.lock
  application("zd_info")=arr_zds
  application.unlock
Else
  arr_zds=application("zd_info")
end if  
arr_zdnums=ubound(arr_zds,2)
if ubound(arr_zds,1)=0 then
  exit function
end if
if action<>2 Then
  for arr_zdnumi=0 to arr_zdnums
    content_ubb=arr_zds(6,arr_zdnumi)
    Randomize
    divid=Int((10000*rnd)+1)
    t=t+1
    str=Split(arr_zds(7,arr_zdnumi),"[zy]")
    max=UBound(str)
    If arr_zds(8,arr_zdnumi)<>"" then
	  tags2=Split(arr_zds(8,arr_zdnumi),",")
      maxtags2=UBound(tags2)
    Else
	  maxtags2=-1
    End If
    response.write "<div class=contenttitle2>"
    response.write "<div id=zdtitleleft><a href=readblog.asp?blogid="&arr_zds(1,arr_zdnumi)&"&id="&arr_zds(0,arr_zdnumi)&" class=link22>"&arr_zds(9,arr_zdnumi)&"</a></div>"
    response.write "<div id=zdtitleright><a href=""javascript:openzd("&divid&")"" class=linkzd id=linkzd"&divid&">展开/关闭</a></div>"
    response.write "</div>"
    response.write "<div class=contentauthor2>By:"&arr_zds(2,arr_zdnumi)&" |  Date:"&arr_zds(3,arr_zdnumi)&" | Time:"&arr_zds(4,arr_zdnumi)&" | "
	If arr_zds(5,arr_zdnumi)<>"0" Then
      response.write "Weather:<img src=images/weather/"&arr_zds(5,arr_zdnumi)&".gif>"
    end If
    response.write "</div>"
    response.write "<div id="&divid&" style=display:none>"
	if max<>0 Then
      response.write "<div class=contentbody>"
        if content_ubb=1 Then
	      response.write ubbhtml(str(0))
        Else
	      response.write str(0)
        end If
      response.write "<div class=contentbodybottom><img src=images/plus.gif style=""margin:0px 2px -1px 0px 0px""><a href=readblog.asp?blogid="&arr_zds(1,arr_zdnumi)&"&id="&arr_zds(0,arr_zdnumi)&">阅读全文...</a></div></div>"
	  Else
      response.write "<div class=contentbody>"
      if content_ubb=1 Then
	    response.write ubbhtml(str(0))
      Else
	    response.write str(0)
      end If
      response.write "</div>"
    end If
	response.write "<div id=contenttags>"
    If maxtags2<>-1 Then
      response.write "Tags:"
      For tagsnum2=0 To maxtags2
	    response.write "<a href=index.asp?tags="&server.URLEncode(tags2(tagsnum2))&">"&tags2(tagsnum2)&"</a> | "
      Next
    End If
	response.write "</div>"
    response.write "<div id=contentbottom>"
    response.write "<div id=ct>分类:<a href=index.asp?blogid="&arr_zds(1,arr_zdnumi)&">"&arr_zds(12,arr_zdnumi)&"</a> | 评论:(<strong>"&arr_zds(10,arr_zdnumi)&"</strong>) | 查看(<strong>"&arr_zds(11,arr_zdnumi)&"</strong>) "
	if session("userid")<>"" or request.cookies("usercookie")<>"" Then
      response.write "| <a href=blogedit.asp?action=edit&ubb="&arr_zds(6,arr_zdnumi)&"&editid="&arr_zds(0,arr_zdnumi)&">编辑</a> | <a href=getpost.asp?action=del&blogid="&arr_zds(1,arr_zdnumi)&"&id="&arr_zds(0,arr_zdnumi)&" onclick=""{if(confirm('确定要删除吗?此操作还会删除该日志下的所有评论，且不能恢复！')){return true;}return false;}"">删除</a>"
	end if
    response.write "</div></div></div><div id=mainlistup></div>"
  next
end if
end function
'======================================
'更新缓存
'======================================
function reloadcache()
recentcomments(2)
blog_skin(2)
blog_tags(2)
blog_class(2)
links(2)
blog_zd(2)
recentarticles(2)
end function
%>