tblist.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="header.asp" --><table width="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif">
  <tr>
    <td width="128" align="center" valign="top" nowrap bgcolor="#FFFFFF"><br>
<b>寮曠敤鍒楄〃<br>
        <br>
        <%
	  Dim CurPage,Url_Add,memSQL
	  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
	  memSQL="SELECT T.*,L.log_Author,L.log_Title,L.log_IsShow FROM blog_Trackback AS T,blog_Content AS L WHERE L.log_ID=T.blog_ID ORDER BY tb_PostTime DESC"
	  Url_Add="?"%>
    </b></td>
    <td width="100%" valign="top" bgcolor="#FFFFFF"><%
		Dim tb_List
		Set tb_List=Server.CreateObject("ADODB.Recordset")
		tb_List.Open memSQL,Conn,1,1
		SQLQueryNums=SQLQueryNums+1
		IF tb_List.EOF AND tb_List.BOF Then
			Response.Write("<table width=""98%"" border=""0"" cellpadding=""4"" cellspacing=""1"" bgcolor=""#CCCCCC""><tr bgcolor=""#FFFFFF""><td>鏆傛椂娌℃湁浠讳綍寮曠敤锛