📄 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=Conn.Execute(SQL)
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?viewType=byDay&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
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)=30
Month_Days(9)=31
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("<table width='99%' border='0' align='center' cellpadding='3' cellspacing='1' bgcolor='#CCCCCC'><tr><td align='center' colspan='7' bgcolor='#EFEFEF'><a href='default.asp?viewType=byYear&log_Year="&C_Year-1&"&log_Month="&C_Month&"' title='上一年'><span class='arrow'>7</span></a><a href='default.asp?viewType=byMonth&log_Year="&Pro_Year&"&log_Month="&Pro_Month&"' title='上一月'><span class='arrow'>3</span></a> <b>"&C_Year&" 年 "&Month_Name(C_Month)&"</b> <a href='default.asp?viewType=byMonth&log_Year="&Next_Year&"&log_Month="&Next_Month&"' title='下一月'><span class='arrow'>4</span></a><a href='default.asp?viewType=byYear&log_Year="&C_Year+1&"&log_Month="&C_Month&"' title='下一年'><span class='arrow'>8</span></a></td></tr><tr class='calendar' bgcolor='#F8F8F8'>")
Response.Write("<td align='center'><b>日</b></td><td align='center'><b>一</b></td><td align='center'><b>二</b></td><td align='center'><b>三</b></td><td align='center'><b>四</b></td><td align='center'><b>五</b></td><td align='center'><b>六</b></td></tr><tr bgcolor='#FFFFFF' class='calendar'>")
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="#FFFFFF"
IF j=To_Day AND This_Year=To_Year AND This_Month=To_Month Then This_BGColor="#DFDFDF"
IF j=This_Day Then This_BGColor="#F8F8F8"
Response.Write("<td align='center' bgcolor='"&This_BGColor&"' class='calendar'>")
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='99%' border='0' align='center' cellpadding='4' cellspacing='1' bgcolor='#CCCCCC'><form name='memlogin' method='post' action='logging.asp?action=login'><tr><td colspan='2' bgcolor='#EFEFEF'><b>用户登陆</b></td></tr><tr bgcolor='#FFFFFF'><td align='right'>用户：</td><td align='left'><input name='username' type='text' id='username' value='' size='12' maxlength='20'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>密码：</td><td align='left'><input name='Password' type='password' id='Password' value='' size='12' maxlength='20'></td></tr><tr bgcolor='#FFFFFF'><td colspan='2' align='center'><input name='Login' type='submit' id='Login' value=' 登 陆 '> <input name='Regedit' type='button' id='Regedit' value=' 注 册 ' onclick=javascript:document.location.href='register.asp';></td></tr></form></table>")
Else
Response.Write("<table width='99%' border='0' align='center' cellpadding='4' cellspacing='1' bgcolor='#CCCCCC'><tr><td colspan='2' bgcolor='#EFEFEF'><b>用户中心</b></td></tr><tr bgcolor='#FFFFFF'><td height='48' colspan='2' valign='top'>你好，"&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='member.asp?action=edit'>修改资料</a> | <a href='logging.asp?action=logout'>退出登录</a></td></tr></table>")
End IF
End Sub
Sub NewCommList '最新留言列表
Dim blog_Commentnewlist
Set blog_Commentnewlist=Conn.Execute("SELECT TOP 10 C.comm_ID,C.comm_Content,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")
IF blog_Commentnewlist.EOF AND blog_Commentnewlist.BOF Then
Response.Write("暂时没有回复")
Else
Do While NOT blog_Commentnewlist.EOF
IF blog_Commentnewlist("log_IsShow")=False Then
Response.Write("<a href='blogview.asp?logID="&blog_Commentnewlist("blog_ID")&"#commmark_"&blog_Commentnewlist("comm_ID")&"'>隐藏问题的回复</a>")
Else
Response.Write("<a href='blogview.asp?logID="&blog_Commentnewlist("blog_ID")&"#commmark_"&blog_Commentnewlist("comm_ID")&"'>"&SplitLines(cutStr(HTMLEncode(blog_Commentnewlist("comm_Content")),20),0)&"</a>")
End IF
Response.Write("<br><img name='HideImage' src='' width='2' height='5' style='background-color: #FFFFFF'><br>")
blog_Commentnewlist.MoveNext
Loop
End IF
Set blog_Commentnewlist=Nothing
End Sub
Sub SiteInfo '站点信息
Dim blog_Info
Set blog_Info=Conn.ExeCute("SELECT * FROM blog_Info")
Response.Write("问题："&blog_Info("blog_LogNums")&" 篇<br><a href='commlist.asp'>回复："&blog_Info("blog_CommNums")&" 篇</a><br><a href='member.asp'>会员："&blog_Info("blog_MemNums")&" 人</a><br>访问："&blog_Info("blog_VisitNums")&" 次")
Set blog_Info=Nothing
End Sub
Sub CategoryList(ListStyle) '分类列表 ListStyle 表示调用样式 1-横向 2-竖向
Dim blog_Category,blog_CategoryContent
IF ListStyle=1 Then
For Each blog_Category IN Arr_Category
blog_CategoryContent=Split(blog_Category,"|")
Response.Write("<td class='ltsep'>|</td><td class='lt0' nowrap='true' onmouseenter='mhEnter()' onmouseleave='mhLeave()'><b><a href='default.asp?viewType=byCate&cateID="&blog_CategoryContent(0)&"'>"&blog_CategoryContent(1)&"</b></td>")
Next
Else
Response.Write("</tr>")
For Each blog_Category IN Arr_Category
blog_CategoryContent=Split(blog_Category,"|")
Response.Write("<tr><td class='lt0' nowrap='true' onmouseenter='mhEnter()' onmouseleave='mhLeave()'><b><a href='default.asp?viewType=byCate&cateID="&blog_CategoryContent(0)&"'>"&blog_CategoryContent(1)&"</b></td></tr>")
Next
End IF
End Sub
Sub blogSearch '站点搜索
Response.Write("<table width='99%' border='0' align='center' cellpadding='4' cellspacing='1' bgcolor='#CCCCCC'><tr><td bgcolor='#EFEFEF'><b>问题搜索</b></td></tr><tr><form name='blogsearch' method='get' action='search.asp'><td bgcolor='#FFFFFF'> <input name='SearchContent' type='text' id='SearchContent' size='18'> <input name='Submit' type='Image' id='Submit' src='images/go.gif' align='absmiddle' style='height:17px;width:18px'></td></form></tr></table><br><table width='99%' border='0' align='center' cellpadding='4' cellspacing='1' bgcolor='#CCCCCC'><tr><td bgcolor='#EFEFEF'><b>回复搜索</b></td></tr><tr><form name='commsearch' method='get' action='commlist.asp?action=search'><td bgcolor='#FFFFFF'><input name='SearchContent' type='text' id='SearchContent' size='18'> <input name='Submit' type='Image' id='Submit' src='images/go.gif' align='absmiddle' style='height:17px;width:18px'></td></form></tr></table>")
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -