?? 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'>發(fā)表問題</a> | <a href='admincp.asp' target='_blank'>系統(tǒng)管理</a><br>")
ElseIF memStatus="Admin" Then
Response.Write("<a href='blogpost.asp'>發(fā)表問題</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 + -