wo.asp

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

 <%Const AccessPath="blogdata"
Const AccessFile="#mengxisky_blog.mdb" 
Const IPAccessFile="ipdata.asa"

'定义数据库连接
Dim Conn_blog
Set Conn_blog= Server.CreateObject("ADODB.Conn_blogection")
Conn_blog.Conn_blogectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile)
Conn_blog.Open%>
<!--#include file="include/function.asp" -->
<!--#include file="include/ubbcode.asp" -->


<%
Dim webLog
Set webLog=Server.CreateObject("Adodb.Recordset")
SQL="SELECT  top 5 * FROM blog_Content  ORDER BY log_IsTop ASC,log_ID DESC"
webLog.Open SQL,Conn_blog,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)
 	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("<img src=""images/weather/"&log_Weather(0)&".gif"" alt="""&log_Weather(1)&""" align=""absmiddle""> "&log_ShowURL&""&webLog("log_Title")&" </a>")
 	Loop
End If
webLog.Close
Set webLog=Nothing
Response.Write(MultiPages)
	%>