📄 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)="default.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("<div class=""siderbar_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=""default.asp?log_Year="&C_Year-1&""" title=""上一年""><span class=""arrow"">7</span></a><a href=""default.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=""default.asp?log_Year="&Next_Year&"&log_Month="&Next_Month&""" title=""下一月""><span class=""arrow"">4</span></a><a href=""default.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("<table width=""100%""><tr><td class=""siderbar_head"">用户登陆</td></tr></table><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=""validatecode"" type=""text"" id=""validatecode"" class=""txt"" size=""3"" /> <img src=""include/validatecode.asp"" align=""absmiddle"" border=""0"" /><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("<table width=""100%""><tr><td class=""siderbar_head"">用户中心</td></tr></table><div class=""siderbar_main"">你好，"&memName&"<br>")
IF memStatus="SupAdmin" Then
Response.Write("<a href=""blogpost.asp""><img src=""images/icon_newblog.gif"" align=""absmiddle"" border=""0"" />发表日志</a> <a href=""admincp.asp"" target=""_blank""><img src=""images/icon_admincp.gif"" align=""absmiddle"" border=""0"" />系统管理</a><br><img src=""images/icon_admincp.gif"" align=""absmiddle"" border=""0"" /><a href=""photoadd.asp"">添加图片</a> ")
ElseIF memStatus="Admin" Then
Response.Write("<a href=""blogpost.asp""><img src=""images/icon_newblog.gif""align=""absmiddle"" border=""0"" /> 发表日志</a><br>")
End IF
Response.Write("<a href=""tuijian.asp""><img src=""images/icon_favorite.gif""align=""absmiddle"" border=""0"" />热门推荐</a> <a href=""forumpost.asp?action=thread"" target=""_blank""><img src=""images/icon_forum.gif"" align=""absmiddle"" border=""0"" />我要发帖</a><br /><a href=""member.asp?action=edit""><img src=""images/icon_memedit.gif""align=""absmiddle"" border=""0"" />修改资料</a> <a href=""logging.asp?action=logout""><img src=""images/icon_logout.gif"" align=""absmiddle"" border=""0"" />退出登录</a></div>")
End IF
End Sub
Sub NewCommList '最新留言列表
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">最新评论</td></tr></table><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,znwl,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 NewBlogList '最新Bolg列表
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">最新日志</td></tr></table><div class=""siderbar_main"">")
Dim blog_Topicnewlist
Set blog_Topicnewlist=znwl.Execute("SELECT TOP 8 T.log_ID,T.log_Title,T.log_Author,log_Content,log_IsShow FROM blog_Content T,blog_Category C WHERE T.log_cateID=C.cate_ID ORDER BY T.log_PostTime DESC")
IF blog_Topicnewlist.EOF AND blog_Topicnewlist.BOF Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -