📄 index1028.asp
字号:
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/ubbcode.asp" -->
<!--#include file="header.asp" -->
<table width="768" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="images/index-mid.gif"><div align="center">
<hr align="center" width="750">
<table width="750" 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
call topshow
call frindlink
%>
<br>
<div class="siderbar_head"><img src="images/sider_other.gif" border="0" align="absmiddle" /> 其他信息
<%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"><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"><br />
</div>
<div class="siderbar_main" align="center"></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,Cookies
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=""left"" class=""smalltxt"" height=""32px""><font color='red'>作者：</font><a href=""member.asp?action=view&memName="&log_Author&""">"&log_Author&"</a> <font color='green'>分类：</font><a href=""index.asp?cateID="&webLog("log_CateID")&""">"&webLog("cate_Name")&"</a> <a href=""blogview.asp?logID="&weblog_ID&"#comment"">评论："&webLog("log_CommNums")&"</a> <a href=""trackback.asp?logID="&weblog_ID&""">引用："&webLog("log_QuoteNums")&"</a> <font color='red'>阅读</font>："&webLog("log_ViewNums")&"")
if memName=log_Author then '判断用户的修改和删除权利
If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then Response.Write(" <a href=""blogedit.asp?logID="&weblog_ID&""">编辑日志</a> <a href=""blog_del.asp?logID="&weblog_ID&""">删除日志</a>")
Response.Write("</div></div>")
end if
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>
</div></td>
</tr>
</table>
<!--#include file="footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -