function.asp

本代码是一个个人主页

			Next
		IF j<=Month_Days(This_Month) Then Response.Write(j)
		IF Link_TF="True" Then Response.Write("</a>")
        Response.Write("</td>")
		j=j+1
	Next
	Start_Week=0
	Response.Write("</tr>")
	Wend
	Response.Write("</table>")
End Sub

'====================================
'控制面板
'====================================
function user_panel(action)
  temp="<div id=userpanel-1>-User Panel-</div><div id=userpanel-2>"
  temp=temp&"<div id=facepic><img src="&basic_indexface&" border=0 style=margin-bottom:-4px;></div>"
  temp=temp&"<div id=login>"
  if action=0 then
  temp=temp&"<form name=form id=form method=post action=getpost.asp?action=login onsubmit=""return CheckForm(this);"">"
  temp=temp&"<div><div id=userpanel-4>Username:<input type=text name=userid id=input2></div>	      <div id=userpanel-4>Password:<input type=password name=password id=input2></div>"
  temp=temp&"<div id=userpanel-4><input type=checkbox value=1 name=savecookie>SaveCookie</div> <div id=userpanel-4><input type=submit value=Login class=button> <input type=reset value=Reset class=button></div>"
  temp=temp&"</form></div>"
  Else
  temp=temp&"<div><a href=blogpost.asp class=link1>发表日志</a><a href=admin/admin_main.asp target=_blank class=link1>系统管理</a></div><div><a href=blogedituser.asp class=link1>修改帐号</a><a href=getpost.asp?action=loginout class=link1>退出系统</a></div>"
  end If
  temp=temp&"</div></div>"
  temp=temp&"<div id=mainlistup></div>"
  response.write temp
end Function

'====================================
'日历
'====================================
function CalendarHtml()
  response.write "<div id=userpanel-1>-Calendar-</div><div id=userpanel-2>"
  call Calendar(log_Year,log_Month,log_Day)
  response.write "</div><div id=mainlistup></div>"
end Function


'====================================
'侧边模块
'====================================
sub SideMoudle()
set rss=db.execute("select left_name,left_content,left_ubb,left_level from blog_left where left_on='yes' order by left_pxid asc")
arr_Side_moudle=rss.getrows
sqlnum=sqlnum+1
arr_side_moudlenums=ubound(arr_side_moudle,2)
for arr_side_moudlenumi=0 to arr_side_moudlenums
  if arr_side_moudle(3,arr_side_moudlenumi)=1 Then
    if session("userid")="" and request.cookies("usercookie")="" then
      user_panel(0)
	Else
	  user_panel(1)
	end if
  Elseif arr_side_moudle(3,arr_side_moudlenumi)=3 Then
    response.write blog_class(1)
  elseif arr_side_moudle(3,arr_side_moudlenumi)=4 then
    response.write recentarticles(1)
  elseif arr_side_moudle(3,arr_side_moudlenumi)=5 Then
    response.write recentcomments(1)
  elseif arr_side_moudle(3,arr_side_moudlenumi)=6 Then
    response.write links(1)
  elseif arr_side_moudle(3,arr_side_moudlenumi)=2 Then
    CalendarHtml()
  Else
    temp="<div id=userpanel-1>-"&arr_side_moudle(0,arr_side_moudlenumi)&"-</div>"
	temp=temp&"<div id=userpanel-2><div id=userpanel-3>"
	if arr_side_moudle(2,arr_side_moudlenumi)=true Then
	  temp=temp&ubbhtml2(arr_side_moudle(1,arr_side_moudlenumi))
	Else
	  temp=temp&arr_side_moudle(1,arr_side_moudlenumi)
	end If
	temp=temp&"</div></div><div id=mainlistup></div>"
	response.write temp
  end if
Next
rss.close
set rss=nothing
end Sub

'====================================
'置顶
'====================================
function zd()
  set rs=server.createobject("adodb.recordset")
  sql="select * from blog_content where content_top='1' order by id desc"
  rs.open sql,db
  sqlnum=sqlnum+1
  do while not rs.eof
    content_ubb=rs("content_ubb")
    Randomize
    divid=Int((10000*rnd)+1)
    t=t+1
    str=Split(rs("content_content"),"[zy]")
    max=UBound(str)
    If rs("content_tags")<>"" then
	  tags2=Split(rs("content_tags"),",")
      maxtags2=UBound(tags2)
    Else
	  maxtags2=-1
    End if
    response.write "<div class=contenttitle2>"
    response.write "<div id=zdtitleleft><a href=readblog.asp?blogid="&rs("content_groupid")&"&id="&rs("id")&" class=link22>"&rs("content_title")&"</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:"&rs("content_author")&" |  Date:"&rs("content_date")&" | Time:"&rs("content_time")&" | "
    If rs("content_weather")<>"0" Then
      response.write "Weather:<img src=images/weather/"&rs("content_weather")&".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="&rs("content_groupid")&"&id="&rs("id")&">阅读全文...</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="&rs("content_groupid")&">"&rs("content_group")&"</a> | 评论:(<strong>"&rs("content_plnum")&"</strong>) | 查看(<strong>"&rs("content_count")&"</strong>) "
    if session("userid")<>"" or request.cookies("usercookie")<>"" Then
      response.write "| <a href=blogedit.asp?action=edit&ubb="&rs("content_ubb")&"&editid="&rs("id")&">编辑</a> | <a href=getpost.asp?action=del&blogid="&rs("content_groupid")&"&id="&rs("id")&" onclick=""{if(confirm('确定要删除吗?此操作还会删除该日志下的所有评论，且不能恢复！')){return true;}return false;}"">删除</a>"
	end if
    response.write "</div></div></div><div id=mainlistup></div>"
  rs.movenext
  Loop
  rs.close
  set rs=nothing
end Function

'====================================
'主页日志列表
'====================================
function bloglist()
  set rs=server.createobject("adodb.recordset")
  if blogid="" Then
    If log_day<>0 Then
	  sql="select * from blog_content where content_year="&log_year&" and content_month="&log_month&" and content_day="&log_day&" order by id desc"
	ElseIf tags<>"" Then
	  sql="select * from blog_content where content_tags like'%"&CStr(tags)&"%' order by id desc"
	else
	  sql="select * from blog_content where content_top='0' and content_gk='0' order by id desc"
	End If
  Else
	set rs2=server.createobject("adodb.recordset")
	sql2="select * from blog_class where id="&blogid
	rs2.open sql2,db
	sqlnum=sqlnum+1
	if rs2.eof Then
	  dim errmessage
	  errmessage2=true
	end if
	sql="select * from blog_content where  content_top='0' and content_gk='0' and content_groupid="&blogid&" order by id desc"
  end If
  if errmessage2=false then
	rs.open sql,db,1
	sqlnum=sqlnum+1
	if not rs.bof and not rs.eof then
      page_size=basic_blogpage
      if request("page_no")="" then
        page_no=1
      else
        page_no=cint(request("page_no"))
      end if
      session("page_no")=page_no
      rs.pagesize=page_size	
      page_total=rs.pagecount
      rs.absolutepage=page_no
      i=0
      j=page_size
      response.write "<div id=fy>"
      if blogid="" then
	    fy("index.asp?")
	  Else
	    fy("index.asp?blogid="&blogid&"&")
	  end If
	  response.write "</div>"
	  do while not rs.eof and j>0
	  content_ubb=rs("content_ubb")
	  i=i+1
	  j=j-1
	  str=Split(rs("content_content"),"[zy]")
	  max=UBound(str)
	  If rs("content_tags")<>"" then
	    tags=Split(rs("content_tags"),",")
        maxtags=UBound(tags)
	  Else
	    maxtags=-1
	  End If
	  temp3="<div class=contenttitle2><a href=readblog.asp?blogid="&rs("content_groupid")&"&id="&rs("id")&" class=link2>"&rs("content_title")&"</a></div>"
	  temp3=temp3&"<div class=contentauthor2>By:"&rs("content_author")&" | Date:"&rs("content_date")&" | Time:"&rs("content_time")&" | "
	  If rs("content_weather")<>"0" Then
	    temp3=temp3&"Weather:<img src=images/weather/"&rs("content_weather")&".gif>"
	  End if
	  temp3=temp3&"</div>"
	  response.write temp3
	  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="&rs("content_groupid")&"&id="&rs("id")&">阅读全文...</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 maxtags<>-1 Then
	    response.write "Tags: "
		For tagsnum=0 To maxtags
	    response.write "<a href=index.asp?tags="&server.URLEncode(tags(tagsnum))&">"&tags(tagsnum)&"</a> | "
	    Next
	  End If
	  response.write "</div>"
	  response.write "<div id=contentbottom><div id=ct>分类:<a href=index.asp?blogid="&rs("content_groupid")&">"&rs("content_group")&"</a> | 评论:(<strong>"&rs("content_plnum")&"</strong>) | 查看(<strong>"&rs("content_count")&"</strong>) "
	  if session("userid")<>"" or request.cookies("usercookie")<>"" Then
	    response.write "| <a href=blogedit.asp?action=edit&ubb="&rs("content_ubb")&"&editid="&rs("id")&">编辑</a> | <a href=getpost.asp?action=del&blogid="&rs("content_groupid")&"&id="&rs("id")&" onclick=""{if(confirm('确定要删除吗?此操作还会删除该日志下的所有评论，且不能恢复！')){return true;}return false;}"">删除</a>"
	  end If
	  response.write "</div></div><div id=mainlistup></div>"
	  rs.movenext
	  loop
	else
	  response.write "<div id=contentbottom>还没有任何日志</div>"
	end If
	response.write "<div id=fy>"
	if blogid="" then
	  fy("index.asp?")
	Else
	  fy("index.asp?blogid="&blogid&"&")
	end If
	response.write "</div>"
  Else
	response.write "<div id=contentbottom><strong>出错了,你要查看的分类不存在</strong></div>"
  end If
