index_show.asp

1、日志增加首页显示调用index_show.asp 2、日志增加用户的修改和删除权利 3、日志增加文件上传大小修改和限制 4、时间的动态修改 5、增加日志的日志推荐功能 6、用户的ip查询

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/ubbcode.asp" -->
<!--#include file="header1.asp" --><style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style>
<table width="150" border="0" align="center" cellpadding="0" cellspacing="0" background="images/blog_main.gif" class="wordbreak">
  <tr>
    <td width="100%" valign="top" 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="?"%>
        <%
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 top 6 L.*,C.cate_Name FROM blog_Content AS L,blog_Category AS C "&SQLFiltrate&" C.cate_ID=L.log_CateID ORDER BY 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,logtiele
	webLog.PageSize=blogPerPage
	webLog.AbsolutePage=CurPage
	Log_Num=webLog.RecordCount
	Dim Log_Num,MultiPages,PageCount,liulan, target 
	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")
		 target="target='_blank'"
		log_IsShow=weblog("log_IsShow")
		log_Author=webLog("log_Author")
		logtiele=" title="&weblog("log_title")&":"&webLog("log_PostTime")
		log_IsTop=weblog("log_IsTop")
		log_Weather=Split(weblog("log_Weather"),"|")
		log_Intro=Replace(webLog("log_Intro"),"&#39;&#39;","&#39;")
 		If IsInteger(cateID)=False Then
			log_ShowURL="<a   href=""blogview.asp?logID="&weblog_ID&" "" "&target&""&logtiele&"   >"
		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
			
				Response.Write("<img src=""images/weather/"&log_Weather(0)&".gif"" alt="""&log_Weather(1)&""" align=""absmiddle""> "&log_ShowURL&"<strong>"&left(webLog("log_Title"),9)&"</strong></a> "&"</div>")
				'Response.Write("<img src=""images/weather/"&log_Weather(0)&".gif"" alt="""&log_Weather(1)&""" align=""absmiddle""> "&log_ShowURL&"<strong>"&left(webLog("log_Title"),10)&"</strong></a> "&"</div>")
			    'Response.Write("<img src=""images/weather/"&log_Weather(0)&".gif"" alt="""&log_Weather(1)&""" align=""absmiddle""> "&log_ShowURL&"<strong>"&webLog("log_Title")&"</strong></a>&nbsp;&nbsp;&nbsp;[ "&DateToStr(webLog("log_PostTime"),"Y-m-d")&" &nbsp;|&nbsp;] 作者：<a href=""member.asp?action=view&memName="&log_Author&""">"&log_Author&"</a></div>")

 			If log_IsTop=True Then Response.Write("</div>")
		Else
			Response.Write("<strong>这是一篇隐藏日志，只有管理员才能观看，请先登录</strong></div>")
		End If
		webLog.MoveNext
		PageCount=PageCount+1
 	Loop
End If
webLog.Close
Set webLog=Nothing
Response.Write(MultiPages)%></td>
  </tr>
</table>