common.asp

本代码是一个个人主页

<%
'====================================
'BLOG基本信息缓存处理
'写入缓存
'======================================
dim basic_blogname,basic_bloginfo,basic_mastername,basic_masteremail,basic_masterqq,basic_blogindex,basic_skin,basic_rznum,basic_plnum,basic_lynum,basic_blogpage,basic_plpage,basic_indexface,basic_count,basic_date,basic_gk,basic_off

'reloadcache()
DisplayCachedRecords(20)

Function DisplayCachedRecords(Secs)
Dim retVal, datVal, temp1
retVal = Application("cache_demo")
datVal = Application("cache_demo_date")
If datVal = "" Then
datVal = DateAdd("s",Secs,Now)
End If
temp1 = DateDiff("s", Now, datVal)
If temp1 > 0 And isarray(retval) Then
blog_Infos = retVal
Else
Dim temp2
Dim log_Infos
SQL="select top 1 basic_blogname,basic_bloginfo,basic_mastername,basic_masteremail,basic_masterqq,basic_blogindex,basic_skin,basic_rznum,basic_plnum,basic_lynum,basic_blogpage,basic_plpage,basic_indexface,basic_count,basic_date,basic_gk,basic_off from blog_basic"
Set log_Infos=db.Execute(SQL)
sqlnum=sqlnum+1
blog_Infos=log_Infos.GetRows()
Set log_Infos=nothing
Application.Lock
Application("cache_demo") = blog_Infos
Application("cache_demo_date") = DateAdd("s",Secs,Now)
Application.UnLock
End If
basic_blogname=blog_Infos(0,0)
basic_bloginfo=blog_Infos(1,0)
basic_mastername=blog_Infos(2,0)
basic_masteremail=blog_Infos(3,0)
basic_masterqq=blog_Infos(4,0)
basic_blogindex=blog_Infos(5,0)
basic_skin=blog_Infos(6,0)
basic_rznum=int(blog_Infos(7,0))
basic_plnum=int(blog_Infos(8,0))
basic_lynum=int(blog_Infos(9,0))
basic_blogpage=int(blog_Infos(10,0))
basic_plpage=int(blog_Infos(11,0))
basic_indexface=blog_Infos(12,0)
basic_count=blog_Infos(13,0)
basic_date=blog_Infos(14,0)
basic_gk=blog_Infos(15,0)
basic_off=blog_Infos(16,0)
End Function

'====================================
'最新日志缓存处理
'写入
'======================================
Function recentarticles(action)
if not isarray(application("recentarticles")) or action=2 Then
  Set recentarticle=db.ExeCute("select top 20 id,content_title,content_groupid from blog_content where content_gk='0' order by id desc")
  sqlnum=sqlnum+1
  if recentarticle.eof or recentarticle.bof Then
     dim arr_articles(0,0)
  Else
    arr_articles=recentarticle.getrows()
  end if
  set recentarticle=Nothing
  application.lock
  application("recentarticles")=arr_articles
  application.unlock
Else
  arr_articles=application("recentarticles")
end If
'====================================
'最新日志缓存处理
'读出
'======================================

arr_articlenums=ubound(arr_articles,2)
temp="<div id=userpanel-1>-Recent Articles-</div>"
temp=temp&"<div id=userpanel-2>"
temp=temp&"<div id=userpanel-3>"
if ubound(arr_articles,1)=0 then
  temp=temp&"Data Not Available</div></div><div id=mainlistup></div>"
  recentarticles=temp
  exit function
end if
  for arr_articlenumi=0 to arr_articlenums
    temp=temp&"<a href=readblog.asp?blogid="&arr_articles(2,arr_articlenumi)&"&id="&arr_articles(0,arr_articlenumi)&" class=link1>"&left(arr_articles(1,arr_articlenumi),11)&"</a><br/>"
  Next
temp=temp&"</div></div><div id=mainlistup></div>"
recentarticles=temp
End Function
'====================================
'最新评论缓存处理
'写入
'======================================
Function recentcomments(action)
if not isarray(application("recentcomments")) or action=2 Then
  Set recentcomment=db.ExeCute("select top 20 pl_blogid,pl_contentid,pl_content from blog_pl order by id desc")
  sqlnum=sqlnum+1
  if recentcomment.eof or recentcomment.bof Then
     Redim arr_comments(0,0)
  Else
    arr_comments=recentcomment.getrows()
  end if
  set recentcomment=Nothing
  application.lock
  application("recentcomments")=arr_comments
  application.unlock
Else
  arr_comments=application("recentcomments")
end If

'====================================
'最新评论缓存处理
'读出
'======================================


temp="<div id=userpanel-1>-Recent Comments-</div>"
temp=temp&"<div id=userpanel-2>"
temp=temp&"<div id=userpanel-3>"
if ubound(arr_comments,1)=0 then
  temp=temp&"Data Not Available</div></div><div id=mainlistup></div>"
  recentcomments=temp
  exit function
end If
arr_commentnums=ubound(arr_comments,2)
  for arr_commentnumi=0 to arr_commentnums
    temp=temp&"<a href=readblog.asp?blogid="&arr_comments(0,arr_commentnumi)&"&id="&arr_comments(1,arr_commentnumi)&" class=link1>"&left(arr_comments(2,arr_commentnumi),11)&"</a><br/>"
  Next
temp=temp&"</div></div><div id=mainlistup></div>"
recentcomments=temp
End Function 

'====================================
'友情链接缓存处理
'写入
'======================================
function links(action)
if not isarray(application("links")) or action=2 Then
  set links_info=db.execute("select link_name,link_info,link_address from blog_links order by id asc")
  sqlnum=sqlnum+1
  if links_info.eof and links_info.bof Then
     dim arr_links(0,0)
  Else
    arr_links=links_info.getrows()
  end if
  set links_info=Nothing
  application.lock
  application("links")=arr_links
  application.unlock
Else
  arr_links=application("links")
end If
'====================================
'友情链接缓存处理
'读出
'======================================
if action<>2 then
arr_linknums=ubound(arr_links,2)
temp="<div id=userpanel-1>-links-</div>"
temp=temp&"<div id=userpanel-2>"
temp=temp&"<div id=userpanel-3>"
if ubound(arr_links,1)=0 then
  temp=temp&"Data Not Available</div></div><div id=mainlistup></div>"
  response.write temp
  exit function
end if
  for arr_linknumi=0 to arr_linknums
    link_name=arr_links(0,arr_linknumi)
	link_info=arr_links(1,arr_linknumi)
	link_address=arr_links(2,arr_linknumi)
    temp=temp&"<a href="&link_address&" title='"&link_info&"' class=link1 target=_blank>"&link_name&"</a><br/>"
  Next
temp=temp&"</div></div><div id=mainlistup></div>"
links=temp
end if
end function

'======================================
'BLOG类别缓存处理
'action=0横排序，action=1竖排序，action=3<select>读取
'写入
'======================================
function blog_class(action)
if not isarray(application("blog_class")) or action=2 Then
  set class_info=db.execute("select id,class_name,class_icon,class_address,class_rznum from blog_class order by id asc")
  sqlnum=sqlnum+1
  if class_info.eof and class_info.bof Then
     dim arr_class(0,0)
  Else
    arr_class=class_info.getrows()
  end if
  set class_info=Nothing
  application.lock
  application("blog_class")=arr_class
  application.unlock
Else
  arr_class=application("blog_class")
end If
arr_classnums=ubound(arr_class,2)

if action=0 Then
  temp="<div id=mainlist><ul>"
  if blogid="" Then
  temp=temp&"<li id=two>"
  Else
  temp=temp&"<li id=one>"
  end If
  temp=temp&"<a href=index.asp>Index</a></li>"
  if blogid="tag" Then
  temp=temp&"<li id=two>"
  Else
  temp=temp&"<li id=one>"
  end If
  temp=temp&"<a href=tag.asp?blogid=tag>Tags</a></li>"
  if ubound(arr_class,1)<>0 then
    for arr_classnumi=0 to arr_classnums
    if blogid=Cstr(arr_class(0,arr_classnumi)) Then
      temp=temp&"<li id=two>"
    Else
      temp=temp&"<li id=one>"
    end If
      temp=temp&"<a href="
    if arr_class(3,arr_classnumi)="no" Then
      temp=temp&"index.asp?blogid="&arr_class(0,arr_classnumi)
    Else