end Function

'====================================
'发表评论
'====================================
function postpl(action)
  if action=0 Then
    response.write "<div id=readblog_8>"
	response.write "<div id=readblog_8_1><strong>发表评论</strong></div>"
	response.write "<form name=form1 id=form1 method=post action=getpost.asp?action=addpl&blogid="&request("blogid")&"&id="&request("id")&" onsubmit=""return CheckForm1(this);"">"
	response.write "<div id=readblog_8_2>眤称:<input type=text name=pl_author class=inputaddress1></div>"
	response.write "<div id=readblog_8_2>主页:<input type=text name=pl_authorindex class=inputaddress1></div>"
	response.write "<div id=readblog_8_2>"
	call plubb()
	response.write "</div>"
	response.write "<div id=readblog_8_3>内容:<textarea name=content cols=45 rows=8 class=pltextarea></textarea></div>"
	response.write "<div id=readblog_8_4><input type=submit value=提交 class=button> <input type=reset value=重写 class=button></div>"
	response.write "</form><div>"
  Else
    set rs=server.createobject("adodb.recordset")
	sql="select id,user_name,user_index from blog_users where user_name='"&session("userid")&"' "
	rs.open sql,db
	response.write "<div id=readblog_8>"
	response.write "<div id=readblog_8_1><strong>发表评论</strong></div>"
	response.write "<form name=form1 id=form1 method=post action=getpost.asp?action=addpl&blogid="&request("blogid")&"&id="&request("id")&" onsubmit=""return CheckForm1(this);"">"
	response.write "<div id=readblog_8_2>眤称:<input type=text name=pl_author class=inputaddress1 value="&rs("user_name")&"></div>"
	response.write "<div id=readblog_8_2>主页:<input type=text name=pl_authorindex class=inputaddress1 value=http://"&rs("user_index")&"></div>"
	response.write "<div id=readblog_8_2>"
	call plubb()
	response.write "</div>"
	response.write "<div id=readblog_8_3>内容:<textarea name=content cols=45 rows=8 class=pltextarea></textarea></div>"
	response.write "<div id=readblog_8_4><input type=submit value=提交 class=button> <input type=reset value=重写 class=button></div>"
	response.write "</form><div>"
  end if
end function

'====================================
'信息处理
'====================================
function reinfo(infostr1,infostr2,infostr3)
  skincookies=request.cookies("skincookie")
  if skincookies="" Then
    skins=basic_skin
  Else
    skins=skincookies
  end If
  temp="<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
  temp=temp&"<html xmlns=""http://www.w3.org/1999/xhtml"" lang=""UTF-8"">"
  temp=temp&"<HEAD><meta http-equiv=Content-Type content=text/html; charset=UTF-8 /><meta http-equiv=Content-Language content=UTF-8 /><meta name=robots content=all /><meta name=Generator content=EditPlus><meta name=Author content=F-BLOG><meta name=Keywords content=""F-BLOG,F-Blog,BLOG,BLOG,ASP"">"
  temp=temp&"<link rel=stylesheet href=skin/"&skins&"/css.css type=text/css>"
  temp=temp&"<link rel=stylesheet href=skin/"&skins&"/link.css type=text/css>"
  temp=temp&"<TITLE>"&basic_blogname&"</TITLE>"
  temp=temp&"</HEAD><body>"
  temp=temp&"<div class=h><div id=headertitle>"
  temp=temp&"<a href="&basic_blogindex&" class=logo>"&basic_blogname&"</a><br/>"
  temp=temp&"<div id=headertitle2>"&basic_bloginfo&"</div>"
  temp=temp&"</div></div>"
  temp=temp&"<div id=mainbody>"&blog_class(0)
  temp=temp&"<div id=mainlistup></div>"
  temp=temp&"<div id=info>"&infostr1&"</div>"
  temp=temp&"<div id=info-1>"&infostr2&"</div>"
  temp=temp&"<div id=info-2><a href=index.asp>返回"&infostr3&"</a></div>"
  temp=temp&"</div></div>"
  reinfo=temp
end Function

function errinfo(infostr1,infostr2,infostr3)
  temp="<div id=mainbody>"&blog_class(0)
  temp=temp&"<div id=mainlistup></div>"
  temp=temp&"<div id=info>"&infostr1&"</div>"
  temp=temp&"<div id=info-1>"&infostr2&"</div>"
  temp=temp&"<div id=info-2><a href=index.asp>返回"&infostr3&"</a></div>"
  temp=temp&"</div></div>"
  errinfo=temp
end Function


%>