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" -->
<%
	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
 %>
<table width="135" border="0">
  <tr>
    <td width="129"><%
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 5  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"),"&#39;&#39;","&#39;")
		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>&nbsp;[最高指示]</strong></font></span>  "&log_ShowURL&"<strong>"&webLog("log_Title")&"</strong></a>&nbsp;&nbsp;&nbsp;[ "&DateToStr(webLog("log_PostTime"),"Y-m-d")&" &nbsp;|&nbsp; <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> </div>")
			End IF
			 
		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)%>
  </tr>
</table>