📄 1index.asp
字号:
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/ubbcode.asp" -->
<!--#include file="header.asp" -->
<table width="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif" class="wordbreak">
<tr>
<td width="160" valign="top" nowrap background="images/d1.gif" bgcolor="#FFFFFF"><%
Dim log_Year,log_Month,log_Day,cateID,SQLFiltrate,Url_Add
log_Year=CheckStr(Trim(Request.QueryString("log_Year")))
log_Month=CheckStr(Trim(Request.QueryString("log_Month")))
log_Day=CheckStr(Trim(Request.QueryString("log_Day")))
cateID=CheckStr(Trim(Request.QueryString("cateID")))
SQLFiltrate="WHERE "
Url_Add="?"
IF IsInteger(cateID)=True Then
SQLFiltrate=SQLFiltrate&" log_CateID="&CateID&" AND"
Url_Add=Url_Add&"CateID="&CateID&"&"
End IF
IF IsInteger(log_Year)=True Then
SQLFiltrate=SQLFiltrate&" log_PostYear="&log_Year&" AND"
Url_Add=Url_Add&"log_Year="&log_Year&"&"
End IF
IF IsInteger(log_Month)=True Then
SQLFiltrate=SQLFiltrate&" log_PostMonth="&log_Month&" AND"
Url_Add=Url_Add&"log_Month="&log_Month&"&"
End IF
IF IsInteger(log_Day)=True Then
SQLFiltrate=SQLFiltrate&" log_PostDay="&log_Day&" AND"
Url_Add=Url_Add&"log_Day="&log_Day&"&"
End IF
Call MemberCenter
Response.Write("<br>")
Call Calendar(log_Year,log_Month,log_Day)
Response.Write("<br>")
Call SiteInfo
Response.Write("<br>")
Call NewCommList
Response.Write("<br>")
Call blogSearch%><br>
<div class="siderbar_head"><img src="images/sider_links.gif" border="0" align="absmiddle" /> </div>
<div class="siderbar_main"><%
Dim blog_LinksListNums,blog_LinksListNumI,blog_LinksMainIMG,blog_LinksMainTXT
blog_LinksListNums=Ubound(Arr_Bloglinks,2)
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)
%><div align="right" style="margin: 4px;"><a href="bloglinks.asp">更多友情链接...</a></div></div>
<br>
<div class="siderbar_head"><img src="images/sider_other.gif" border="0" align="absmiddle" /> 其他信息</div>
<div class="siderbar_main" align="center">
<p><img src="images/hp.gif" width="120" height="90"><br>
[我的个人日志]
<br>
QQ：30809857<br />
<img src="images/utf8.gif" border="0" alt="BLOG编码" align="absmiddle"><br />
<%If IsInteger(cateID)=True Then
Response.Write("<a href=""blogrss1.asp?cateID="&cateID&""" target=""_blank"">")
Else
Response.Write("<a href=""blogrss1.asp"" target=""_blank"">")
End If
%>
<img src="images/rss1.gif" border="0" alt="RSS 1.0" align="absmiddle"></a><br />
<%If IsInteger(cateID)=True Then
Response.Write("<a href=""blogrss2.asp?cateID="&cateID&""" target=""_blank"">")
Else
Response.Write("<a href=""blogrss2.asp"" target=""_blank"">")
End If
%>
<img src="images/rss2.gif" border="0" alt="RSS 2.0" align="absmiddle"></a><br />
</p>
</div></td>
<td width="100%" valign="top" bgcolor="#FFFFFF">
<%
Dim CurPage
If CheckStr(Request.QueryString("Page"))<>Empty Then
Curpage=CheckStr(Request.QueryString("Page"))
If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
Curpage=1
End If
Dim webLog
Set webLog=Server.CreateObject("Adodb.Recordset")
SQL="SELECT L.*,C.cate_Name FROM blog_Content AS L,blog_Category AS C "&SQLFiltrate&" C.cate_ID=L.log_CateID ORDER BY log_IsTop ASC,log_ID DESC"
webLog.Open SQL,CONN,1,1
SQLQueryNums=SQLQueryNums+1
If webLog.EOF AND webLog.BOF Then
Response.Write("<div class=""message"">暂时没有日志</div>")
Else
Dim log_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather
webLog.PageSize=blogPerPage
webLog.AbsolutePage=CurPage
Log_Num=webLog.RecordCount
Dim Log_Num,MultiPages,PageCount
MultiPages="<span class=""smalltxt"">"&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add)&"</span>"
Response.Write(MultiPages)
Response.Write("<table width=""100%"" height=""9"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td></td></tr></table>")
Do Until webLog.EOF OR PageCount=blogPerPage
weblog_ID=weblog("log_ID")
log_IsShow=weblog("log_IsShow")
log_Author=webLog("log_Author")
log_IsTop=weblog("log_IsTop")
log_Weather=Split(weblog("log_Weather"),"|")
log_Intro=Replace(webLog("log_Intro"),"''","'")
Response.Write("<div class=""content_head"">")
If IsInteger(cateID)=False Then
log_ShowURL="<a href=""blogview.asp?logID="&weblog_ID&""">"
Else
log_ShowURL="<a href=""blogview.asp?logID="&weblog_ID&"&cateID="&cateID&""">"
End If
If log_IsShow = True OR (log_IsShow=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_Author))) Then
If log_IsTop=True Then
Response.Write("<span style=""cursor:hand;"" onclick=""showIntro('log_"&weblog_ID&"');"" title=""点击查看详细介绍""><img src=""images/blogtop.gif"" border=""0"" align=""absmiddle"" /><font color=""#000000""><strong> [最高指示]</strong></font></span> "&log_ShowURL&"<strong>"&webLog("log_Title")&"</strong></a> [ "&DateToStr(webLog("log_PostTime"),"Y-m-d")&" | <a href="""&webLog("log_FromURL")&""" target=""_blank"">"&webLog("log_From")&"</a> ]</div><div style=""display:none;"" id=""log_"&weblog_ID&""">")
Else
Response.Write("<img src=""images/weather/"&log_Weather(0)&".gif"" alt="""&log_Weather(1)&""" align=""absmiddle""> "&log_ShowURL&"<strong>"&webLog("log_Title")&"</strong></a> [ "&DateToStr(webLog("log_PostTime"),"Y-m-d")&" | <a href="""&webLog("log_FromURL")&""" target=""_blank"">"&webLog("log_From")&"</a> ]</div>")
End IF
Response.Write("<div class=""content_main"">"&Ubbcode(log_Intro,weblog("log_DisSM"),weblog("log_DisUBB"),weblog("log_DisIMG"),weblog("log_AutoURL"),weblog("log_AutoKEY")))
Response.Write("<br><br>")
If HtmlEncode(webLog("log_Content"))<>log_Intro Then Response.Write(log_ShowURL&"<img src=""images/icon_readmore.gif"" align=""absmiddle"" border=""0""> 阅读全文……</a>")
Response.Write("<div align=""right"" class=""smalltxt"" height=""32px""><img src=""images/icon_edit1.gif"" align=""absmiddle"" border=""0"">：<a href=""member.asp?action=view&memName="&log_Author&""">"&log_Author&"</a> <img src=""images/icon_edit2.gif"" align=""absmiddle"" border=""0"">：<a href=""index.asp?cateID="&webLog("log_CateID")&""">"&webLog("cate_Name")&"</a> <a href=""blogview.asp?logID="&weblog_ID&"#comment""><img src=""images/icon_edit3.gif"" align=""absmiddle"" border=""0"">："&webLog("log_CommNums")&"</a> <a href=""trackback.asp?logID="&weblog_ID&"""><img src=""images/icon_edit4.gif"" align=""absmiddle"" border=""0"">："&webLog("log_QuoteNums")&"</a> <img src=""images/icon_edit5.gif"" align=""absmiddle"" border=""0"">："&webLog("log_ViewNums")&"")
If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then Response.Write(" <a href=""blogedit.asp?logID="&weblog_ID&"""><img src=""images/icon_edit.gIf"" border=""0"" align=""absmiddle"" alt=""编辑日志""></a>")
Response.Write("</div></div>")
If log_IsTop=True Then Response.Write("</div>")
Else
Response.Write("<strong>这是一篇隐藏日志，只有管理员才能观看，请先登录</strong></div>")
End If
webLog.MoveNext
PageCount=PageCount+1
Response.Write("<table width=""100%"" height=""9"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td></td></tr></table>")
Loop
End If
webLog.Close
Set webLog=Nothing
Response.Write(MultiPages)%></td>
</tr>
</table><!--#include file="footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -