📄 library.asp
字号:
<%Sub Calendar(C_Year,C_Month,C_Day) 'BLOG日历
ReDim Link_Days(2,0)
Dim Link_Count
Link_Count=0
Dim This_Year,This_Month,This_Day,RS_Month,Link_TF
IF C_Year=Empty Then C_Year=Year(Now())
IF C_Month=Empty Then C_Month=Month(Now())
IF C_Day=Empty Then C_Day=0
C_Year=Cint(C_Year)
C_Month=Cint(C_Month)
C_Day=Cint(C_Day)
This_Year=C_Year
This_Month=C_Month
This_Day=C_Day
Dim To_Day,To_Month,To_Year
To_Day=Cint(Day(Now()))
To_Month=Cint(Month(Now()))
To_Year=Cint(Year(Now()))
SQL="SELECT log_PostYear,log_PostMonth,log_PostDay FROM blog_Content WHERE log_PostYear="&C_Year&" AND log_PostMonth="&C_Month&" ORDER BY log_PostDay"
Set RS_Month=Server.CreateObject("ADODB.RecordSet")
RS_Month.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
Dim the_Day
the_Day=0
Do While NOT RS_Month.EOF
IF RS_Month("log_PostDay")<>the_Day Then
the_Day=RS_Month("log_PostDay")
ReDim PreServe Link_Days(2,Link_Count)
Link_Days(0,Link_Count)=RS_Month("log_PostMonth")
Link_Days(1,Link_Count)=RS_Month("log_PostDay")
Link_Days(2,Link_Count)="index.asp?log_Year="&RS_Month("log_PostYear")&"&log_Month="&RS_Month("log_PostMonth")&"&log_Day="&RS_Month("log_PostDay")
Link_Count=Link_Count+1
End IF
RS_Month.MoveNext
Loop
RS_Month.Close
Set RS_Month=Nothing
Dim Month_Name(12)
Month_Name(0)=""
Month_Name(1)="1"
Month_Name(2)="2"
Month_Name(3)="3"
Month_Name(4)="4"
Month_Name(5)="5"
Month_Name(6)="6"
Month_Name(7)="7"
Month_Name(8)="8"
Month_Name(9)="9"
Month_Name(10)="10"
Month_Name(11)="11"
Month_Name(12)="12"
Dim Month_Days(12)
Month_Days(0)=""
Month_Days(1)=31
Month_Days(2)=28
Month_Days(3)=31
Month_Days(4)=30
Month_Days(5)=31
Month_Days(6)=30
Month_Days(7)=31
Month_Days(8)=31
Month_Days(9)=30
Month_Days(10)=31
Month_Days(11)=30
Month_Days(12)=31
If IsDate("February 29, " & This_Year) Then Month_Days(2)=29
Dim Start_Week
Start_Week=WeekDay(C_Month&"-1-"&C_Year)-1
Dim Next_Month,Next_Year,Pro_Month,Pro_Year
Next_Month=C_Month+1
Next_Year=C_Year
IF Next_Month>12 then
Next_Month=1
Next_Year=Next_Year+1
End IF
Pro_Month=C_Month-1
Pro_Year=C_Year
IF Pro_Month<1 then
Pro_Month=12
Pro_Year=Pro_Year-1
End IF
Response.Write("<hr size=""1"" noshade style=""border:1px dotted #000000""><br><div class=""msg_head"">站点日历</div><table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" background=""images/calendar/month"&Month_Name(C_Month)&".gif""><tr><td colspan=""7"" align=""center""><a href=""index.asp?log_Year="&C_Year-1&""" title=""上一年""><span class=""arrow"">7</span></a><a href=""index.asp?log_Year="&Pro_Year&"&log_Month="&Pro_Month&""" title=""上一月""><span class=""arrow"">3</span></a> <strong>"&C_Year&" - "&Month_Name(C_Month)&"</strong> <a href=""index.asp?log_Year="&Next_Year&"&log_Month="&Next_Month&""" title=""下一月""><span class=""arrow"">4</span></a><a href=""index.asp?log_Year="&C_Year+1&""" title=""下一年""><span class=""arrow"">8</span></a></td></tr><tr bgcolor=""#F8F8F8"" class=""calendar-week"">")
Response.Write("<td>日</td><td>一</td><td>二</td><td>三</td><td>四</td><td>五</td><td>六</td></tr><tr>")
Dim i,j,k,l,m
For i=0 TO Start_Week-1
Response.Write("<td> </td>")
Next
Dim This_BGColor
j=1
While j<=month_Days(This_Month)
For k=start_Week To 6
This_BGColor="calendar"
IF j=To_Day AND This_Year=To_Year AND This_Month=To_Month Then This_BGColor="calendar-today"
IF j=This_Day Then This_BGColor="calendar-thisday"
Response.Write("<td class="""&This_BGColor&""">")
Link_TF="Flase"
For l=0 TO Ubound(Link_Days,2)
IF Link_Days(0,l)<>"" Then
IF Link_Days(0,l)=This_Month AND Link_Days(1,l)=j Then
Response.Write("<a href="""&Link_Days(2,l)&""">")
Link_TF="True"
End IF
End IF
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
Sub MemberCenter '用户中心
IF memName=Empty Then
Response.Write("<div class=""siderbar_head""><img src=""images/sider_member.gif"" align=""absmiddle"" border=""0"" /> </div><div class=""siderbar_main""><center><form name=""memLogin"" action=""logging.asp?action=login"" method=""post"">用户：<input name=""username"" type=""text"" id=""username"" value="""" size=""12"" maxlength=""20"" /><br>密码：<input name=""password"" type=""password"" id=""password"" value="""" size=""12"" maxlength=""20"" /><br><input name=""Login"" type=""submit"" id=""Login"" value="" 登 陆 "" /> <input name=""Regedit"" type=""button"" id=""Regedit"" value="" 注 册 "" onclick=""javascript:document.location.href='register.asp';"" /></form></center></div>")
Else
Response.Write("<div class=""siderbar_head""> 用户中心</div><div class=""siderbar_main"">你好，"&memName&"<br>")
IF memStatus="SupAdmin" Then
Response.Write("<a href=""blogpost.asp""> 发表日志</a> | <a href=""admincp.asp"" target=""_blank""> 系统管理</a><br>")
ElseIF memStatus="Admin" Then
Response.Write("<a href=""blogpost.asp""> 发表日志</a><br>")
End IF
Response.Write("<a href=""favorite.asp""> 网络书签</a> | <a href=""guestbook.asp"" target=""_blank""> 发表留言</a><br /><a href=""member.asp?action=edit""> 修改资料</a> | <a href=""logging.asp?action=logout""> 退出登录</a></div>")
End IF
End Sub
Sub NewCommList '最新留言列表
Response.Write("<div class=""siderbar_head""><hr size=""1"" noshade style=""border:1px dotted #000000""> 最新评论</div><div class=""siderbar_main"">")
Dim Arr_LastComm '最新评论缓存
IF Not IsArray(Application(CookieName&"_blog_LastComm")) Then
Dim log_LastComm,log_LastCommList
Set log_LastCommList=Server.CreateObject("ADODB.RecordSet")
SQL="SELECT TOP 10 C.comm_ID,C.comm_Content,C.comm_Author,C.comm_PostTime,C.blog_ID,L.log_ID,L.log_IsShow FROM blog_Comment AS C,blog_Content AS L WHERE L.log_ID=C.blog_ID ORDER BY comm_PostTime DESC"
log_LastCommList.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
If log_LastCommList.EOF AND log_LastCommList.BOF Then
Redim Arr_LastComm(7,0)
Else
Arr_LastComm=log_LastCommList.GetRows
End If
log_LastCommList.Close
Set log_LastCommList=Nothing
Application.Lock
Application(CookieName&"_blog_LastComm")=Arr_LastComm
Application.UnLock
Else
Arr_LastComm=Application(CookieName&"_blog_LastComm")
End IF
Dim blog_LastCommListNums,blog_LastCommListNumI
blog_LastCommListNums=Ubound(Arr_LastComm,2)
For blog_LastCommListNumI=0 To blog_LastCommListNums
IF Arr_LastComm(6,blog_LastCommListNumI)=Empty Then
Response.Write("隐藏日志的评论")
Else
IF DelQuote(Arr_LastComm(1,blog_LastCommListNumI))<>Empty Then
Dim blog_LastCommContent
blog_LastCommContent=DelQuote(HTMLEncode(Arr_LastComm(1,blog_LastCommListNumI)))
Response.Write("<a href=""blogview.asp?logID="&Arr_LastComm(4,blog_LastCommListNumI)&"#commmark_"&Arr_LastComm(0,blog_LastCommListNumI)&""" title="""&Arr_LastComm(2,blog_LastCommListNumI)&" 于 "&DateToStr(Arr_LastComm(3,blog_LastCommListNumI),"Y-m-d H:I A")&" 发表评论： "&Replace(Left(blog_LastCommContent,255),"<br>"," ")&""">"&SplitLines(cutStr(Replace(blog_LastCommContent,"<br>",""),20),0)&"</a>")
Else
Response.Write("<a href=""blogview.asp?logID="&Arr_LastComm(4,blog_LastCommListNumI)&"#commmark_"&Arr_LastComm(0,blog_LastCommListNumI)&""">没有评论内容，只是引用</a>")
End IF
End IF
Response.Write("<br>")
Next
Response.Write("</div>")
End Sub
Sub SiteInfo '站点统计
Response.Write(" <hr size=""1"" noshade style=""border:1px dotted #000000""><div class=""msg_head"">站点统计</div><div class=""siderbar_main"">日志："&blog_LogNums&" 篇<br><a href=""commlist.asp"">评论："&blog_CommNums&" 篇</a><br><a href=""tblist.asp"">引用："&blog_QuoteNums&" 个</a><br><a href=""member.asp"">会员："&blog_MemNums&" 人</a><br><a href=""blogvisit.asp"">访问："&blog_VisitNums&" 次</a><br>建立："&blog_time_year&"年"&blog_time_mon&"月"&blog_time_day&"日</div>")
End Sub
Sub CategoryList '分类列表
Dim blog_CategoryNums,blog_CategoryNumI
blog_CategoryNums=Ubound(Arr_Category,2)
For blog_CategoryNumI=0 To blog_CategoryNums
Response.Write(" | <a href=""index.asp?cateID="&Arr_Category(0,blog_CategoryNumI)&""">"&Arr_Category(1,blog_CategoryNumI)&"</a>")
Next
End Sub
Sub blogSearch '站点搜索
Response.Write("<div class=""siderbar_head"" ><hr size=""1"" noshade style=""border:1px dotted #000000""><br>日志搜索</div><div class=""siderbar_main""><form name=""blogsearch"" method=""post"" action=""search.asp""><input name=""SearchContent"" type=""text"" id=""SearchContent"" size=""18"" title=""请输入要搜索的内容"" /> <input name=""Submit"" type=""Image"" id=""Submit"" value="""" src=""images/go.gif"" align=""absmiddle"" style=""height:17px;width:18px"" /><br><span class=""smalltxt""><input type=""checkbox"" name=""Is_Title"" value=""1"" style=""height:14px;width:14px"" checked> 标题 <input type=""checkbox"" name=""Is_Content"" value=""1"" style=""height:14px;width:14px""> 内容</span></form></div>")
End Sub
sub topshow'推荐日志
dim sql_top,rs_top,top_title,istop,id_top
istop="-1"
SQL_top="SELECT top 6 log_Title,log_ID FROM blog_Content where log_IsTop="&istop&" order by log_ID desc"
Set RS_top=Server.CreateObject("ADODB.RecordSet")
RS_top.Open SQL_top,Conn,1,1
SQLQueryNums=SQLQueryNums+1
response.Write("<hr size=""1"" noshade style=""border:1px dotted #000000""><div class=""msg_head"">日志推荐</div>")
if rs_TOP.eof and rs_top.bof then
response.Write("<div class=""siderbar_head"">暂时没有推荐日志")
else
Do while not RS_TOP.EOF 'and rs_top.bof
top_title=rs_top("log_title")
id_top=RS_TOP("log_ID")
Response.Write("<span ><img src=""images/topshow.gif"" align=""absmiddle"" border=""0"" /><font color=""#000000""><a href=blogview.asp?logid="&id_top&"> "&left(top_title,10)&"</a> <br> </font></span> ")
RS_top.MoveNext
Loop
response.Write("</div>")'
end if
'rs_top.close
'set rs_top=nothing
end sub
sub frindlink
Dim blog_LinksListNums,blog_LinksListNumI,blog_LinksMainIMG,blog_LinksMainTXT
blog_LinksListNums=Ubound(Arr_Bloglinks,2)
response.Write("<hr size=""1"" noshade style=""border:1px dotted #000000""><div class=""msg_head"">友情链接</div>")
For blog_LinksListNumI=0 To blog_LinksListNums
IF Arr_Bloglinks(2,blog_LinksListNumI)<>Empty Then
blog_LinksMainIMG=blog_LinksMainIMG&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank""><img src="""&Arr_Bloglinks(2,blog_LinksListNumI)&""" border=""0"" alt="""&Arr_Bloglinks(0,blog_LinksListNumI)&"""></a></div>"
Else
blog_LinksMainTXT=blog_LinksMainTXT&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank"">"&Arr_Bloglinks(0,blog_LinksListNumI)&"</a></div>"
End IF
Next
Response.Write(blog_LinksMainIMG)
Response.Write(blog_LinksMainTXT)
response.Write("<div align=""right"" style=""margin: 4px;""><a href=""bloglinks.asp"">更多友情链接...</a></div>")
end sub
sub hot'热点日志列表
dim sql_hot,RS_hot,top_title1,id_top1
SQL_hot="SELECT top 10 log_Title,log_ID,log_ViewNums FROM blog_Content order by log_ViewNums desc"
Set RS_hot=Server.CreateObject("ADODB.RecordSet")
RS_hot.Open SQL_hot,Conn,1,1
SQLQueryNums=SQLQueryNums+1
response.Write("<hr size=""1"" noshade style=""border:1px dotted #000000""><div class=""msg_head"">热点日志 TOP10</div>")
if RS_hot.eof and RS_hot.bof then
response.Write("<div class=""siderbar_head"">暂时没有热点日志日志")
else
Do while not RS_hot.EOF 'and rs_top.bof
top_title1=RS_hot("log_title")
id_top1=RS_hot("log_ID")
Response.Write("<span ><img src=""images/hot.gif"" align=""absmiddle"" border=""0"" /><font color=""#000000""><a href=blogview.asp?logid="&id_top1&"> "&left(top_title1,10)&"</a> <br> </font></span> ")
RS_hot.MoveNext
Loop
response.Write("</div>")'
end if
RS_hot.close
set RS_hot=nothing
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -