📄 library.asp
字号:
Response.Write("暂无")
Else
Do While NOT blog_Topicnewlist.EOF
IF blog_Topicnewlist("log_IsShow")=False Then
Response.Write("<a href='blogview.asp?logID="&blog_Topicnewlist("log_ID")&"' title='隐藏日志，不显示预览'>"&HTMLEncode(cutStr(blog_Topicnewlist("log_Title"),18))&"</a><br>")
Else
Response.Write("<a href='blogview.asp?logID="&blog_Topicnewlist("log_ID")&"' title='"&HTMLEncode(blog_Topicnewlist("log_Author"))&": "&Replace(HTMLEncode(cutStr(blog_Topicnewlist("log_Content"),200)),"<br>"," ")&"'>"&HTMLEncode(cutStr(blog_Topicnewlist("log_Title"),18))&"</a><br>")
End IF
blog_Topicnewlist.MoveNext
Loop
End IF
Set blog_Topicnewlist=Nothing
Response.Write("</div>")
End Sub
Sub hotBlogList '最热Bolg列表
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">最热日志</td></tr></table><div class=""siderbar_main"">")
Dim blog_hotlist
Set blog_hotlist=znwl.Execute("SELECT TOP 8 T.log_ID,T.log_Title,T.log_Author,log_Content,log_IsShow,log_ViewNums FROM blog_Content T,blog_Category C WHERE T.log_cateID=C.cate_ID ORDER BY T.log_ViewNums DESC")
IF blog_hotlist.EOF AND blog_hotlist.BOF Then
Response.Write("暂无最热日志")
Else
Do While NOT blog_hotlist.EOF
IF blog_hotlist("log_IsShow")=False Then
Response.Write("<a href='blogview.asp?logID="&blog_hotlist("log_ID")&"' title='隐藏日志，不显示预览'>"&HTMLEncode(cutStr(blog_hotlist("log_Title"),18))&"</a><br>")
Else
Response.Write("<a href='blogview.asp?logID="&blog_hotlist("log_ID")&"' title='"&HTMLEncode(blog_hotlist("log_Author"))&": "&Replace(HTMLEncode(cutStr(blog_hotlist("log_Content"),200)),"<br>"," ")&"'>"&HTMLEncode(cutStr(blog_hotlist("log_Title"),18))&"</a><br>")
End IF
blog_hotlist.MoveNext
Loop
End IF
Set blog_hotlist=Nothing
Response.Write("</div>")
End Sub
Sub SiteInfo '站点统计
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">站点统计</td></tr></table><div class=""siderbar_main"">日志："&blog_LogNums&" 篇<br><a href=""commlist.asp"">评论："&blog_CommNums&" 篇</a><br>引用："&blog_QuoteNums&" 个<br><a href=""member.asp"">会员："&blog_MemNums&" 人</a><br><a href=""download.asp"">资源："&blog_downloadNums&" 个</a><br><a href=""photo.asp"">相册："&blog_photoNums&" 张</a><br><a href=""forumview.asp"">主题："&blog_ThreadNums&" 个</a><br><a href=""forumview.asp"">帖子："&blog_PostNums&" 个</a><br><a href=""guestbook.asp"">留言："&blog_GuestbookNums&" 个</a><br><a href=""blogvisit.asp?tjtype=5"">在线："&Application(CookieName & "_blog_displayOnlineTitle2")&"</a><br><a href=""blogvisit.asp"">访问："&blog_VisitNums&" 次</a><br>建立："&blog_time&"</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=""default.asp?cateID="&Arr_Category(0,blog_CategoryNumI)&""">"&Arr_Category(1,blog_CategoryNumI)&"</a>")
Next
End Sub
Sub TJList '分类列表
Dim blog_TJNums,blog_TJNumI
blog_TJNums=Ubound(Arr_tjtag,2)
For blog_TJNumI=0 To blog_TJNums
Response.Write(" <img src=""images/icon_gray.gif""> <a href=""BloglistTag.asp?tags="&Arr_tjtag(1,blog_TJNumI)&"""><font color=""green"">"&Arr_tjtag(1,blog_TJNumI)&"</font></a>")
Next
End Sub
Sub blogSearch '站点搜索
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">日志搜索</td></tr></table><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 ShowEnglish
Dim ConnEnglish,EngRs,Sql,EngStr,ChStr,linecount
Set ConnEnglish= Server.CreateObject("ADODB.Connection")
ConnEnglish.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("English.mdb")
ConnEnglish.Open
linecount=20
Sql="select top "&linecount&" * from sentence where"
dim RNumber,i
Randomize
for i=0 to linecount-1
RNumber = Int((3747) * Rnd + 1)
if i=0 then
Sql=Sql & " id=" & RNumber
else
Sql=Sql & " or id=" & RNumber
end if
next
set EngRs=ConnEnglish.ExeCute(Sql)
Response.Write("<div id=SEng class=""Econtent""><img src=""images/zd.gif"" align=""absmiddle""> <span class=EnText></span><div class=ChText></div></div>")
Response.Write("<div style=""height:5px;overflow:hidden""></div>")
response.write ("<script>")
i=0
Do Until EngRs.EOF
EngStr=Replace(EngRs("English"),"'","\'")
response.write ("En["&i&"]='"&EngStr&"'"&chr(10))
response.write ("Ch["&i&"]='"&EngRs("Chinese")&"'"&chr(10))
EngRs.MoveNext
i=i+1
loop
response.write ("showE(1);window.setInterval (""showE()"",30000)</script>")
end sub
Sub ForumList(ForumID)
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">论坛列表</td></tr></table><div class=""siderbar_main"">")
Dim blog_ForumListNumS,blog_ForumListNumI
blog_ForumListNumS=Ubound(Arr_Forums,2)
For blog_ForumListNumI=0 To blog_ForumListNumS
Response.Write("<div> <img src=""images/forums/"&Arr_Forums(0,blog_ForumListNumI)&".gif"" align=""absmiddle"" border=""0""> ")
If Int(Arr_Forums(0,blog_ForumListNumI))=Int(ForumID) Then
Response.Write("<a href=""forumview.asp?forumID="&Arr_Forums(0,blog_ForumListNumI)&"""><b>"&Arr_Forums(1,blog_ForumListNumI)&"</b></a>")
Else
Response.Write("<a href=""forumview.asp?forumID="&Arr_Forums(0,blog_ForumListNumI)&""">"&Arr_Forums(1,blog_ForumListNumI)&"</a>")
End If
Response.Write(" ("&Arr_Forums(3,blog_ForumListNumI)&")</div>")
Next
Response.Write("</div>")
End Sub
Function ForumTitle(ForumID)
Dim blog_ForumListNumS,blog_ForumListNumI
blog_ForumListNumS=Ubound(Arr_Forums,2)
For blog_ForumListNumI=0 To blog_ForumListNumS
If Int(Arr_Forums(0,blog_ForumListNumI))=Int(ForumID) Then
ForumTitle=" - <a href=""forumview.asp?forumID="&Arr_Forums(0,blog_ForumListNumI)&""">"&Arr_Forums(1,blog_ForumListNumI)&"</a>"
End If
Next
End Function
sub N_Forum '最新帖子
Dim N_Forum,Num_Forum
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">最新帖子</td></tr></table><div class=""siderbar_main"">")
Set N_Forum=znwl.ExeCute("SELECT Top 8 thread_ForumID,thread_ID,thread_Author,thread_LastPoster,thread_Icon,thread_IsTop,thread_IsDigest,thread_IsClose,thread_Title,thread_PostNums,thread_ViewNums,thread_LastPost,thread_PostTime FROM blog_Threads ORDER BY thread_PostTime DESC")
IF N_Forum.EOF AND N_Forum.BOF Then
Response.Write("暂无最新帖子")
Else
Num_Forum=0
Do While NOT N_Forum.EOF
If Num_Forum<8 Then
Response.Write("<A HREF='threadview.asp?forumID="&N_Forum("thread_forumID")&"&threadID="&N_Forum("thread_ID")&"' title='帖子主题："&N_Forum("thread_Title")&" 发 帖 人："&N_Forum("thread_Author")&" 浏览次数："&N_Forum("thread_ViewNums")&" 最后回复："&N_Forum("thread_LastPoster")&" 发帖时间："&DateToStr(N_Forum("thread_PostTime"),"Y-m-d-s")&"' target='_blank'>"&HTMLEncode(cutStr(N_Forum("thread_Title"),20))&"</a><br>")
End If
N_Forum.MoveNext
Num_Forum=Num_Forum+1
Loop
End IF
Set N_Forum=Nothing
Response.Write("</div>")
End Sub
sub T_Forum '最热帖子
Dim T_Forum,Tum_Forum
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">最热帖子</td></tr></table><div class=""siderbar_main"">")
Set T_Forum=znwl.ExeCute("SELECT Top 5 thread_ForumID,thread_ID,thread_Author,thread_LastPoster,thread_Icon,thread_IsTop,thread_IsDigest,thread_IsClose,thread_Title,thread_PostNums,thread_ViewNums,thread_LastPost,thread_PostTime FROM blog_Threads ORDER BY thread_ViewNums DESC")
IF T_Forum.EOF AND T_Forum.BOF Then
Response.Write("暂无最热帖子")
Else
Tum_Forum=0
Do While NOT T_Forum.EOF
If Tum_Forum<5 Then
Response.Write("<A HREF='threadview.asp?forumID="&T_Forum("thread_forumID")&"&threadID="&T_Forum("thread_ID")&"' title='帖子主题："&T_Forum("thread_Title")&" 发 帖 人："&T_Forum("thread_Author")&" 浏览次数："&T_Forum("thread_ViewNums")&" 最后回复："&T_Forum("thread_LastPoster")&" 发帖时间："&DateToStr(T_Forum("thread_PostTime"),"Y-m-d-s")&"' target='_blank'>"&HTMLEncode(cutStr(T_Forum("thread_Title"),20))&"</a><br>")
End If
T_Forum.MoveNext
Tum_Forum=Tum_Forum+1
Loop
End IF
Set T_Forum=Nothing
Response.Write("</div>")
End Sub
sub R_Forum '最新回复
Dim R_Forum,Rum_Forum
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">最新回复</td></tr></table><div class=""siderbar_main"">")
Set R_Forum=znwl.ExeCute("SELECT Top 5 post_ID,post_ThreadID,post_ForumID,post_Content,post_IsTop,post_Author,post_PostTime FROM blog_Posts ORDER BY post_PostTime DESC")
IF R_Forum.EOF AND R_Forum.BOF Then
Response.Write("暂无最新回复")
Else
Rum_Forum=0
Do While NOT R_Forum.EOF
If Rum_Forum<5 Then
Response.Write("<A HREF='threadview.asp?forumID="&R_Forum("post_ForumID")&"&threadID="&R_Forum("post_ThreadID")&"' title='回复内容："&HTMLEncode(cutStr(R_Forum("post_Content"),150))&" 回 复 人："&R_Forum("post_Author")&" 回复时间："&DateToStr(R_Forum("post_PostTime"),"Y-m-d-s")&"' target='_blank'>"&HTMLEncode(cutStr(R_Forum("post_Content"),20))&"</a><br>")
End If
R_Forum.MoveNext
Rum_Forum=Rum_Forum+1
Loop
End IF
Set R_Forum=Nothing
Response.Write("</div>")
End Sub
Sub forumSearch '论坛搜索
Response.Write("<table width=""100%""><tr><td class=""siderbar_head"">论坛搜索</td></tr></table><div class=""siderbar_main""><form name=""forumsearch"" method=""post"" action=""forumsearch.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"" /></form></div>")
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -